Get后put多个空格是为什么？ - VB6论坛

楼主

问题点数：0 回复次数：0

Get后put多个空格是为什么？

程序代码：

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

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

2.txt还是多个空格，3.txt就正常，谁来解释下？

搜索更多相关主题的帖子: Desktop　txt　For　Binary　Close　