Question

求VB达人指点实现TXT文档中的查找与替换问题?!

条件如下:
1.TXT内容:
1,123456
2,789123
3,中国
4,日本
2.TXT内容:
1,手机
1,电话
1,无线电
2,东京
2,北京
3,台北

比对2.TXT查找1.TXT文档中的是否有1，如果有则将1.TXT内中的1,後123456此内容
取代掉2.TXT文内中所有的1变成123456，并另存为3.TXT.
注:123456此内容并不一定都一样是变数.
请VB高手详解提供语法一下，谢谢感恩了!!~(新手学习)
我试写了以下语法，但不行会报错"输入已超过档案结尾"
Dim a, b, c() As String, d() As String
Open "D:\1.txt" For Input As #1
Open "D:\2.txt" For Input As #2
Open "D:\3.txt" For Output As #3
a = Input(LOF(1), #1)
b = Input(LOF(1), #2)
c = Split(a, ",")
d = Split(b, ",")
If c(0) = 1 And d(0) = 1 Then
e = Replace(c(0), 1, d(1))
msgbox e & "," & c(1)
Print #3, e & "," & c(1)
Else
msgbox "没资料"
GoTo ED
End If
ED:
Close #1
Close #2
Close #3
msgbox "作业完成 D:\3.txt "

Answer 1

Dim a1() As String, a2() As String, s As String, i As Long
Open "D:\2.txt" For Binary As #1
s = Input(LOF(1), #1)
Close #1
Open "D:\1.txt" For Binary As #1
a1 = Split(Input(LOF(1), #1), vbCrLf)
Close #1
For i = 0 To UBound(a1)
a2 = Split(a1(i), ",")
If UBound(a2) > 0 Then s = Replace(s, a2(0) & ",", a2(1) & ",")
Next
Open "D:\3.txt" For Binary As #1
Put #1, , s
Close #1
MsgBox "作业完成 D:\3.txt"

追问

前辈可否每行注解说明一下，小弟新手想了解其逻辑性，劳烦您了，感恩!!~

追答

Dim a1() As String, a2() As String, s As String, i As Long
Open "D:\2.txt" For Binary As #1 '把2.txt按二进制方式打开，可实现精确操作，下同
s = Input(LOF(1), #1) '把2.txt的全部内容读入变量s
Close #1
Open "D:\1.txt" For Binary As #1
a1 = Split(Input(LOF(1), #1), vbCrLf) '把1.txt读入并按行分解为数组a1
Close #1
For i = 0 To UBound(a1) '循环读取数组a1
a2 = Split(a1(i), ",") '把每行按逗号分解为两部分，如a2(0)为1，a2(1)为123456
If UBound(a2) > 0 Then s = Replace(s, a2(0) & ",", a2(1) & ",") '把s中的所有和a2(0)相等的部分替换为a2(1)
Next '继续读取a1中的下一个数（或者说是2.txt的下一行）
Open "D:\3.txt" For Binary As #1
Put #1, , s '把替换后的s存入3.txt
Close #1
MsgBox "作业完成 D:\3.txt"

追问

我测试了ㄧ下，如果变成这样
1.TXT
1,C123
1,C555
2,C654
1,C888
3,R666
4,R55
而2.TXT
1,123452
2,654323
3,666666
4,555555
则3.TXT
1234565432666666,C123 为何这行会乱变成这样?
1234565432666666,C555 这行也是?
65432666666,C654 这行也是?
1234565432666666,C888 这行也是??
666666,R666
555555,R55
请解疑惑，感恩了!

追答

是我没考虑到重复替换的问题。改成下面这样就OK了：

Dim a1() As String, a2() As String, s As String, i As Long
Open "D:\2.txt" For Binary As #1
s = vbCrLf & Input(LOF(1), #1)
Close #1
Open "D:\1.txt" For Binary As #1
a1 = Split(Input(LOF(1), #1), vbCrLf)
Close #1
For i = 0 To UBound(a1)
a2 = Split(a1(i), ",")
If UBound(a2) > 0 Then s = Replace(s, vbCrLf & a2(0) & ",", vbCrLf & a2(1) & ",")
Next
s = Mid(s, 3)
If Dir("d:\3.txt") "" Then Kill "d:\3.txt"
Open "D:\3.txt" For Binary As #1
Put #1, , s
Close #1
MsgBox "作业完成 D:\3.txt"

此外，你要注意不要把1.txt和2.txt的内容搞反了！按你题目的要求，2.txt是被替换的文本，1.txt则是替换的关键词。而你上面的追问明显是把两者搞反了。

追问

我注解你改的，看看对否?
s = vbCrLf & Input(LOF(1), #1) '读入档案全部内容并分行处理放入变量 s
If UBound(a2) > 0 Then s = Replace(s, vbCrLf & a2(0) & ",", vbCrLf & a2(1) & ",") '把 s 中的所有分行和 a2(0) 相等的部分替换为 a2(1)；分行控制码为vbCrLf
s = Mid(s, 3) '将变量 s 中的资料行第3个位置起始读入取代
If Dir("d:\3.txt") "" Then Kill "d:\3.txt" '如果磁碟目录中的目标档案存在，则执行删除该档案