关于VB写入 TXT 并读取

来源：百度知道 编辑：UC知道 时间：2024/06/27 17:37:37
有4个TEXT 并对应 4个COMMAND
在text1内输入 数字后 按command1 会存在 txt文件的第1行
在text2内输入 数字后 按command2 会存在 txt文件的第2行

按 command3会将 txt文件中的第1行内容 显示在 text3内
按 command4会将 txt文件中的第2行内容 显示在 text4内

我用APPEND命令 点一次 command1 会追加一次
我用 random 始终保存在 txt文件的第1行 并替代 原来保存的内容

请问 应该如何正确编写
修改下:
我用 ***output*** 始终保存在 txt文件的第1行 并替代 原来保存的内容

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

前边能做到,

我用APPEND命令 点一次 command1 会追加一次
我用 random 始终保存在 txt文件的第1行 并替代 原来保存的内容

这两句听不懂

给你一个简单的，可以读任意文件，当然只是按照文本文件的读法
------