VBAで改行文字を任意の文字に変換

README.md

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

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

主な用途

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

使用例

Dim SourceText As String
Dim ResultText As String
SourceText = "1行目" & vbLf & "2行目" & vbLf "3行目"
ResultText = ConvertLineEnding(SourceText, vbCrLf) '改行文字がCR+LFに統一される    

引数と戻り値

• Text: 変換したい改行文字を含む文字列
• LineEnding: 置換後の文字
• 戻り値: 改行文字が変換された文字列

gistfile1.vb

Function ConvertLineEnding(Text As String, LineEnding As String) As String
    ConvertLineEnding = Replace(Replace(Replace(Text, vbCrLf, vbLf), vbCr, vbLf), vbLf, LineEnding)
End Function