UC知道VB修改该文件
来源：百度知道 编辑：UC知道 时间：2024/05/13 07:25:53
修改TXT文件，我希望在TEXTBOX输入数据，改变TXT里面数据。
例如：
12 34 56 78 86 23
12 45 79 12 87 08
比如说我在TEXTBOX中输入18 我想改变第二行第四个的12
结果:
12 34 56 78 86 23
12 45 79 18 87 08
注：我的TXT文件比较庞大 这个只是例子
请给位高手帮忙 谢谢 我就新注册 只能给10分了
要是有多个数据 多个TEXTBOX 应该怎么样处理？一个TEXTBOX对应一个修改的位置。
例如：
12 34 56 78 86 23
12 45 79 12 87 08
比如说我在TEXTBOX中输入18 我想改变第二行第四个的12
结果:
12 34 56 78 86 23
12 45 79 18 87 08
注：我的TXT文件比较庞大 这个只是例子
请给位高手帮忙 谢谢 我就新注册 只能给10分了
要是有多个数据 多个TEXTBOX 应该怎么样处理？一个TEXTBOX对应一个修改的位置。
建议楼主还是改变一下思路，比如把文件导入到excel中，设置导入方法为“以空格作为列标志”，这样把txt文件变为excel表格来处理就方便多了。excel2003以上版本的行列数比较庞大，相信你的txt文件再大也不会溢出吧。
excel导入的菜单在“数据”“导入外部数据”“文本文件”。
我自己用最少的代码完成这个过程，楼主参考下：
通用部分声明一个数组：
Dim a2()
'这个过程创建一个数组a2()(),注意这不是一般的两维数组，而是一个一维数组，其中每维都各是一个一维数组。这样就把txt变成一个类似两维数组，以后行列定位就方便了。
Private Sub Command1_Click()
Open "c:\testfile.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, t
r = r + 1
ReDim Preserve a2(1 To r)
a2(r) = Split(t, " ")
Loop
Close
End Sub
'这个过程就是修改某行某列用的
Private Sub Command2_Click()
r = InputBox("行数")
c = InputBox("列数")
a2(r)(c - 1) = Text1
End Sub
'这个过程把修改过的数组写回文件
Private Sub Command3_Click()
Open "c:\testfiletemp.txt" For Output As #1
For i = 1 To UBound