テキストファイルの置換

タグの編集
投稿者 BODE  (社会人) 投稿日時 2016/11/5 21:03:06
こんばんは。VBで以下のような処理をさせたいのですがわかりません。

TEXTHOGE.txtを読み込んで
すべての行において文字列"     "を""に置換した後
TEXTHOGE2.txtとして保存する。

どなたかご教授願えますでしょうか。
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2016/11/5 21:57:12
'Imports System.IO 
Dim srcPath As String = "C:\TEST\TEXTHOGE.txt"

Dim dstFolder As String = Path.GetDirectoryName(srcPath)
Dim dstFile As String = Path.GetFileNameWithoutExtension(srcPath) & "2" & Path.GetExtension(srcPath)

'Dim dstPath As String = "C:\TEST\TEXTHOGE2.txt" 
Dim dstPath As String = Path.Combine(dstFolder, dstFile)

Dim enc = System.Text.Encoding.GetEncoding("Shift_JIS")
Dim oldText As String = File.ReadAllText(srcPath, enc)
Dim newText As String = oldText.Replace("     """)
File.WriteAllText(dstPath, newText, enc)
投稿者 BODE  (社会人) 投稿日時 2016/11/6 13:08:15
魔界の仮面弁士様
素晴らしい回答をありがとうございます。
ばっちり置換できました。

追加の質問で恐縮なのですが、
下記のようなテキストファイルがあります。

N0001,X1,F001 
X1,F002
X2,F001
N0002,X4,F003
X1,F002
X5,F006
N0003,X1,F008
X6,F003 
N0004,X2,F002

N とは行番号のようなものなのですが、
これを

N0001,X1,F001 
N0001,X1,F002
N0001,X2,F001
N0002,X4,F003
N0002,X1,F002
N0002,X5,F006
N0003,X1,F008
N0003,X6,F003 
N0004,X2,F002
 
このようにしたいのですが、どうすればよいでしょうか。