VB处理字符串

来源：百度知道 编辑：UC知道 时间：2024/05/29 09:36:28
在C盘有两个文件，第一个文件名为a.txt
第二个文件名为b.txt
A文件格式如下：
aaaa@@bbbbb##ccccc
3333@@bbbbb##ccccc
3333@@bbbbb##ccccc
aaaa@@bbbbb##ccccc
B文件格式如下：
aaaa@@bbbbb##ccccc
aaaa@@3333##ccccc
aaaa@@3333##ccccc
aaaa@@bbbbb##ccccc

读C盘上的文件A文件的@@符号前面的字符
对比B文件的@@和##之间的字符，如果相等
把B文件的正行字符串和相等字符写在C.txt
文件里，怎么实现，高手帮忙

vb6.0环境下建立工程文件，把上述两个文件分别放在d盘根目录。窗体上命令按钮command1，添加如下代码。即可。

Private Sub Command1_Click()
Dim a() As String, b() As String
Dim i As Integer, j As Integer
'将a.txt文件内容读入数组a
Open "d:\a.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
ReDim Preserve a(i) As String
Line Input #1, a(i)
Loop
Close
'将b.txt文件内容读入数组b
Open "d:\b.txt" For Input As #2
Do While Not EOF(2)
j = j + 1
ReDim Preserve b(j) As String
Line Input #2, b(j)
Loop
Close
'打开文件c.txt，比较对应字段，并写入
Open "d:\c.txt" For Output As #3
For i = 1 To UBound(a)
If (Left(a(i), InStr(1, a(i), "@@") - 1) = Mid(b(i), InStr(1, b(i), "@@") + 2, InStr(1, b(i), "##") - InStr(1, b(i), "@@") - 2)) Then
Print #3, b(i)
End If
Next
Close
End Sub