テキストファイルの置換 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 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
 
このようにしたいのですが、どうすればよいでしょうか。









0
投稿者 魔界の仮面弁士  (社会人) 投稿日時 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)
0
投稿者 BODE  (社会人) 投稿日時 2016/11/5 21:03:06
こんばんは。VBで以下のような処理をさせたいのですがわかりません。

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

どなたかご教授願えますでしょうか。
0