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

タイトル ： Re^5: エラー処理追加（修正）
投稿日： 2009/11/13(Fri) 15:03
投稿者： YK
こんにちは。

私もサンプルで

Function Extex3(strM As String, strA As String, strB As String)
    Dim v1  As Variant
    Dim v2  As Variant
    Dim i   As Long
    Dim j   As Long
    
    v1 = Split(strM, strA)
    If UBound(v1) > 0 Then
        For i = 0 To UBound(v1)
            If v1(i) Like "*" & strB & "*" Then
                v2 = Split(v1(i), strB)
                Extex3 = v2(0)
                Exit For
            End If
        Next
        If i = (UBound(v1) + 1) Then Extex3 = strM
    Else
        Extex3 = strM
    End If
End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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