假如我現在已有一個txt文本,里面已經有一行文字,然后我想把新輸入的文字從第一行文字的結尾開始繼續寫下去,注意不是另一一行,而是繼續在第一行里面寫,有什么辦法?之前試過open file for append這個命令,不過貌似是另一一行繼續寫下去的。。
uj5u.com熱心網友回復:
從第一次寫入開始,始終不要寫入換行符,不就可以一直在第一行上續寫下去。Dim hFile As Integer
hFile = FreeFile()
Open "C:\temp\1.txt" For Append As #hFile
Print #hFile, Now; '<- 關鍵是這個分號'
Close #hFile
uj5u.com熱心網友回復:
好像這樣可以滿足你的要求:
Private Sub Command1_Click()
Open "C:\1.txt" For Binary As #1
Seek #1, LOF(1) + 1
Put #1, , Text1.Text
Close #1
End Sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/113938.html
標籤:VB基礎類
