Guest User

Untitled

a guest
Jan 23rd, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.61 KB | None | 0 0
  1. # ConvertLineEnding(Text As String, LineEnding As String) As String
  2. 改行文字(CR、LF、CR+LF)を任意の文字に変換します。
  3.  
  4. ## 主な用途
  5. * 改行文字をそろえる。
  6. * 改行文字を<br>に変換する。
  7.  
  8. ## 使用例
  9. Dim SourceText As String
  10. Dim ResultText As String
  11. SourceText = "1行目" & vbLf & "2行目" & vbLf "3行目"
  12. ResultText = ConvertLineEnding(SourceText, vbCrLf) '改行文字がCR+LFに統一される
  13.  
  14. ## 引数と戻り値
  15. * Text: 変換したい改行文字を含む文字列
  16. * LineEnding: 置換後の文字
  17. * 戻り値: 改行文字が変換された文字列
Add Comment
Please, Sign In to add comment