VB6 txt数据合并

来源：百度知道 编辑：UC知道 时间：2024/05/18 21:49:12
合并前——
（文本1）
SH600000 2007-06-01
SH600000 2007-06-04
SH600000 2007-06-05
SH600000 2007-06-06
……
（文本2）
SH600000 2007-06-07
SH600000 2007-06-08
……
合并后——
（文本3）
SH600000 2007-06-01
SH600000 2007-06-04
SH600000 2007-06-05
SH600000 2007-06-06
SH600000 2007-06-07
SH600000 2007-06-08
……
————
要能进行海量数据合并的代码，最好给出注释（用'在代码后面）
邮箱：516020318@qq.com
补充：我说的不是窗体内，而是txt文件之间。
回答：swx1995，
Shell "c:\windows\system32\cmd.exe copy " & ComeF & "+" & ComeS & " " & BackF, vbHide调用无反应。
ShellExecute Me.hwnd, "open", "cmd", "copy " & ComeF & "+" & ComeS & " " & BackF, 1, 5同样无反应。

Dim in1 As String, in2 As String, out As String
in1 = "c:\1.txt" '输入第一个文本
in2 = "c:\2.txt" '第二格文本
out = "c:\3.txt" '合并后的路径
Open "c:\cnew.bat" For Output As #1
Print #1, "@echo off"
Print #1, "copy """ & in1 & """+""" & in2 & """ """ & out & """"
Close #1
Shell "c:\cnew.bat", vbHide

Hi wo ba
I can do it for you.
我做好了
给个油箱发给你

Private Sub Command1_Click()
Text3.Text = Text1.Text & Text2.Text
End Sub
连接起来就行了text的属性里multiline多行文本属性改成true就行了．