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
Technorati 的標籤：
vba,
vb6,
vb2005,
c#2005
新手發帖請多包涵
2008/11/30 14:11|
閱讀數 : 5299
|
我要推薦
|
|
文章分類:
C#.NET
Office VBA
VB.NET
VB6
訂閱
DotBlogs Tags:
C#.net
VB.NET
vb6
vba