Notepad ++：バッチテキスト置換を実行

オンラインで見つけたいくつかのWebページから辞書ファイルを作成しようとしています。辞書は、検索モードで簡単に見つけられるように見出し語にインデックスを付けます。Webページの情報は、一意のIDを持つセクションに分割されます。例： <div id="word-2857">Andronicus, Titus . . .
問題は、他のテキストに次のように書かれた他の単語への参照リンクがあることです。<a href="#word-2857"><i>see Titus Andronicus</i></a>

したがって、辞書ファイルを作成する場合（Goldendict用）、他の単語への参照は次のように記述する必要があります。 <a href="entry://headword">text to display</a>

アンドロニカスの代わりにワード2857の見出し語を作成するので、タイタス​​は（最終的に）すべての単語（約10,000個）のリンクのバッチ置換を実行することはあまり役に立ちません。つまり、すべてのIDリンクを対応する見出し語に置き換えたいということです。<a href="#word-2857"><i>see Titus Andronicus</i></a>になるはずです<a href="entry://Andronicus, Titus">see Titus Andronicus</a>

置換したいすべての単語のリストをすでに持っています。問題は、Notepad ++を使用すると、一度に1つの一意の置換しか実行できないことです。10,000以上の単語があり、これには時間がかかりすぎます。これを簡単に行う方法を説明してください。

ありがとう

これが私の解決策です。すべてのものをNotepad ++から新しいExcelブックにコピーします。Sheet1にある必要があります。Sheet2の列Aにリストされているすべての「検索」項目をコピーします。Sheet2の列Bに一致する「置換」アイテムを配置します。Sheet2はヘッダー値も検索および置換するため、Sheet2にはヘッダーがありません（次のコードの範囲「r」をA2から開始するように変更しない限り）。

次のスクリプトを実行します。

Sub FindReplaceAll()
Dim FindString, ReplaceString As String
Dim r As Range

Set r = Sheet2.Range("A1")

Do While Not r.Value = 0
    FindString = r.Value
    ReplaceString = r.Offset(0, 1).Value

    Sheet1.Cells.Replace What:=FindString, Replacement:=ReplaceString, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Set r = r.Offset(1, 0)
Loop

MsgBox "Done!"

End Sub

これにより、すべてのエントリが1つずつ検索および置換されます。完了したら、Notepad ++にコピーして戻すことができます。最初の空の行で停止するので、行が連続していることを確認/置換してください。

Excelマクロ/スクリプトでさびている場合は、ExcelでAlt + F11を押し、左側のツリーでVBAProjectを右クリックし、[挿入]> [モジュール]を選択します。表示される新しいボックスにコードを貼り付け、再生ボタン（F5）を押します。

これがお役に立てば幸いです！