tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 指定した文字列と文字列の間の文字列を取得する関数(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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。