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

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

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

前回、自作したプログラムの紹介を行った記事（下記リンク）の続きで、今回は２記事目になります。このプログラム用にまとめたライブラリのような関数集「FunctionsCollectio ...

長いファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen1.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)
'------------------------------------------------------------------------
'フォルダ「bookmark」「otherbookmark」の存在チャック
'------------------------------------------------------------------------
Call CheckFolderExists(curDir & "\" & "bookmark")
Call CheckFolderExists(curDir & "\" & "otherbookmark")
'------------------------------------------------------------------------
'inputファイルのパスを取得する
'------------------------------------------------------------------------
Dim inputFileName   : inputFileName   = "bookmarks_"
Dim inputFileExtension  : inputFileExtension  = ".html"
Dim outputFile : outputFile = "workfile1.html"

Dim Obj       : Set Obj     = CreateObject("Scripting.FilesystemObject")
Dim ObjFolder : Set ObjFolder = Obj.getFolder(curDir)
Dim ObjFiles  : Set ObjFiles  = ObjFolder.Files

Dim TempFileName
Dim inputFilePath
Dim outputFilePath
For Each TempFileName In ObjFiles
	If Right(TempFileName.Name,Len(inputFileExtension)) = inputFileExtension Then
		If Left(TempFileName.Name,Len(inputFileName)) = inputFileName Then
			inputFilePath = TempFileName.Path
			outputFilePath = curDir & "\" & outputFile
			Exit For
		Else
			MsgBox("The target file does not exist.")
			Set Obj = Nothing
			WScript.Quit
		End If
	End If
Next
Set Obj       = Nothing
Set ObjFolder = Nothing
Set ObjFiles  = Nothing
'------------------------------------------------------------------------
'inputファイルを読み込む
'------------------------------------------------------------------------
Dim strRepBefore : strRepBefore = ReadFile_ADODBStream(inputFilePath)
'------------------------------------------------------------------------
'文字列の置換：【^[ \t]+】
'------------------------------------------------------------------------
Dim strPattern : strPattern = "^[ \t]+"
Dim strRepAfter
strRepAfter = ExtractReturnString(strPattern,True,strRepBefore,"")
strRepAfter = Replace(strRepAfter,vbCrLf,"")
'------------------------------------------------------------------------
'outputファイルを作成する
'------------------------------------------------------------------------
Call WriteFileText_ADODBStream(outputFilePath,strRepAfter)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'vbsファイルを実行する
'------------------------------------------------------------------------
Dim vbsFilePath : vbsFilePath = curDir & "\" & "bkmksopen2.vbs"
Call RunVBSFile(vbsFilePath)
'------------------------------------------------------------------------