顺序打开 N个txt文件.连续写进一个 txt 中.

Question

Private Sub Command1_Click()
  Dim MyStr As String  '248-250 txt 内容
  Dim allstr As String 'all.txt 内容
  Dim i As Integer, iTxtstr As String '文件名 循环用  ' Open "C:\Documents and Settings\Xia\桌面\新建文件夹 (2)\all.txt" For Output As #1  For i = 248 To 250
    iTxtstr = "0" & i & ".JPG.TXT"       '0248.jpg.txt
    Open "C:\Documents and Settings\Xia\桌面\新建文件夹 (2)\" & iTxtstr For Input As #1
      Do While Not EOF(1)
        Line Input #1, MyStr        Text1.Text = Text1.Text & MyStr & vbCrLf'    Open "C:\Documents and Settings\Xia\桌面\新建文件夹 (2)\all.txt" For Output As #2
     
     这里不会写了.. - - 想象上面的 text1 里显示的一样. 写进同路径下的 all.txt 里'    close #2      Close #1
    Next i
  End Sub
求助..

Answer 1

Open "C:\Documents and Settings\Xia\桌面\新建文件夹 (2)\all.txt" For Append As #2

Answer 2

For i = 248 To 250
    iTxtstr = "0" & i & ".JPG.TXT"       '0248.jpg.txt
    Open "C:\Documents and Settings\Xia\桌面\新建文件夹 (2)\" & iTxtstr For Input As #1
      Do While Not EOF(1)
        Line Input #1, MyStr        Text1.Text = Text1.Text & MyStr & vbCrLf    Next i
    Close #1    Open "C:\Documents and Settings\Xia\桌面\新建文件夹 (2)\all.txt" For Output As #2
    print #2, Text1.Text    
    close #2     
  End Sub

Answer 3

补充.
Text1.Text = Text1.Text & MyStr & vbCrLf
只是现在测试时候用下.
也不光是  248-250这么少  - - 
是...  017 - 888
Visual Basic 6编程技术大全 PDF 888页 -.-用text1的话   卡死了吧. - -

Answer 4

自己稍微修改一下。Private Sub Command1_Click()
Dim MyStr As String  '248-250 txt 内容
Dim allstr As String 'all.txt 内容
Dim i As Integer, iTxtstr As String '文件名 循环用
Dim s$
For i = 248 To 250
    iTxtstr = "d:\" & i & ".TXT"       '路径自己修改
    Open iTxtstr For Binary As #1
    s = Input(LOF(1), #1)
    Close #1
    
    Open "d:\all.txt" For Append As #1
    Print #1, s
    Close #1
Next i
MsgBox "ok"
End Sub

Answer 5

如果多的话再修改一下，避免连续写入。Private Sub Command1_Click()
Dim MyStr As String  '248-250 txt 内容
Dim allstr As String 'all.txt 内容
Dim i As Integer, iTxtstr As String '文件名 循环用
Dim s$
For i = 248 To 250
    DoEvents
    iTxtstr = "d:\" & i & ".TXT"       '路径自己修改
    Open iTxtstr For Binary As #1
    s = s & Input(LOF(1), #1) & vbCrLf
    Close #1
Next i
Open "d:\all.txt" For Output As #1
Print #1, s
Close #1
MsgBox "ok"
End Sub

Answer 6

For i = 248 To 250
iTxtstr = "0" & i & ".JPG.TXT" '0248.jpg.txt
Open "C:\Documents and Settings\Xia\桌面\新建文件夹 (2)\" & iTxtstr For Input As #1
Do While Not EOF(1)
Line Input #1, MyStr
Text1.Text = Text1.Text & MyStr & vbCrLf
loop
Close #1
Next iOpen "C:\Documents and Settings\Xia\桌面\新建文件夹 (2)\all.txt" For Output As #2
print #2, Text1.Text 
close #2 
End Sub

Answer 7

Line Input #1, MyStr
一行一行的去取? 当然卡死了;用get 语句或者input函数一起取出来吧.

Answer 8

Private Sub Command1_Click()
    Dim i As Integer, fnm As String, iStr As String
    For i = 7 To 888
        fnm = "c:\111\" & Format(i, "0000") & ".JPG.TXT"
        Open fnm For Input As #1
        iStr = input(lof(1),1)
        Open "c:\111\all.txt" For Append As #2
        Print #2, iStr
        Close
    Next
    
End Sub呵呵，你继续前进……