Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40953 / 76732

←次へ　｜　前へ→


	【40867】Re:テキストデータの読込み後の処理に関して

Kein - 06/7/25(火) 14:54 -


	引用なし

	パスワード

>毎回ＭＩＤ関数で位置・長さを定義
というところから推測すると、固定長のテキストですか ?
それならLeft,Right,Mid関数を使っても問題ないと思います。
ただし、わざわざワークシートに書き出す必要はありません。
以下のようにして、読み込みと書き出しを一度で済ませてしまえば
良いのです。

Sub Mk_ReNewText()
　 Dim MyF As String, MyF2 As String
　 Dim Buf1 As String, Buf2 As String
　 Dim Fnum1 As Long, Fnum2 As Long

　 MyF = Application _
　 .GetOpenFilename("テキストファイル(*.txt),*.txt")
　 If MyF = "False" Then Exit Sub
　 MyF2 = Left$(MyF, Len(MyF) - 4) & "ReNew.txt"
　 Fnum1 = FreeFile()
　 Open MyF For Input Access Read As #Fnum1
　 Fnum2 = FreeFile()
　 Open MyF2 For OutPut Access Write As #Fnum2
　 Do Until EOF(Fnum1)
　　　Line Input #Fnum1, Buf1
　　　Buf2 = Left$(Buf1, 2) & "," & Mid$(Buf1, 3, 3) & _
　　　"," & Mid$(Buf1, 6, 2) & "," & Right$(Buf1, 2)
　　　Print #Fnum2, Buf2
　　　Buf1 = "": Buf2 = ""
　 Loop
　 Close #Fnum2: Close #Fnum1
　 MsgBox Dir(MyF2) & vbLf & "を作成しました", 64
End Sub

0 hits

▼

【40863】テキストデータの読込み後の処理に関して 質問（初心者Ａ氏） 06/7/25(火) 14:18