ファイルの一括変換ソフトを探しています。
001
002
003
というフォルダにそれぞれ「index.html」のファイルが
保存されているとします。
「index.html」に特定の文字列(例えば、「XYZ」)を検索して
フォルダごとに違う文字列を置換することの出来るソフトです。
001のフォルダの中のindex.html XYZ→AAA にそれぞれ置換
002のフォルダの中のindex.html XYZ→BBB にそれぞれ置換
003のフォルダの中のindex.html XYZ→CCC にそれぞれ置換
上記のように一括変換できるツール、または方法を
ご存じの方は教えて頂けませんか。
過去ログや検索エンジンで調べてみたのですが
見つけることが出来ませんでした。
OSはXPのSP2です。
宜しくお願い致します。
No.1
- 回答日時:
001がAAAにというのは どういう関係で どのように指定しますか
置換の条件をおしえてください
階層は 1階層だけでしょうか 必ず1つでしょうか
http://www.officetanaka.net/excel/vba/filesystem …
http://www.officetanaka.net/excel/vba/filesystem …
この回答への補足
>001がAAAにというのは どういう関係で どのように指定しますか
この説明であっているか分からないのですが
001フォルダの中のindex.html内にある「ダイエット」を全て「簡単ダイエット」に変換
002フォルダの中のindex.html内にある「ダイエット」を全て「ダイエット 日記」に変換
003フォルダの中のindex.html内にある「ダイエット」を全て「ダイエット レシピ」に変換
という感じで複数選択して一括で置換したいと思っております。
階層は1階層だけです。必ず1階層だけになります。
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
デスクトップ版です
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
FileExt = "index.html" '←名前を指定してください(半角小文字)
myWORD1 = "ダイエット"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Set myWSH = CreateObject("WScript.Shell")
myDSKTOP = myWSH.SpecialFolders("Desktop")
Set myWSH = Nothing
myWKFLD = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Set mySh = CreateObject("Shell.Application")
Set myPath = mySh.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, myDSKTOP)
If myPath Is Nothing Then WScript.Quit
myFLD = myPath.Items.Item.Path
Set mySh = Nothing : Set myPath = Nothing
Set myFS = CreateObject("Scripting.FileSystemObject")
For Each mySUBFLD In myFS.GetFolder(myFLD).SubFolders
For Each myCSV In myFS.GetFolder(mySUBFLD).Files
If LCase(myFS.GetFile(myCSV).Name) = FileExt Then
myWORD2 = myWORD1
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Select Case myFS.GetFolder(mySUBFLD).Name
Case "001" : myWORD2 = "簡単ダイエット"
Case "002" : myWORD2 = "ダイエット 日記"
Case "003" : myWORD2 = "ダイエット レシピ"
End Select
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
If myWORD2 <> myWORD1 Then
Set myRF = myFS.GetFile(myCSV).OpenAsTextStream(1)
myTMP = myFS.GetTempName
Set myWF = myFS.OpenTextFile(myWKFLD & "\" & myTMP, 8, True)
myWF.WriteLine Replace(myRF.ReadAll, myWORD1, myWORD2)
myRF.Close : myWF.Close
myTIME = Year(Now) & "_" & Month(Now) & "_" & Day(Now) & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now)
'myFS.GetFile(myCSV).Name = "元" & myTIME & myFS.GetFile(myCSV).Name
myFS.GetFile(myCSV).Delete
myFS.GetFile(myWKFLD & "\" & myTMP).Name = FileExt
myFS.GetFile(myWKFLD & "\" & FileExt).Move mySUBFLD & "\"
End If
End If
Next
Next
Set myRF = Nothing : Set myWF = Nothing : Set myFS = Nothing
Msgbox "完了"
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- フリーソフト テキストファイル内を検索したい 1 2022/06/01 08:33
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- その他(プログラミング・Web制作) 置換ソフトで指定したファイルの1行目に入力できるものを探しています 7 2022/11/24 10:34
- その他(プログラミング・Web制作) フォルダ内の特定 拡張子のファイルを一括実行するBat ファイルについて 4 2022/04/17 09:51
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Word(ワード) ワードフォント 一括置換の方法 4 2022/12/31 00:27
- PDF PDFを自動添付したメールを送信してくれるツールを探しています。 2 2023/02/07 15:19
- ホームページ作成・プログラミング Adobe DreamweaverでのサイトのFTP 2 2023/03/05 11:55
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマ区切り形式ではなく、セ...
-
txtファイル内の指定の単語の数...
-
Wordチェックボックス作り方(...
-
秀丸で改行タグ<br>を入れる方...
-
パワーポイントの置き換えマクロ
-
エクセルでアルファベット5段階...
-
エクセルで置換リストを別ブッ...
-
エクセル 置換中の値の更新
-
WORDで一括置換
-
秀丸エディタ タブをカンマに...
-
ExcelのROUND関数を一括解除し...
-
Wordで一括して改ページする方法
-
TeraPadに一括置換のプラグイン...
-
置換(検索場所に「ブック」を...
-
Excel2019で1行に入っている複...
-
HTMLタグを一括消去する方法
-
Ctrl+Hで置換にならない
-
エクセル 数式 不等号を反転
-
文字を一括で置換するソフト・...
-
マクロで文字列をブック全体に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切り形式ではなく、セ...
-
エクセルで例えば、関数を使っ...
-
エクセルでアルファベット5段階...
-
文字を一括で置換するソフト・...
-
Wordチェックボックス作り方(...
-
txtファイル内の指定の単語の数...
-
Ctrl+Hで置換にならない
-
ExcelのROUND関数を一括解除し...
-
エクセル 置換中の値の更新
-
Excelで、10000,20000,30000と...
-
秀丸エディタ タブをカンマに...
-
マクロで文字列をブック全体に...
-
エクセルで置換リストを別ブッ...
-
パワーポイントの置き換えマクロ
-
アクセスのテーブル上でデータ...
-
WORDで一括置換
-
Wordで一括して改ページする方法
-
vbaで実行後、指定のセルに戻す...
-
置換(検索場所に「ブック」を...
-
文字列の<>で囲まれた文字列...
おすすめ情報