文字操作 文字列の改行コードの箇所を見つけ削除して返す

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 文字列の改行コードの箇所を見つけ削除して返す]

Function 改行コード検索削除(str As StringAs String
'*********************************************
'文字列の改行コードの箇所を見つけ削除して返す
'*********************************************
'※見つからない場合は[原文字列]が返ります
'※引数は文字型
'※辺値も文字型

Dim strEnd As String

strEnd = ""

strEnd = Replace(str, vbCr, "") 'キャリッジ リターン文字
strEnd = Replace(strEnd, vbLf, "") 'ライン フィード文字
strEnd = Replace(strEnd, vbCrLf, "") 'キャリッジ リターン&ライン フィード

改行コード検索削除 = strEnd

'解説
'【vbCr キャリッジ リターン文字】
'   選択行の先頭に戻る又は改行
'【vbLf ライン フィード文字】
'   改行

End Function





Production Japan Import Application. Since 1998