その他

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

スポンサーリンク

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

no image
Chromeブックマークマネージャのブックマークを展開し、フォルダ・ファイルにしてエクスポート（13／15）[No56]
前回までお話していた、自作したプログラムの紹介を行った記事（下記リンク）の続きで、今回は１３記事目になります。 長いファイルなので小分けにして書いていきますが、全て同じファイル「bk ...

長いファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen4_06.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 inputFilePath01 : inputFilePath01 = curDir & "\" & "workfile4_03_02_record.html"
Dim record : record = ReadFile_ADODBStream(inputFilePath01)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'Inputファイルを読み込む(正規表現)
'------------------------------------------------------------------------
Dim inputFilePath02 : inputFilePath02 = curDir & "\" & "workfile4_05_joinPattern.html"
Dim InputPattern : InputPattern = ReadFile_ADODBStream(inputFilePath02)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'文字列の置換：【】
'------------------------------------------------------------------------
Dim strPattern : strPattern = InputPattern

Dim Matches : Set Matches = ExtractReturnMatches(strPattern,False,record)

Dim count : count = 0
Dim m
Dim notitlelist

For Each m In Matches
	If (IsEmpty(m) = False and count = 0 ) then
		notitlelist = m
	End If
	count = count +1
Next
'------------------------------------------------------------------------
'整理(少しずつ抽出したところは削除していく)
'------------------------------------------------------------------------
Dim strRepAfter01 : strRepAfter01 = Mid(record,Len(notitlelist)+1)
Dim strRepAfter02 : strRepAfter02 = notitlelist
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'Outファイルを作成する
'------------------------------------------------------------------------
Dim outputFilePath01 : outputFilePath01 = curDir & "\" & "workfile4_06_01.html"
Call WriteFileText_ADODBStream(outputFilePath01,strRepAfter01)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'outputファイルを作成する
'------------------------------------------------------------------------
Dim outputFilePath02 : outputFilePath02 = curDir & "\" & "workfile4_06_02_notitlelist.html"
Call WriteFileText_ADODBStream(outputFilePath02,strRepAfter02)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'vbsファイルを実行する
'------------------------------------------------------------------------
Dim vbsFilePath   : vbsFilePath   = curDir & "\" & "bkmksopen4_07.vbs"
Dim returnErrNo : returnErrNo =  RunVBSFile(vbsFilePath)
WScript.Quit(returnErrNo)

プログラムについて

今回の「Chromeブックマークマネージャのブックマークを展開し、フォルダ・ファイルにしてエクスポート」の内容はファイル数が多いため、下記リンクの全１５記事に分けてファイルごとに紹介しています。
※この記事の続きは１５記事目になります。

最後までお付き合いいただきありがとうございます！

この情報が誰かの役にたてれば幸いです。

スポンサーリンク

-その他