[VB6][VBA][VB.Net][C#] 判斷 搜尋 字串 是否有 關鍵字

[VB6][VBA][VB.Net][C#] 判斷 搜尋 字串 是否有 關鍵字

VB6提供了InStr函數,傳回在某字串中一字串的最先出現位置,傳回0表示沒有找到,我們可以利用它來判斷字串中是否有關鍵字存在。
VB6:

Dim str1 As String 
str1 = "123a"'被搜尋的字串 
Debug.Print InStr(1, str1, "a")'欲搜尋關鍵字"a"

VBA:

Private Sub CommandButton1_Click() 
    str1 = Sheets(1).Range("b1").Value 
    str2 = Sheets(1).Range("b2").Value 
    Sheets(1).Range("b3").Value = InStr(1, str1, str2) 
    Sheets(1).Range("b4").Value = InStr(1, str1, str2) >= 1 
End Sub

VB.Net 2005:

Public Class Form1 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim str1 As String, str2 As String 
        str1 = "1 3  2  abc     " 
        str2 = "c" 
        Console.WriteLine(InStr(1, str1, str2)) 
        Console.WriteLine(InStr(1, str1, str2) >= 1) 
    End Sub 
End Class

C#.Net 2005:

string s1 = "1 3  2  abc     ";//被搜尋的字串 
int i = s1.IndexOf("abc"); 
Console.WriteLine(i);//最先出現位置 
Console.WriteLine(s1.IndexOf("1") >= 1);//關鍵字是否存在 


範例下載:搜尋關鍵字.rar

 

Technorati 的標籤:,,,

 

udn 的標籤:,,,
HEMiDEMi 的標籤:,,,

 

若有謬誤,煩請告知,新手發帖請多包涵


Microsoft MVP Award 2010~2017 C# 第四季
Microsoft MVP Award 2018~2022 .NET

Image result for microsoft+mvp+logo