Question

vb怎样把一行字符写入txt文本文件首行?

c:\123.txt已有五行内容。用下面的代码只能把abcd几个字符写入c:\123.txt这个文本文件最后一行：
Open "c:\123.txt" For Append As #1 '打开文件供追加写入
Print #1, abcd
Close #1
如果要把abcd插入文本文件c:\123.txt的第一行，怎么做呢？

Answer 1

兄弟这个问题还没结啊？这个没有简单的方法了，不好直接把字符打印到文本文件的第一行，只要一个方法，定义一个数组，先把文本文件内容读进来，然后再重新print进去，如果还想更简单的方法就只能用数据库了：
Private Sub Form_Load()
'先定义一个数组用来存放TXT里的原内容
Dim S() As String, Ns As Long, I As Long
'读取TXT文件到数组
Open "c:\123.txt" For Input As 1
Do While Not EOF(1)
Ns = Ns + 1
ReDim Preserve S(Ns)
Line Input #1, S(Ns)
Loop
Close 1
'再重新把新添加到文本和原文本打印到TXT里
Open "c:\123.txt" For Output As 1
Print #1, "添加到第一行的文本"
For I = 1 To Ns
Print #1, S(I)
Next
Close 1
End Sub

还不明白加我扣扣7-0-3-7-0-1-5，把问题描述详细点，回头我给你完整代码

Answer 2

用FSO可以每次都写一行：
Sub Create_File()
Dim fso, txtfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
' 写入一行带有换行符的文本。
txtfile.WriteLine("Testing 1, 2, 3.")
txtfile.Close
End Sub

Answer 3

全部读取后再全部写入文件：
Sub aaa()
On Error Resume Next
Filename = "c:\123.txt"
Dim arr() As Byte
ReDim arr(FileLen(Filename))
Open Filename For Binary As #1
Get #1, , arr
Close #1
Open Filename For Output As #1
Print #1, "新首行字符串：abcd" & vbCrLf & StrConv(arr, vbUnicode);'主要最后面的;，不能少的，否则将加入一空行
Close #1
End Sub

Answer 4

全部读出来写入你要写入第一行的内容再把读出的内容写进去,通俗易懂,如果你想用移位或位操作什么的,就算了吧，都是忽悠人的，详细请参考数据写入方式你就懂了

追问

c:\123.txt有几行事先不知道。所以无法读取。希望写出代码，让一行已知文字插入一个文本文件的首行

追答

EOF可以判断是否已经读到末尾