VB6.0把三个文本文件写入同一个文本文件

Question

现有文件1.txt 2.txt 3.txt
我要把文件1、2、3可先择的写入文件4.txt
就是我选择1、2，就把1、2两个文件写入4.txt,选择1、3就把文件1、3写入4.txt
要求，如果选择了3，就必须把3写在文件的最前面。
请问代码怎么写？
我选择用复选框！

前面三个对应三个复选框，那么下面的代码要建立一个什么呢？我用Command,提示我缺少Endsub
Open "c:\4.txt" For Output As #1 '写入到文件4
Print #1, str1
Close #1
End Sub

Answer 1

【看我的】【最新修改·测试无误】
首先，你要先在窗体上放3个checkbox（即复选框）。代码如下：
（文件路径自己改）
Dim str1 As String, temp As String

Private Sub Command1_Click()
str1 = "": temp = ""
If Check3.Value = 1 Then '首先检查文件3，确保第一个被写入
Open "c:\3.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
str1 = str1 & temp & vbCrLf
Loop
str1 = str1 + vbCrLf
Close #1
End If

If Check1.Value = 1 Then
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
str1 = str1 & temp & vbCrLf
Loop
str1 = str1 + vbCrLf
Close #1
End If

If Check2.Value = 1 Then
Open "c:\2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
str1 = str1 & temp & vbCrLf
Loop
Close #1
End If

Open "c:\4.txt" For Output As #1 '写入到文件4
Print #1, str1
Close #1
End Sub
【搞定】

Answer 2

我写过一个比这复杂很多的程序

Answer 3

open "c:\1.txt" for input as #1
do while not eof(1)
line input #1,temp
str1=str1 & temp & vbcrlf
loop
close #1

open "c:\2.txt" for input as #1
do while not eof(1)
line input #1,temp
str1=str1 & temp & vbcrlf
loop
close #1

open "c:\3.txt" for input as #1
do while not eof(1)
line input #1,temp
str1=str1 & temp & vbcrlf
loop
close #1

open "c:\4.txt" for output #1
print #1,str1
close #1

Answer 4

你会写一个就会写3个
做3个勾选框
按钮写文件的时候顺序判断3个勾选框的状态,
既然3要在最前面,那就倒着判断

伪代码:

If 第3个选中 Then
写入文件3到文件4
End If
If 第2个选中 Then
写入文件2到文件4
End If
If 第1个选中 Then
写入文件1到文件4
End If