（求助）请问我想打开文件，生成新文件1，再打开新文件1生成新文件2，如此反复生成10份新文件，应该怎样做，自己编程实现不了，请高手指教。

Question

Private Sub Command1_Click()
Dim i%, j%
j = 1
For i = 1 To 10
j = j + i
Dim s As String
    Open "C:\Program Files\Motoman\MOTOCOM32\MOTOCOM32DLL\001.JBR" For Input As #1
    Open "C:\Program Files\Motoman\MOTOCOM32\MOTOCOM32DLL\00j.JBR" For Output As #2
    Do
        Line Input #1, s
        
        Print #2, s
        
    Loop While Not EOF(1)
    Close #2
    Close #1
    Next i
  
End Sub
以上是自己编的，但文件名00j.JBR不会变成002，003，004...... ,希望有高手能指点一下

Answer 1

dim s as string
dim ss as strings = trim(cstr(j))
ss = trim(cstr(j+1))
s = string( 3-len(s), "0") & s
ss = string( 3 - len(ss), "0") & ss
open "C:\Program Files\Motoman\MOTOCOM32\MOTOCOM32DLL\" & s & ".JBR" For Input As #1 
open "C:\Program Files\Motoman\MOTOCOM32\MOTOCOM32DLL\" & ss & ".JBR" For Input As #1 

Answer 2

Dim fname$, i%
Private Sub Form_Load()
   For i = 1 To 10
      fname = "C:\Program Files\Motoman\MOTOCOM32\MOTOCOM32DLL\" & Format(CStr(i), "000") & ".JBR"
      Open fname For Output As #1
      'Print #1, String(6, CStr(i))  '如果你是用.txt的话则自动写入6个i的值,jbr应该是图片格式?
      Close #1
   Next i
End Sub

Answer 3

首先感谢jennyvenus ，cbm666，看完前者的程序，我已经编好了我要的程序。但为了给分公平，我又把后者的程序放到vb里试了一遍，不知cbm666没有理解我的帖子内容还是怎样，后者的程序虽然可以根据前一个文件循环生成十个文件，但文件内容却和首个文件001完全无关。后生成的文件内容仅为222222，333333等。和我的初衷不符。所以我把分给了jennyvenus 。有不妥之处希望cbm666包涵。

Answer 4

其实cbm666的更好用，明显format比string + len方便。

Answer 5

我程序里没用len，就用的数字2，确实cbm666的程序简单，不过没实现我的目的，刚才又修改下cmb666的程序，还是没能读出001文件内容，可能是我vb学的太烂了，呵呵

Answer 6

Option ExplicitPrivate Sub Command1_Click()
    Dim fname1$, i%
    Dim fname2$
    Dim s As String
    
    For i = 1 To 10
        fname1 = "C:\" & Format(CStr(i), "000") & ".JBR"
        fname2 = "C:\\" & Format(CStr(i + 1), "000") & ".JBR"
        Open fname1 For Input As #1
        Open fname2 For Output As #2
        'Print #1, String(6, CStr(i))  '如果你是用.txt的话则自动写入6个i的值,jbr应该是图片格式?
        Do
            Line Input #1, s
            Print #2, s
        Loop While Not EOF(1)
        Close #2
        Close #1
    Next iEnd Sub