その他

Chromeブックマークマネージャーのブックマーク(サイトURL)を展開しフォルダ・ファイルにしてエクスポート(14/15)[No57]

投稿日:2020年8月20日 更新日:

スポンサーリンク

前回記事の続きです。自作したプログラムの紹介で、14記事目です。
長文のファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen4_06.vbs」に書いて下さい。

no image
Chromeブックマークマネージャーのブックマーク(サイトURL)を展開しフォルダ・ファイルにしてエクスポート(13/15)[No56]
前回記事の続きです。自作したプログラムの紹介で、13記事目です。長文のファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen4_05.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)

この記事の続き

no image
Chromeブックマークマネージャーのブックマーク(サイトURL)を展開しフォルダ・ファイルにしてエクスポート(15/15)[No58]
前回記事の続きです。自作したプログラムの紹介で、15記事目です。長文のファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen4_07.vbs」に書いて下さい ...

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

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

スポンサーリンク

タグ

-その他

© 2021 BookALittle