1樓：匿名使用者
注意函式 findstrn
option explicit
private sub command1_click()dim s as string
s = "abs01b902h9dso0h2e70de210j0q"
dim x as integer
'第1個"0"的位置
x = findstrn(s, "0", 1)print x
'第2個"0"的位置
x = findstrn(s, "0", 2)print x
'第3個"0"的位置
x = findstrn(s, "0", 3)print x
'第4個"0"的位置
x = findstrn(s, "0", 4)print x
'第5個"0"的位置
x = findstrn(s, "0", 5)print x
'第6個"0"的位置
x = findstrn(s, "0", 6)print x
'第7個"0"的位置，不存在，返回-1
x = findstrn(s, "0", 7)print x
end sub
'查詢 src 中第n個c出現的位置
'如果沒找對，返回-1
function findstrn(byval src as string, _
byval c as string, _
byval n as integer) as integerdim i as integer, m as integeri = instr(1, src, c)
m = 0
do while i > 0
m = m + 1
if m = n then exit doi = instr(i + 1, src, c)loop
if i > 0 and m = n thenfindstrn = i
else
findstrn = -1
end if
end function
2樓：閃星
配合split函式
方法一：
debug.print len(split(str, "0")(0)) + 1 + len(split(str, "0")(1)) + 1 + len(split(str, "0")(2)) + 1
方法二：
debug.print instr(str, split(str, "0")(3)) - 1
在vb程式設計中,如何在一個給定的字串中查詢某個字元第一次出現的位置?
3樓：匿名使用者
instr函式：尋找字串 [格式]： p=instr(x,y) 從x第一個字元起找出y出現的位置 p=instr(n,x,y) 從x第n個字元起找出y出現的位置 [說明]：
(1) 若在x中找到y，則返回值是y第一個字元出現在x中的位置。 (2) instr(x,y)相當於instr(1,x,y)。 (3) 若字串長度，或x為空字串，或在x中找不到y，則都返回0。
(4) 若y為空字串，則返回0。
4樓：匿名使用者
instr從一個較大字串chs中查詢另一個字元ch1istart = instr(ch1, chs) ' istart變數返回值
5樓：匿名使用者
用函式：instr([start, ]string1, string2[, compare]) 例：查詢「abcdefg」中e的位置instr("abcefg","e")
c#裡如何確定一個字元在字串中的位置？
6樓：jiawen廖
確定一個字元在字串中的位置關鍵**為：
string lstg_test ="hello world" ;int lint_index = lstg_test.indexof('o');
1.在字串中獲得某數字位置時，可以使用string類的indexof方法，該方法用來確定指定字元在字串中的索引，如果在字串中能找到指定字元，則返回其索引，否則返回-1。
2.在字串中獲得數字位置的關鍵**如下：string str = textbox1.text.trim();
int index = str.indexof(textbox2.text.trim());
if (index >= 0)
messagebox.show("數字" + textbox2.text + "在字串中的位置為：
" + (index+1), "資訊", messageboxbuttons.ok, messageboxicon.information);
else
messagebox.show("沒有要查詢的數字", "資訊", messageboxbuttons.ok, messageboxicon.information);
vb 如何讀取字串中的指定字元
7樓：匿名使用者
vb6.0使用mid 函式來讀取字串中指定數量的字元。
mid 函式：返回 variant (string)，其中包含字串中指定數量的字元。
語法：mid 函式示例：
本示例使用 mid 語句來得到某個字串中的幾個字元。
dim mystring, firstword, lastword, midwords
mystring = "mid function demo" 建立一個字串。
firstword = mid(mystring, 1, 3) ' 返回 "mid"。
lastword = mid(mystring, 14, 4) ' 返回 "demo"。
midwords = mid(mystring, 5) ' 返回 "funcion demo"。
8樓：樓主跟我來搞基
private sub command1_click()s = "12-323-22"
s = s + "-"
j = 1
for i = 1 to len(s)
if mid(s, i, 1) = "-" thens1 = mid(s, j, i - j)j = i + 1
print s1
end if
next i
end sub
9樓：
用mid(str1,a,b)函式
str1為目標字串
a為起始位置
b為要取的字串的位數
例如dim s as string,sss as stringsss="abcdefg123"
s=mid(sss,3,4)
意思是從字串"abcdefg123"中的第3個字元開始往後提取4個字元，則
s="cdef"
從字串"413025198203120612"中提取"19820312"如下所示
ss="413025198203120612"
s=mid(ss,7,8)
10樓：匿名使用者
text1.text = mid("413025198203120612", 7, 8)
從第7位開始取數，從第7位開始往右一共取8位
11樓：匿名使用者
mid("413025198203120612",7,8)
vb如何擷取指定字元後面的n個字元
12樓：yesyes科
1、trim(c)：去掉字串c兩端的空格。
2、left(c,n)：擷取c最左邊的n個字元。
3、right(c,n)：擷取c最右邊的n個字元。
4、mid(c,m,n)：擷取c中從第m個字元開始的n個字元。
5、len(c)：返回c包含的字元數，漢字空格都算一個字元。
6、lcase(c)：將c中的大寫字母轉化成小寫字母。
7、ucase(c)：將c中的小寫字母轉化成大寫字母。
13樓：快樂小朱家
首先利用方法instr， 提取指定字元的位置 t
利用字元本身的substring提取需要的第n個字元
如下，提取a字串中「b」後面的第2個字元
dim a as string = "abcdefg"
dim t as integer = instr("abcdefg", "b")-1
dim n as integer = 2
dim b as string = a.substring(t + n, 1)
instr(返回一個整數，該整數指定一個字串中另一個字串的第一個匹配項的起始位置。)
substring 從此例項檢索子字串；substring(int32, int32) 從此例項檢索子字串。子字串從指定的字元位置開始且具有指定的長度。
14樓：彩虹飲料
用個例項來說把，用的比較傳統的方法
首先得有一個字串str=「abcdefghijk」
然後你指定的字元是"e"
最後你要取"e"後面的4個字元 ---->用肉眼判斷也就是"fghi"
程式：dim str as string 'str用來儲存你的字串
dim mystr as string 'mystr用來春村你指定的字元
dim ct as integer 'ct用來儲存指定字元的座標
dim strlen as integer 'strlen用來儲存字串的長度
dim outstr as string '用於儲存結果
str="abcdefghijk"
mystr="e"
strlen=len(str) '獲得str的字元數
ct=0
outstr=""
for i=1 to strlen
if mid(str,i,1)=mystr then '當遍歷的字元等於你指定的字元時
ct=i '獲得指定字元在你字串中的座標
goto 1000 '跳出該迴圈到指定標記
end if
next i
1000 '當上面的goto 1000執行時程式轉到這一行
for i=ct+1 to ct+4 '表示座標後4位字元 (c+4可以寫成其他的，按需要也可用變數)
outstr=outstr & mid(str,i,1) '開始取你要的結果
next i
print outstr '輸出這個字元
對於你的題目就是找到"是"之後, for i=ct+1 to strlen 就可以了(取到末尾)
15樓：匿名使用者
p=mid(x,n,m) 由x的第n個字元讀起，讀取後面的m個字元。這個一個函式 要實現你說的還要p=instr(x,y)從x第一個字元起找出y出現的位置 現在是寫** ，不過你還是瞭解一下相關**運用dim a as string'a為"你的驗證碼是155788554請速到網上填寫"的字串'這裡給a 賦值dim p,q as integer '記錄相關出現的位置dim o as string '你要的結果記錄在這個變數裡p=instr(a,"是")q=instr(a,"請")o=mid(a,p+1,q-1) 你可以把他做成函式，還有不懂的問我，啊！打字真累啊！
vb中怎麼判斷字串中包含另字串
1 啟動vb新建工程1，在form1的合適位置畫出3個label框 2個text框以及1個command按鈕 可以預先對各控制元件的caption等屬性進行修改 2 雙擊 統計 即command1 按鈕，在彈出的 框中編寫如下 privatesubcommand1 click dimxasstrin...
VB從右邊擷取字串，vb 中如何從字串的右端第n個位置開始擷取指定長度的字串
vb 從右邊擷取字串可以使用right函式 private sub command1 click s 1234567890 s1 right s,4 print s 的右邊4個字元是 s1end sub private sub command1 click 如果是數字有很多種方法可以實現 a 888...
c語言輸入字串，將該字串中從第m個字元開始的全部字元複製到另字串
這樣 include include int main void copystr char char int int m char str1 20 str2 20 printf input string gets str1 printf which character that begin to c...