如何用VB编程读取几个记事本的数据

Question

我现在有2个（或者N个记事本）每个记事本里面都有一个或者多个三维坐标记录，每个记录为一行，我想把这些记事本里面的坐标，读取然后写入一个记事本中，仍然是每条记录为一行的格式。请各位帮下忙！
我已经找到答案了，比下面给的要简单！ - -所以分数随便给了啊。也是在网上搜到的！

Answer 1

Private Sub Form_Load()
Dim strPath As String, temp As String, strT As String, i As Integer
strPath = "z:\" & i '预合并记事本路径 先更名为0.txt,1.txt类推
newPath = "C:\Test.txt" '新路径
Do While Dir(strPath & ".txt") <> ""
Open strPath & ".txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
strT = strT & temp & vbCrLf
Loop
Close #1
i = i + 1
strPath = "z:\" & i
Loop
Open newPath For Output As #1
Print #1, strT
Close #1
End Sub

Answer 2

Dim i As Integer, S As String, Files, Dst As String
Dim a() As Byte
Files = Array("c:\1.txt", "c:\2.txt") '源文件列表，请修改
Dst = "d:\a.txt" '合并后的目标文件名，请修改
'****以下为通用代码，不必修改****
If Dir(Dst) <> "" Then Kill Dst
Open Dst For Binary As #1
For i = 0 To UBound(Files) '依次读取每一个源文件的内容
S = Files(i)
If Dir(S) <> "" Then
ReDim a(FileLen(S) - 1)
Open S For Binary As #2
Get #2, , a
If a(UBound(a) - 1) & a(UBound(a)) <> vbNewLine Then
Put #1, , vbNewLine '确保最后一条记录后面为回车符
End If
Put #1, , a '追加到目标文件
Close #2
End If
Next
Close #1

Answer 3

楼主，你说的我不是很清楚，
1、这个文本是打开状态的还是储存状态的？
2、这么选择这些文本？是在一个目录下还是让你一个一个手工选？