[mini]

這個疑問已經待在心裡很久了，問題詳述如下

如果有一個檔案裡面有幾行內容: (===虛線不算)
====[c:\test.txt]====
ABCDEFG
1234567890
＃ #％ %
hijklmnopqr
=================

當程式欲刪除
＃ #％ % 這一行，變成
====[c:\test.txt]====
ABCDEFG
1234567890
hijklmnopqr
=================

方法是

Dim gstrText As String, vtLineText As Variant

Open "c:\test.txt" For Binary As #1
  gstrText = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
Kill "c:\test.txt"
vtLineText = Split(gstrText, VbNewLine)

Open "c:\test.txt" For Binary As #1
  Put #1, ,CStr(vtLineText(0) & VbNewLine & vtLineText(1) & VbNewLine & vtLineText(3))
Close #1

問題來了
能否不刪除檔案 (Kill "c:\test.txt")
而辦到覆寫的需求

提示:
.如果不執行 Kill "c:\test.txt"，而直接存檔，會變成
====[c:\test.txt]====
ABCDEFG
1234567890
hijklmnopqrijklmnopqr
=================
多了紅色這一段
編輯前、後大小都是 42 Byte