7,763
社区成员
发帖
与我相关
我的任务
分享
Public Sub GetDataToFile(ByVal inFile As String, ByVal outFile As String)
Dim FN As Integer, Str As String, ArrA() As String, ArrB() As String
If Len(Dir(inFile)) = 0 Then Exit Sub
FN = FreeFile
Open inFile For Binary As FN
Str = Space(LOF(FN))
Get #FN, , Str
Close #FN
ArrA = Split(Str, vbCrLf)
If Len(Dir(outFile)) > 0 Then Kill outFile
FN = FreeFile
Open outFile For Output As FN
ArrB = Split(ArrA(2), ",")
Print #FN, ArrB(4)
ArrB = Split(ArrA(3), ",")
Print #FN, ArrB(4)
ArrB = Split(ArrA(4), ",")
Print #FN, ArrB(4)
Close FN
Erase ArrA
Erase ArrB
End Sub
Public Sub GetDataToFile(ByVal inFile As String, ByVal outFile As String)
Dim FN As Integer, Str As String, ArrA() As String, ArrB() As String
If Len(Dir(inFile)) = 0 Then Exit Sub
FN = FreeFile
Open inFile For Binary As FN
Str = Space(LOF(FN))
Get #FN, , Str
Close #FN
ArrA = Split(Str, vbCrLf)
If Len(Dir(outFile)) > 0 Then Kill outFile
FN = FreeFile
Open outFile For Output As FN
ArrB = Split(ArrA(2), ",")
Print #FN, ArrB(4)
ArrB = Split(ArrA(3), ",")
Print #FN, ArrB(4)
Close FN
Erase ArrA
Erase ArrB
End Sub