用vb 如何修改文件中的数据

来源：百度知道 编辑：UC知道 时间：2024/07/02 19:03:03
我的文件是txt的文本文件，里面存了一些数据，并且存的方法是每行5个数，现在我想做个程序，修改文件里的数据，我是不是可以将文件中的数据读到数组里，在数组里修改了之后再读入源文件，并且将原文件覆盖，请教大侠。急~~

Private Sub Command1_Click()
Dim A() As Integer, B
Open "C:\tt2.txt" For Input As #1
n = 0
While Not EOF(1)
Line Input #1, S
B = Split(S, " ") '注意，每行的数据，是以空格隔开
If UBound(B) = 4 Then
n = n + 1
ReDim Preserve A(1 To 5, 1 To n) As Integer
For i = 0 To 4
A(i + 1, n) = B(i)
Next
End If
Wend
Close #1

'中间你可以修改某个值
A(3, 1) = 333

'下面开始存储
Open "C:\tt2.txt" For Output As #1
S = ""
For i = 1 To n
For j = 1 To 5
S = S & A(j, i) & IIf(j < 5, " ", "")
Next
If i < n Then S = S & vbCrLf
Next
Print #1, S
Close #1

End Sub

可以。