文字列検索

[Toshi]

InStr$ 関数の正しくない動作の対策として、コードの切れ端にhiraさんとSinryowさんによる
「[AB3] InStrの誤認識への対策」があります。
で、ここではもう 1 つの方法を投稿します。

コード: 全て選択

Declare Function StrStr Lib "shlwapi.dll" Alias "StrStrA" (lpFirst As BytePtr,lpSrch As BytePtr) As BytePtr

文字列の検索をする API です。
検索先の文字列と、検索する文字列へのポインタを引数にします。

コード: 全て選択

Dim A As BytePtr
A=StrStr("表","\")

こうしても 0 を返すので、正しく動作している様です。

shlwapi.dll は Windows 95 / NT の場合は Internet Explorer Version 4.0 以降がインストールされていないと存在しません。
それ以降の OS は最初から存在します。

速度等の検証はしていません。