請問有無這個函數,搜尋一個字串在另一個字串中的位置 |
尚未結案
|
saam
初階會員 發表:61 回覆:75 積分:27 註冊:2003-03-03 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
|
coolman
一般會員 發表:11 回覆:17 積分:17 註冊:2002-12-05 發送簡訊給我 |
VB--InStr函數
====================================================================
傳回搜尋字串的位置 InStr(string,searchstr)
範例
InStr 函數範例
本範例使用 InStr 函數來尋找某字串在另一個字串中首次出現的位置。 Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜尋的字串。
SearchChar = "P" ' 要尋找字串 "P"。 ' 從第四個字元開始,以 [文字比對] 的方式找起。傳回值為 6(小寫 p)。 ' 小寫 p 和大寫 P 在 [文字比對] 下是一樣的,即英文字母大小寫視同一致。
MyPos = Instr(4, SearchString, SearchChar, 1) ' 從第一個字元開使,以 [二進位比對] 的方式找起。傳回值為 9(大寫 P)。
' 小寫 p 和大寫 P 在 [二進位比對] 下是不一樣的。
MyPos = Instr(1, SearchString, SearchChar, 0) ' 預設的比對方式為 [二進位比對](最後一個引數可省略)。
MyPos = Instr(SearchString, SearchChar) ' 傳回 9。
MyPos = Instr(10, SearchString, SearchChar) ' 傳回 12。 MyPos = Instr(1, SearchString, "W") ' 傳回 0。 ========================================================= Delph - POS()
---------------------------------------------------------
function Pos ( const Needle, HayStack : string ) : Integer; Description
The Pos function finds the position of one string Needle within another HayStack.
If the string is not found, 0 is returned.
The search is case sensitive. Warning : you should ideally use AnsiPos instead of Pos since the former supports wide character sets.
|
saam
初階會員 發表:61 回覆:75 積分:27 註冊:2003-03-03 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
saam
初階會員 發表:61 回覆:75 積分:27 註冊:2003-03-03 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |