テキストファイルの置換
投稿者 魔界の仮面弁士  (社会人)
投稿日時
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
このようにしたいのですが、どうすればよいでしょうか。
素晴らしい回答をありがとうございます。
ばっちり置換できました。
追加の質問で恐縮なのですが、
下記のようなテキストファイルがあります。
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
このようにしたいのですが、どうすればよいでしょうか。
TEXTHOGE.txtを読み込んで
すべての行において文字列" "を""に置換した後
TEXTHOGE2.txtとして保存する。
どなたかご教授願えますでしょうか。