|
#2
风吹过b2018-11-22 11:30
|
程序代码：Dim ar() As Byte
Open "C:\Users\bocheng\Desktop\1.txt" For Binary As #1
ReDim ar(1 To LOF(1)) As Byte
Get #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\2.txt" For Binary As #1
Put #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\1.txt" For Binary As #1
ReDim ar(1 To LOF(1)) As Byte
Get #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\2.txt" For Binary As #1
Put #1, , ar
Close #1
2.txt比1.txt后面多个空格
程序代码：Dim ar() As Byte
Open "C:\Users\bocheng\Desktop\1.txt" For Binary As #1
ReDim ar(1 To LOF(1)) As Byte
Get #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\2.txt" For Binary As #1
Put #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\2.txt" For Binary As #1
Get #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\3.txt" For Binary As #1
Put #1, , ar
Close #1
End
Open "C:\Users\bocheng\Desktop\1.txt" For Binary As #1
ReDim ar(1 To LOF(1)) As Byte
Get #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\2.txt" For Binary As #1
Put #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\2.txt" For Binary As #1
Get #1, , ar
Close #1
Open "C:\Users\bocheng\Desktop\3.txt" For Binary As #1
Put #1, , ar
Close #1
End
2.txt还是多个空格，3.txt就正常，谁来解释下？