人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBSの質問です
a
|_01
|_ a.html

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

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


●質問者: takanii
●カテゴリ:ウェブ制作
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●100ポイント
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

関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