vb读取和写入txt的方法.doc

vb读取txt的方法-写入txt的方法
Sub WriteLineN(N As Integer, FileName As String, strT As String, InsertS As Boolean)
'功能：向FileName文件的第N行，写入strT
'参数InsertS为True时，插入 False时改写
Open FileName For Input As #1
While Not EOF(1)
Line Input #1, s
S1 = S1 & s & IIf(EOF(1), "", vbCrLf)
Wend
Close #1
Dim a
a = Split(S1, vbCrLf)
If N > UBound(a) + 1 Then
a(UBound(a)) = IIf(InsertS, a(UBound(a)) & vbCrLf, "") & strT
Else
a(N - 1) = strT & IIf(InsertS, vbCrLf & a(N - 1), "")
End If
Open FileName For Output As #1
Print #1, Join(a, vbCrLf)
Close #1
End Sub

调用方法:
Private Sub Command1_Click()
WriteLineN 1, "c:\tt2.txt", Text1.Text,False
'将第一个文本框的内容,改写到文件的第1行
End Sub