7,764
社区成员
发帖
与我相关
我的任务
分享
Dim i As Long
Dim strData As String
Dim strArray() As String
Open strOldFileName For Binary As #1
strData = Input(LOF(1), 1)
Close #1
strArray = Split(strData, " ")
strData = ""
For i = 1 To bound(strArray)
strData = strData & vbCrLf & strArray(i)
Next
strData = Mid(strData, 3)
Open strNewFileName For Binary As #1
Put #1, , strData
Close #1