vb 记事本 内容 合并

Question

c:\123.txt 内容 123
c:\456.txt 内容 456
c:\789.txt 内容 789
合并后c:\aaa.txt 内容 123
456
789
请高手赐代码!!!!!
或者合并后c:\123.txt 内容
123
456
789

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim myStr As String
Dim strLine As String
Open "c:\123.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
myStr = myStr & strLine & vbCrLf
Loop
Close
Open "c:\456.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
myStr = myStr & strLine & vbCrLf
Loop
Close
Open "c:\789.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
myStr = myStr & strLine & vbCrLf
Loop
Close
Open "c:\aaa.txt" For Output As #1
Print #1, myStr
Close
End Sub

Answer 2

Option Explicit
Const ForReading = 1, ForWriting = 2
Dim fso, f
Dim TempStr As String
'读文件的函数
Private Function ReadAllTextFile(ByVal FileName As String) As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, ForReading)
ReadAllTextFile = f.ReadAll
End Function
'写文件的函数
Private Function WriteLineToFile(ByVal FileName As String) As Boolean
Set f = fso.OpenTextFile(FileName, ForWriting, True)
f.WriteLine TempStr
End Function

Private Sub Form_Load()
Set fso = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Command1_Click()
'读两个源文件到变量中,中间用回车换行连接
TempStr = ReadAllTextFile("c:\1.txt") & vbCrLf & ReadAllTextFile("c:\2.txt")
'写到目的文件中去
WriteLineToFile "c:\3.txt"
End Sub

你在C盘 创建名字 1和2 2个文本 然后写上内容 然后运行这个代码