疑問 - 關於文字檔案覆寫的問題 for VB

mini · 2006-09-05, 04:36 PM

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

如果有一個檔案裡面有幾行內容: (===虛線不算)
====[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

2006-09-05, 04:36 PM	#1
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13261 精華: 0 現金: 26261 金幣資產: 3024071 金幣	疑問 - 關於文字檔案覆寫的問題 for VB 這個疑問已經待在心裡很久了，問題詳述如下如果有一個檔案裡面有幾行內容: (===虛線不算) ====[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

	送花文章: 2001, 收花文章: 7962 篇, 收花: 26757 次

Google 提供的廣告