VBSの質問です

a
|_01
 |_  a.html

a.html
**************
<img src = "image1.jpg">
**************
aフォルダの01フォルダの中にa.htmlというものが入ってるのですが
aフォルダに置いたVBSを実行することにより

a.html
**************
<img src = "01/image1.jpg">
**************
に置換してくれるスクリプトを教えて下さい

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/03/04 14:48:53
  • 終了:2013/03/11 14:50:07

回答(1件)

id:taknt No.1

きゃづみぃ回答回数13538ベストアンサー獲得回数11982013/03/04 15:37:32

ポイント100pt
Dim objFile ' 対象ファイル
Dim oldText ' 置換前テキスト
Dim newText ' 置換後テキスト
Dim objFSO ' ファイルシステムオブジェクト
Dim objRep ' 正規表現オブジェクト
Dim repText ' 置換後文字列
Dim objPath
Set objPath = CreateObject("Scripting.FileSystemObject").GetFolder(".")
Set objPath2 = CreateObject("Scripting.FileSystemObject").GetFolder("..")

p = right(objPath,len(objPath) - len(objPath2) -1)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.html")
' テキストデータ読込
oldText = objFile.ReadAll
' 置換後文字列
repText =  "<img src = """ & p & "/"
Set objRep = New RegExp
objRep.Multiline = True
' 正規表現パターンを指定する
objRep.Pattern = "<img src = """
' テキスト変換
newText = objRep.replace(oldText, repText)
objFile.Close
' 書き込み
Set objFile = objFSO.CreateTextFile("a.html")
objFile.WriteLine (newText)
objFile.Close

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません