用vb6.0,获取两个txt文本内容，然后把两个文本里相同一数据保留下来并存到一个自定义的文本中？

Question

使用VB6.0，有两个文本，分别为a, b,里面是多行三位数（如图），把两个文本合并到一个文本中命名为（x）,并且保留里面相同的三位数，删除不同的三位数

Answer 1

以下是 VB6.0 代码实现：
Dim a As String, b As String, x As String
Dim arrA() As String, arrB() As String
Dim i As Integer, j As Integer
Dim found As Boolean
' 读取文本 a 和 b
Open "C:\temp\a.txt" For Input As #1
Open "C:\temp\b.txt" For Input As #2
a = Input$(LOF(1), #1)
b = Input$(LOF(2), #2)
Close #1
Close #2
' 将文本 a 和 b 中的行分别存储在数组 arrA 和 arrB 中
arrA = Split(Trim(a), vbCrLf)
arrB = Split(Trim(b), vbCrLf)
' 遍历 arrA 和 arrB，删除不同的三位数，将相同的三位数存储在变量 x 中
For i = 0 To UBound(arrA)
For j = 0 To UBound(arrB)
If arrA(i) = arrB(j) Then
If Not found Then
x = arrA(i) & vbCrLf
found = True
Else
x = x & arrA(i) & vbCrLf
End If
End If
Next j
Next i
' 将结果写入文本文件 x.txt
Open "C:\temp\x.txt" For Output As #3
Print #3, x
Close #3
假设文本 a 和 b 分别位于 C:\temp\a.txt 和 C:\temp\b.txt，合并后的文本位于 C:\temp\x.txt。代码先读取两个文本中的内容，然后将每个文本的行分别存储到数组 arrA 和 arrB 中，接着遍历数组 arrA 和 arrB，找到相同的三位数，将其存储到变量 x 中，并在 x 中保留原有行的换行符（vbCrLf），最后将变量 x 写入新文件 x.txt。