[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 SubVB.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 ClassC#.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
