タイトル : 指定した文字列と文字列の間の文字列を取得する関数(VB6.0) 投稿日 : 2009/11/10(Tue) 18:18 投稿者 : S.eleven
タイトル通りの関数が無いかとここで質問しようと考え ネットで調べたのですがそれらしきサンプルは見つからず 結果的に頑張って自作できたのでここに載せておきます。 '========================================================== '文字列と文字列の間の文字列を取得(トリミング)する '========================================================== ' result = Extex("ABCD123EFG","ABCD","EFG") ' ' 引数 Origin :対象文字列 (ABCD123EFG) ' Lsideword :前方文字列 (ABCD) ' Rsideword :後方文字列 (EFG) ' ' 戻値 result :結果 (123) '---------------------------------------------------------- Public Function Extex(Origin As Variant, LSideword As String, RSideword As String) As Variant Dim Dt As Variant Dt = InStr(Origin, LSideword) Dt = Mid(Origin, Dt + Len(LSideword), Len(Origin)) Extex = Dt Dt = InStr(Extex, RSideword) Extex = Mid(Extex, 1, Dt - 1) End Function |