7,765
社区成员
发帖
与我相关
我的任务
分享
Dim Bit As Byte
Dim n As Long
Open "d:\maplog.txt" For Binary As #1
Open "d:\maplog.txt" For Binary As #2
n = LOF(1)
While Loc(1) < n
Get 1, , Bit
Put 2, , Bit
Wend
Close 1
Close 2
Dim Bit As Byte
Open "d:\maplog.txt" For Binary As #1
Open "d:\maplog1.txt" For Binary As #2
Do
Get #1, , Bit
if EOF(1) then exit do
Put #2, , Bit
Loop
Close #1
Close #2
Private Sub Command1_Click()
Dim Bit() As Byte
Dim lByte As Long
Open "\1.txt" For Binary As #1
Open "\2.txt" For Binary As #2
lByte = LOF(1)
ReDim Bit(lByte - 1)
Get #1, , Bit()
Put #2, , Bit()
Close #1
Close #2
End Sub