その他

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

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

スポンサーリンク

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

no image
Chromeブックマークマネージャーのブックマーク(サイトURL)を展開しフォルダ・ファイルにしてエクスポート(10/15)[No53]
前回記事の続きです。自作したプログラムの紹介で、10記事目です。長文のファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen4_02.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_02_01_k.html"
Dim strRepBefore01 : strRepBefore01 = ReadFile_ADODBStream(inputFilePath01)
Dim k : k = strRepBefore01
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'Inputファイルを読み込む
'------------------------------------------------------------------------
Dim inputFilePath02 : inputFilePath02 = curDir & "\" & "workfile4_02_02_record.html"
Dim strRepBefore02 : strRepBefore02 = ReadFile_ADODBStream(inputFilePath02)
Dim record : record = strRepBefore02
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'文字列の置換:【^(<DT><H3).*?</H3>】
'「(^(<DT><H3))~(</H3>)まで」①_フォルダ名を取得する
'------------------------------------------------------------------------
Dim sKey : sKey = "^(<DT><H3)"
Dim eKey : eKey = "</H3>"
Dim strPattern : strPattern = sKey & ".*?" & eKey

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

Dim count : count = 0
Dim m

For Each m In Matches
   If (IsEmpty(m) = False and count = 0 ) then
      k = m
      '------------------------------------------------------------------------
      '整理(少しずつ抽出したところは削除していく)
      '------------------------------------------------------------------------
      record = Mid(record,Len(m)+1)
   End If
   count = count +1
Next

Dim strRepAfter01 : strRepAfter01 = k
Dim strRepAfter02 : strRepAfter02 = record
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'outputファイルを作成する
'------------------------------------------------------------------------
Dim outputFilePath01 : outputFilePath01 = curDir & "\" & "workfile4_03_01_k.html"
Call WriteFileText_ADODBStream(outputFilePath01,strRepAfter01)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'outputファイルを作成する
'------------------------------------------------------------------------
Dim outputFilePath02 : outputFilePath02 = curDir & "\" & "workfile4_03_02_record.html"
Call WriteFileText_ADODBStream(outputFilePath02,strRepAfter02)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'vbsファイルを実行する
'------------------------------------------------------------------------
Dim vbsFilePath   : vbsFilePath   = curDir & "\" & "bkmksopen4_04.vbs"
Dim returnErrNo : returnErrNo =  RunVBSFile(vbsFilePath)
WScript.Quit(returnErrNo)

この記事の続き

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

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

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

スポンサーリンク

タグ

-その他

© 2021 BookALittle