Step23:ファイルの更新日時とサイズをコメント文として追加する|Excel VBA

変換の必要があるか比較するために、ファイルの更新日時とサイズをHTMLのコメント文で追加します。コメントは</HTML>を検索しその前に挿入します。

HTMLのコメントの書き方

始りに<!--を、終わりに-->を使った<!--コメント-->になります。

AMP変換ソフト作成 メニューへ

スポンサーリンク





VBAで更新日時とサイズを挿入する

ファイル一覧の隣のセルにある、更新日時とサイズを挿入します。
ファイル一覧の隣のセルにある、更新日時とサイズを挿入

作成した更新日時とサイズを挿入するVBAです。
作成した更新日時とサイズを挿入するVBA

・更新日時とサイズを引数にしています。
・</html>を検索し、見つかった位置から前後に分けています。
・更新日時とサイズをコメント文にします。
・挿入し全体を組み立てます。

Private Sub MyModifiedSizeAddHtml(c1 As Date, c2 As Long)
    Dim ln As Long
    Dim s1 As String
    Dim s2 As String
    Dim s3 As String
    Dim s4 As String

    ln = InStr(1, sUtfBuf, "</html>", vbTextCompare)
    If ln > 0 Then
        s1 = Left(sUtfBuf, ln - 1)
        s2 = Right(sUtfBuf, Len(sUtfBuf) - ln + 1)
        s3 = "<!-- Modified:" & c1 & "-->"
        s4 = "<!-- Size:" & c2 & "-->"
        sUtfBuf = s1 & s3 & vbCr & s4 & vbCr & s2
    End If
    Debug.Print sUtfBuf
End Sub

実行結果のイミディエイトウィンドウです。
正常に追加されているのが分かります。
実行結果のイミディエイトウィンドウ

スポンサーリンク






AMP変換ソフト作成 メニューへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved