ライブラリ

fString_LeftB

***************************************************************
固定長処理用。
文字列の左端から指定バイト数を切り出す
※VBAのLeftBが正しい値を返さない為

【引数】Value :対象の文字列
              Length :バイト数
***************************************************************

Public Function fString_LeftB(Value As String, Length As Long) As String
    
    If Length <= 0 Then Exit Function
    
    '指定バイト数で切り出してみる
    Dim Val As String
    Val = prLeftB(Value, Length)
    
    '切った位置が2バイト文字だった場合、調整する
    If fString_Left_With(Value, Val) = False Then
        Val = prLeftB(Val, Length - 1)
    End If
    
    fString_LeftB = Val
    
End Function

Private Function prLeftB(Value As String, Length As Long) As String
    
    prLeftB = StrConv(LeftB$(StrConv(Value, vbFromUnicode), Length), vbUnicode)
    
End Function

String   2018/06/30   shono

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください