テキストファイルの中身を自動で置換したい

質問

VBA初心者なので説明不足な部分があると思いますがよろしくお願い致します

現在テキストファイルを開いてCtrl＋Hで検索する文字列を検索
置換後の文字列を入力し置換しているのですが
ファイル数が多く1つ1つ開いて置換するのがとても面倒です

Excelで開けば良いのでは？と前にご意見をいただいたのですが
Excelで開いてそこからの操作がよくわからず…。
できればボタン一つで自動的に置き換えられるようにしたいのですが
どのようにコードを書けば良いのかまったくわかりません。

・指定フォルダー内にある（1つまたは複数の）テキストファイル内の文字列をすべてセルに書き出す
・セルから特定の文字（例→【 ,F1 】）を検索し、特定の文字（例→【 ,A2 】）に置換する
・上書きして保存

という感じにしたいのですができますでしょうか？
無理そうでしたら大丈夫です
閲覧いただきありがとうございました

回答No.3

SI299792 · ベストアンサー

VBA です
①対象は
　A フォルダの中の全テキストファイルが対象なのか、
　B フォルダの中からテキストファイルを選択するのか
②変換したい文字は
　A 複数
　B １つだけ
③文字コードは
　A ANSI（シフトジス）
　B それ以外。
取りあえず、A で作りました。
画像の様に
B1、入力フォルダ
B2、出力フォルダ
A5以下、痴漢前の文字
B4以下、痴漢後の文字
を入力して実行して下さい。

※必ず文字コードを確認して下さい。文字コードはメモ帳で開いて、ファイル、名前を付けて保存の画面を出せば、下の方に出てきます。ANSI以外だったら文字化けします。
\ はコピペすると半角￥になります。
Option Explicit
'
Sub Macro1()
　　Dim FileName As Variant
　　Dim RInp As Long
　　Dim Find As String
　　Dim Repl As String
　　Dim FileData As String
'
　　FileName = Dir([B1] & "\*.txt")
　　If FileName = "" Then
　　　　MsgBox "該当ファイルがありません", vbCritical
　　End If
'
　　On Error Resume Next
　　MkDir [B2]
　　On Error GoTo 0
'
　　Do While FileName > ""
　　　　Open [B1] & "\" & FileName For Input As #1
　　　　Open [B2] & "\" & FileName For Output As #2
'
　　　　Do Until EOF(1)
　　　　　　Line Input #1, FileData
'
　　　　　　For RInp = 5 To Cells(Rows.Count, "A").End(xlUp).Row
　　　　　　　　Find = Cells(RInp, "A")
　　　　　　　　Repl = Cells(RInp, "B")
　　　　　　　　FileData = Replace(FileData, Find, Repl)
　　　　　　Next RInp
　　　　　　Print #2, FileData
　　　　Loop
　　　　Close
　　　　FileName = Dir
　　Loop
　　MsgBox "終了しました"
End Sub

①～③を変身して下さい。

お礼

①A　②A　③A(右下ANSIでした)
先程動作確認を行い無事置換することができました
率直な質問内容でなかったにも関わらず貴重なお時間を割いて
このような素晴らしいプログラムを作っていただきありがとうございました

回答No.5

imogasi

