当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2008年8月11日月曜日

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

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

※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 カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: