[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
若有謬誤,煩請告知,新手發帖請多包涵
Microsoft MVP Award 2010~2017 C# 第四季
Microsoft MVP Award 2018~2022 .NET