Question

VB 怎样读取和替换写入TXT

有Text1，Text2 ， Text3, Text4, ……到text50, 控件 和 文本.txt 文件。

要求：Form 打开后，立刻读取 TXT 文件的前50行，将数值赋给Text控件，
text1.text= (TXT文件的第一行），Text2.text=(TXT的第二行），……,Text50.text=(TXT文件的第50行），依次类推！！

Form退出时，将Text1.text的值写入到TXT文件的第一行，Text2.text的值写入到TXT文件的第二行，……，依次类推！！Text50.text的值写入到TXT的第50行。注意：要将TXT中原有的数值替换掉。
例如Text1.text的值写入文件前要将TXT第一行的数据先删除掉。

程序可运行并有用的话追加分数！！！ QQ：47368419

Answer 1

'1、在窗口添加一个 Text 控件，然后再复制 49 个（一共 50 个 Text控件）
'2、在程序目录下自己先建一个文本文件（文件名：文本.txt）
'3、将以下代码直接复制使用

Dim Txt As String

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 49
Text1(i).Text = ""
Next i
i = 0

Txt = "文本.Txt"

If Dir(Txt) <> "" Then
Open Txt For Input As #1
Do Until EOF(1)
Line Input #1, tmpstr
Text1(i).Text = tmpstr
i = i + 1
If i = 50 Then
Exit Do
End If
Loop
Close #1
Else
MsgBox "程序目录下不存在 【" & Txt & "】 文件。 "
For i = 0 To 49
Text1(i).Text = ""
Next
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call SaveTxt
End Sub

Private Sub SaveTxt()
Dim SaveText As String

For i = 0 To 49
SaveText = SaveText & Text1(i).Text & vbCrLf
Next i

Open Txt For Output Access Write As #1
Print #1, SaveText
Close #1
End Sub

Answer 2

问电脑工作者。
分别浪费了，给我吧！(*^__^*)！
o(∩_∩)o