ライブラリ

fString_FixLength

***************************************************************
固定長処理用。
文字列を指定バイト数に調整する
2バイト文字に対応

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

Public Function fString_FixLength(Value As String, Length As Long) As String
'+ 指定の長さの固定長にする
    
    Dim Val As String
    Val = fString_LeftB(Value & String$(Length, " "), Length)
    
    '2バイト文字で切れた場合、不足1バイト分調整
    If fString_LenB(Val) <> Length Then
        Val = Val & " "
    End If
    
    fString_FixLength = Val
    
End Function

String   2017/11/21   shono

この記事へのコメント

コメントを送る

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