VB6.0-BOT函數問題

Question

就是例如 打 你好安安

請問VB函數有哪些是 假如偵測到他打的字 有 安安 而不管它的你好

就回答 安安

已上是例如

反正就是哪些函數可以偵測到重點字 而其他字不用

就像BOT回答 只偵測重點字

Answer 1

'請愛用InStr函數Private Sub Command1_Click()    Dim S As String, A As String        A = "安安" '欲尋找的關鍵字    S = InputBox("輸入字串", , "你好安安") '被尋找的字串    If InStr(1, S, A) > 0 Then MsgBox A '大於0就表示A在S中的第幾個字End SubInStr 函數      傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。語法InStr([start, ]string1, string2[, compare])InStr 函數的語法具有以下的指名引數：單元說明start選擇性引數。為數值運算式，設定每次搜尋的起點。如果省略，將從第一字元開始。如果 start 所含為 Null，將發生錯誤。如果有加 compare 參數，則一定要有 start 引數。string1必要引數。欲搜尋的字串運算式。string2必要引數。欲搜尋的字串運算式。Compare選擇性引數。設定字串比對種類。如果 compare 是 Null，將發生錯誤。如果省略 compare，Option Compare 的設定將決定比對的類型。設置值 compare 引數設定如下:常數值描述vbUseCompareOption-1使用Option Compare陳述句設定執行一個比較。vbBinaryCompare0執行一個二進位比較。vbTextCompare1執行一個按照文字的比較。vbDatabaseCompare2只適用於Microsoft Access。執行一個資料庫中資訊的比較。傳回值如為InStr傳回string1為零長度0string1為NullNullstring2 為零長度startstring2 為NullNullstring2 找不到0在 string1中找到string2 找到的位置start > string20請注意InStrB 函數是使用在位元組資料字串上。所以 InStrB 傳回的是位元組位置，而非字元位置。