VB对照TXT的数据，对TXT的数据进行修改。

Question

具体情况比较复杂，我就做一个假设吧：
假设，一个程序。
包含Text1（0）~Text1（10）共计11个数据。
另外还有一个控件Command1
-----------------
我希望，点击Command1后，
打开"\1.txt"文件，并进行对比。
“1.txt”的文件内容为：
张三1111222233334444555566667777888899990000
李四1234123412341234567856785678567890900909
而程序中的数据为：
Text1（0）为2~6个汉字
Text1（1）~Text1（10）一律都为4位数字
Text1（0）代表数据的名字了。
如果在txt中存在Text1（0）排头的数据，则以Text1（1）~Text1（10）覆盖该段数据。
如果在txt中，不存在Text1（0）排头的数据，则在txt最后按照以上格式添加数据。
-----------------
PS：txt格式不固定，如果以上格式不好实现，可以是其他格式，关键是想实现，点下Command1，对Text1（0）进行对比，并修改那一条数据。
求大神出手~！！！
（我是菜鸟VB新手，概念什么的说了我也不懂。我就想让这个程序能用就可以了，做出来我自己用的。）

Answer 1

不知道你的数据文件，1.txt中存的数据有多少，还是只有示例中的两个？
如果只有两行数据，情况比较简单，如果内容比较多，恐怕不是简单覆盖能解决的，你的每一条记录都是需要有格式的，要不然，迟早会出现混乱。
如果数据量不只是两条，而是比较多的话，建议改用数据库实现，编写代码量少，而且结构清晰易懂。数据文件安全性也高。

追问

数据不断的追加的啊。
如果Text1（0），则在最后再添加一行。

反正确保每行数据格式一样（不一定要我说的TXT格式）
最初TXT会是空的。
之后不断的添加，添加。
每次添加如果Text1（0）相同，则是修改后面的数据。

如果不同就是最后添加数据。
就是这样。

追答

建议用数据库，不要用txt了。

追问

数据库怎么弄，我是VB新手，高深的不会。
不求弄懂，就希望这个VB程序可以正常工作。
求大神直接编写出来，我照搬好了。。。。呵呵呵呵呵

Answer 2

'纯按你的要求,你试试,如果行就采纳,不行也别追问
Private Sub Command1_Click()
Dim k&, tmpStr$, strTxt$, c&
Dim sp() As String
Open App.Path & "\1.txt" For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
tmpStr = tmpStr & strTxt & vbCrLf
Loop
Close #1
sp = Split(tmpStr, vbCrLf)
For k = 0 To UBound(sp)
If InStr(sp(k), Text1(0)) Then
sp(k) = Text1(0) & "1111" '这里的数字部分改为你的Text1(1-10)的数据
End If
Next
Open App.Path & "\1.txt" For Output As #1
If InStr(tmpStr, Text1(0)) Then
For k = 0 To UBound(sp) - 1
Print #1, sp(k):
Next
Else
Print #1, tmpStr & Text1(0) & "1111"
End If
Close #1
End Sub

追问

为什么不行的话，不能追问？

追答

呵呵,你还在啊,这么快就追问了,我是边写边测试,我测试是通过,就是不知道你测试行不行
变量c没用到,Print #1, sp(k):后面的冒号是多余的

追问

报错啊。

Run-time error '53':
File not found