nanbu

Function LoadText(Filename, Optional Encoding = "UTF-8") As String

• 文字コードを指定してテキストファイルからを文字列を読み取ります。
• WindowsのVBAでのみ動作します。（MacのVBAではエラーが発生します）

特徴

• ファイルのオープン・クローズ処理が不要です。（関数の内部で完結しています）
• 幅広い文字コードを読み取ることができます。（ADODB.StreamのCharsetプロパティが対応している文字セット）

nanbu

Function SaveText(Filename, Text As String, Optional Encoding = "UTF-8") As Boolean

• 文字コードを指定して文字列をテキストファイルに保存します。
• WindowsのVBAでのみ動作します。（MacのVBAではエラーが発生します）
• UTF-8で出力する場合はBOMなしのUTF-8（別名「UTF-8N」）にしています。

特徴

• ファイルのオープン・クローズ処理が不要です。（関数の内部で完結しています）
• UTF-8はBOMなしにしていますのでHTML等のWeb用途に向いています。

nanbu

Function EscapeHTMLAttribute(Text) As String
    Dim Result As String
    Result = Replace(Text, "&", "&")
    Result = Replace(Result, """", """)
    EscapeHTMLAttribute = Result
End Function

nanbu

Function EscapeHTML(Text) As String
    Dim Result As String
    Result = Replace(Text, "&", "&")
    Result = Replace(Result, "<", "&lt;")
    Result = Replace(Result, ">", "&gt;")
    EscapeHTML = Result
End Function

nanbu

ConvertLineEnding(Text As String, LineEnding As String) As String

改行文字(CR、LF、CR+LF)を任意の文字に変換します。

主な用途

• 改行文字をそろえる。
• 改行文字を<br>に変換する。

使用例

Dim SourceText As String

Dim ResultText As String