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...... ,希望有高手能指点一下
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...... ,希望有高手能指点一下
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
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
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