Chromeブックマークマネージャのブックマークを展開し、フォルダ・ファイルにしてエクスポート（5／15）[No48]

前回までお話していた、自作したプログラムの紹介を行った記事（下記リンク）の続きで、今回は５記事目になります。

: Chromeブックマークマネージャのブックマークを展開し、フォルダ・ファイルにしてエクスポート（4／15）[No47]

前回までお話していた、自作したプログラムの紹介を行った記事（下記リンク）の続きで、今回は４記事目になります。長いファイルなので小分けにして書いていきますが、全て同じファイル「bkm ...

長いファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen3_01.vbs」に書いて下さい。

ソースコード


Option Explicit

'*************************************************************************
Include("D:\Application\BookmarkMakeFile\FunctionsCollection.vbs")
Sub Include(ByVal InputFilePath)
	Dim strFile
	Dim ObjFSO : Set ObjFSO = Wscript.CreateObject("Scripting.FileSystemObject")
	Dim ObjInputFile : Set ObjInputFile = ObjFSO.OpenTextFile(InputFilePath, 1, False, 0)
	ExecuteGlobal ObjInputFile.ReadAll()
	ObjInputFile.Close : Set ObjInputFile = Nothing
	Set ObjFSO = Nothing
End Sub
'*************************************************************************
'------------------------------------------------------------------------
'カレントディレクトリのパスを取得する
'------------------------------------------------------------------------
Dim CurDir : CurDir = GetCurDir()
Call MyselfMsgBox01(WScript.scriptname,"001","CurDir",CurDir)
'------------------------------------------------------------------------
'inputファイルを読み込む
'------------------------------------------------------------------------
Dim inputFilePath : inputFilePath = curDir & "\" & "workfile2.html"
Dim strRepBefore : strRepBefore = ReadFile_ADODBStream(inputFilePath)
'------------------------------------------------------------------------
'文字列の置換：【^(<DT><H3).*?</H3>】
'------------------------------------------------------------------------
Dim sKey : sKey = "^(<DT><H3)"
Dim eKey : eKey = "</H3>"
Dim strPattern : strPattern = sKey & ".*?" & eKey

Dim Matches : Set Matches = ExtractReturnMatches(strPattern,False,strRepBefore)
Dim m : m = Matches.Item(0).Value

Dim strRepAfter : strRepAfter = Mid(strRepBefore,Len(m)+1)
'------------------------------------------------------------------------
'outputファイルを作成する
'------------------------------------------------------------------------
Dim outputFilePath : outputFilePath = curDir & "\" & "workfile3_01.html"
Call WriteFileText_ADODBStream(outputFilePath,strRepAfter)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'vbsファイルを実行する
'------------------------------------------------------------------------
Dim vbsFilePath : vbsFilePath = curDir & "\" & "bkmksopen3_02.vbs"
Call RunVBSFile(vbsFilePath)
'------------------------------------------------------------------------