VBSの質問です
以下のプログラムがうまく動きません。
一番したの置換がうまく働きません。どこをいじればいいでしょうか？
'画像リンク書換
Sub ChangePathName( fso, strTargetName, strInputFileName, strOutputFileName )
Dim file ' 対象ファイル
Dim file2 ' 書き込み先ファイル
Dim re ' 正規表現オブジェクト
Dim strOldText ' 置換前テキスト
Dim strNewText ' 置換後テキスト
Dim strFind ' 検索文字列
Dim strReplace ' 置換文字列
Set file = fso.OpenTextFile( strInputFileName )
strOldText = file.ReadAll
strFind = "<img src = """
strReplace = "<img src = """ & strTargetName & "/"
strFind = "<td align=""center"" valign=""top"">"
strReplace = "<td>" & strTargetName & "</td><td>"
Set re = New RegExp
re.Multiline = True
re.Pattern = strFind
re.Global = True
strNewText = re.Replace(strOldText, strReplace)
file.Close
Set file2 = fso.CreateTextFile( strOutputFileName )
file2.WriteLine (strNewText)
file2.Close
End Sub
ベストアンサー
-
匿名回答1号
元ネタはこれですかね。
http://q.hatena.ne.jp/1362497323#a1192706
原因はあなたが２行追加した場所と必要な１行が足りないことでしょう。strFind = "<td align=""center"" valign=""top"">" strReplace = "<td>" & strTargetName & "</td><td>"
置換はこの７行でワンセットです。
strFind = "<img src = """ strReplace = "<img src = """ & strTargetName & "/" Set re = New RegExp re.Multiline = True re.Pattern = strFind re.Global = True strNewText = re.Replace(strOldText, strReplace)
元の７行を理解しやすいように少し順序を変えます。
' オブジェクトの準備と基本パラメータの設定 Set re = New RegExp re.Multiline = True re.Global = True ' 置換条件の設定と置換実行 strFind = "<img src = """ strReplace = "<img src = """ & strTargetName & "/" re.Pattern = strFind strNewText = re.Replace(strOldText, strReplace)
新たな置換を追加して１０行になります。
' オブジェクトの準備とパラメータ設定 Set re = New RegExp re.Multiline = True re.Global = True ' 置換１ strFind = "<img src = """ strReplace = "<img src = """ & strTargetName & "/" re.Pattern = strFind strNewText = re.Replace(strOldText, strReplace) ' 置換２ strFind = "<td align=""center"" valign=""top"">" strReplace = "<td>" & strTargetName & "</td><td>" re.Pattern = strFind strNewText = re.Replace(strNewText, strReplace)
置換は先に書いたほうから順に実行されるので複雑な置換を行う場合は注意が必要です。
-
その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2013-03-09 23:18:03
- 終了日時
- 2013-03-10 04:12:38
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
3
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者21
-
内定してほしいポケモンはいますか？匿名質問者