その他

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

スポンサーリンク

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

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

長いファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen4_04.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 & "\" & "workfile4_03_01_k.html"
Dim strRepBefore : strRepBefore = ReadFile_ADODBStream(inputFilePath)
'------------------------------------------------------------------------
'文字列の置換：【"">.*?</H3>】
'「(^(<DT><H3))～(</H3>)まで」①_フォルダ名を取得する
'------------------------------------------------------------------------
Dim sKey : sKey = """>"
Dim eKey : eKey = "</H3>"
Dim strPattern : strPattern = sKey & ".*?" & eKey

Dim Matches : Set Matches = ExtractReturnMatches(strPattern,False,strRepBefore)
'------------------------------------------------------------------------
Dim count : count= 0
Dim mfolname
Dim m
For Each m In Matches
	If (IsEmpty(m) = False and count = 0 ) then
		mfolname = MidLeftString(sKey,eKey,m)
	End If
	count = count +1
Next

Dim strRepAfter : strRepAfter = mfolname
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'outputファイルを作成する
'------------------------------------------------------------------------
Dim outputFilePath : outputFilePath = curDir & "\" & "workfile4_04_mfolname.html"
Call WriteFileText_ADODBStream(outputFilePath,strRepAfter)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'vbsファイルを実行する
'------------------------------------------------------------------------
Dim vbsFilePath   : vbsFilePath   = curDir & "\" & "bkmksopen4_05.vbs"
Dim returnErrNo : returnErrNo =  RunVBSFile(vbsFilePath)
WScript.Quit(returnErrNo)

プログラムについて

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

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

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

スポンサーリンク

-その他