Public Sub TextToCSV(ByVal pInPath As String, ByVal pOutPath As String) Const C_DELIM As String = "," '区切り文字 Dim s As String:Dim s2 As String:Dim ss() As String Dim fnoIn As Long: Dim fnoOut As Long
'ファイル開く fnoIn = FreeFile: Open pInPath For Input As #fnoIn fnoOut = FreeFile: Open pOutPath For Output As #fnoOut
'ファイル終了まで繰り返し Do While (EOF(fnoIn)) '１行読み出し Line Input #fnoIn, s '特定のバイト位置に区切り文字を入れた文字列を作成する。 'イメージ000001111122222⇒00000,11111,22222 s2 = Mid(s, 1, 5) & "," & Mid(s, 6, 5) & "," & Mid(s, 11, 5) '区切り文字が入った文字列をSplitで配列に出力 ss = Split(s2) '各要素のチェックをする If ss(0) = "99999" Then GoTo LOOP_NEXT 'ここまで来たら大丈夫のようなのでカンマ入り文字列(s2)ＣＳＶに出力する Print #fnoOut, s2 LOOP_NEXT: Loop Close #fnoIn: Close #fnoOut End Sub
