文字操作 改行コード検索

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 改行コード検索]

Function 改行コード検索(str As StringAs Long
'****************************************
'改行コードの箇所を見つけ位置を返す
'****************************************
'※見つからない場合は[0]が返ります
'※引数は文字型
'※辺値はLONG型数値です
'※見つかった先頭位置を返します

Dim lngFound(3) As Long, i As Byte, j As Long

lngFound(1) = InStr(str, vbCr) 'キャリッジ リターン文字
lngFound(2) = InStr(str, vbLf) 'ライン フィード文字
lngFound(3) = InStr(str, vbCrLf) 'キャリッジ リターン&ライン フィード

j = 0

For i = 1 To 3
    If lngFound(i) <> 0 Then
        j = lngFound(i)
    End If
Next i

改行コード検索 = j

End Function





Production Japan Import Application. Since 1998