自動で、とか、対象が多数で面倒というなら、色々言わず、質問文に、「プログラムでやりたい」、と率直に書くべきだ。それ以外は既製ソフトを使うしかないが、簡単には見つからないものだ。
＞VBA初心者なので説明不足な部分・・
別の問題だろう。やりたいことを、過不足なく表現する技術こそ、コード作成以上に
人生で大切と思う。個人的に、これの訓練をしてないような質問者が多いと思う。
ファイル名やレコードの内容の、模擬実例を、質問するなら、少数例あげるべきだと思う。
＞ファイル数が多く
であれば、ファイルパスの（文字列です）リストを持つか、または同一フォルダー内にそれら対象のファイルに集めて、処理の繰り返しに持ち込むことになろう。
ーー
こういうのは、FSOを使うのがよいでしょう。
（１）VBAとの親和性
（２）テキストファイルのレコード的に、Read,Writeができる
（３）置換かVBAコードで出来る
（４）For Eachがファイル内のファイル補足に使える。
（５）WEBで、解説記事が多い。
参考に
標準モジュールに
Sub test01()
'参考WEB記事
'http://officetanaka.net/excel/vba/filesystemobject/filesystemobject25.htm
'http://www2.tokai.or.jp/mother/newhtm2/acvba/av09/av005.htm
'---
Set FSO = CreateObject("Scripting.FileSystemObject")
'テキストストリームオブジェクトの取得（読み込みモード）
'ーーーインプット・ファイルパス
strPath = "C:\Users\惇\ドキュメント\Documents\テスト５.txt"
Set tso = FSO.OpenTextFile(strPath)
'---アウトプット・ファイルパス
ofilename = "C:\Users\惇\ドキュメント\Documents\テスト７.txt"
Set outTxt = FSO.CreateTextFile(ofilename, True)
'ーーー
With tso
Do Until .AtEndOfStream 'ファイル末尾まで繰り返し
'イミディエイトウィンドウへ読み込み位置と値を表示
buf = .Readline
MsgBox buf
'---置換　2箇所置換の例。置換箇所が、多い場合は重ねを増やせる。
repAfter = Replace(buf, "府中市", "稲城市")
repAfter = Replace(repAfter, "東灘区", "灘区")
MsgBox repAfter
outTxt.Write repAfter
Loop
'-------ファイルクーロズ
tso.Close 'ファイルのクローズ
outTxt.Close 'ファイルのクローズ
End With
End Sub
小生は、テスト不十分なので、少数例でテストからはじめてください。
多数のファイルやレコード数になったら、Msgbox行は削除のこと。Debug.printでやるとか。

お礼

ご回答いただきありがとうございます
たしかに自動などと書かず率直に書くべきでした
貴重なご意見と解決策を明記していただきありがとうございました

回答No.4

SI299792

画像貼り忘れました。（どうしてここは回答削除できないんだ）

回答No.2

M_Sato

ストリームエディターというテキストファイルを読み込んで加工するソフトがあります。
Vectorのサイトで探せばいろいろなバージョンがありますが、とりあえず「Sed LOGOS版」でいいと思います。
これを解凍してsed.exeをC:¥のルートドライブにおいておきます。

次に置換するためのバッチファイルを、指定フォルダ内に作ります。
手順は、以下のように記述をしたテキストファイルを作り、その拡張子を.txtから.batに変えるだけです。
ここでは対象ファイル名をfileA.txt、fileB.txtとしています。
-------------------------------
C:\sed -e "s/【 ,F1 】/【 ,A2 】/g" fileA.txt > fileA2.txt
C:\sed -e "s/【 ,F1 】/【 ,A2 】/g" fileB.txt > fileB2.txt
（以下、指定フォルダ内の対象ファイルすべてを記述）
-------------------------------

このバッチファイルをクリックすれば、すべてのファイルが一瞬で置換されます。
（上の記述で「C:」のあとに逆スラッシュが表示されていたら半角の￥と読み替えてください）

お礼

ご回答いただきありがとうございます
フリーソフトなどを使用できない環境下という補足を忘れておりました
調べていただいたのに大変申し訳ございません
ありがとうございました

回答No.1

Ultra-Hetare

セルを介する必要はないですよ。
テキストを読み込んで、
メモリ内で置換し、
それを別のテキストに書き出せば
一丁上がりです。

参考サイト
https://kenko-keep.com/vba-cnv-file/

よく読んで頑張って下さい。

お礼

ご回答いただきありがとうございます
理解できるかわかりませんがゆっくり読んで挑戦してみます