バイト数による文字列の抜き出し

文字列の抜き出し関数のサンプル。

※Midbp関数は、Mid関数と違い、日本語文字は2バイトとしてカウントするので、1バイト/2バイト混在時の検索に役立つ。



Sub Click(Source As Button)
    Dim stra As String
    Dim strb As String
    
    stra = "ABCDEFghijklmnOPQRSTUVWXYZ"
    
    '11バイト目から3バイト分抜き出す
    strb = Midbp$( stra, 11, 3 )
    Messagebox strb, 0, "抜き出した文字列"
End Sub






Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

コメント