1樓：匿名使用者
left(right("123456",x),y)從右邊第x+1個位置上擷取y個字元
比如你想要右手邊第四個字元開始取2個字元則left(right("123456",3),2)
2樓：匿名使用者
private sub command1_click()
s = "vb 中如何從字串的右端第n個位置開始擷取指定長度的字串?"
print midr(s, 10, 5) '從右邊第10個開始向後取5個
print strreverse(mid(strreverse(s), 10, 5)) '從右邊第10個開始向前取5個
end sub
function midr(bstring, byval bstart as long, byval blength)
if blength < 1 then blength = len(bstring)
bstart = len(bstring) - bstart + 1
if bstart < 1 then bstart = 1
midr = mid(bstring, bstart, blength)
end function
3樓：匿名使用者
可以用mid()函式實現
mid(x,n1,n2) 從字串x左起第n1個字元開始連續取其中的n2個字元
如: a=mid("中國12億",2,3) 則a為"國12"
以下摘自msdn
dim x, a,b, c
x = "mid function demo" '建立一個字串
a = mid(x, 1, 3) ' 返回 "mid"
b = mid(x, 14, 4) ' 返回 "demo"
c = mid(x, 5) ' 返回 "funcion demo"
4樓：
function mid(string, start as long, [length])
起始點自己用字串長度算下
5樓：用飛沉
你們寫的都不全好多字母都沒有給定義 **也寫的亂糟糟中英結合根本看不懂
6樓：匿名使用者
將字串長度測試函式和字串擷取函式結合使用：
len(字串) 返回字串的長度
mid(字串，n,p) 返回字串的第n個字元開始向後取p個得到的字串
設從字串a的右端第n個位置開始擷取長度為p的字串private sub form_click()dim a as string, b as string, c as integer
a =字串
c = len(a)
b = mid(a, c - n + 1, p)print b
end sub
vb如何擷取指定字元後面的n個字元
7樓：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中的小寫字母轉化成大寫字母。
8樓：快樂小朱家
首先利用方法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) 從此例項檢索子字串。子字串從指定的字元位置開始且具有指定的長度。
9樓：彩虹飲料
用個例項來說把，用的比較傳統的方法
首先得有一個字串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 就可以了(取到末尾)
10樓：匿名使用者
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) 你可以把他做成函式，還有不懂的問我，啊！打字真累啊！
11樓：匿名使用者
dim a,b a="1+2=3" b=mid(a,instr(a,"=")+1)messagebox(b)
在vb中，怎樣尋找一個字串中的第n個指定字元的位置
12樓：匿名使用者
注意函式 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
13樓：閃星
配合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 字串b內含有n個特定字串a，如何提取第n/2個字串a左邊的部分字串b 10
14樓：折柳成萌
首先利用方法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) 從此例項檢索子字串。子字串從指定的字元位置開始且具有指定的長度。
vb如何擷取字串中的指定字元 15
15樓：匿名使用者
思路：假設目標字串為變數strdst（如你說的"天地水雲間"），
則字串 s = "" & strdst & ""，strdst 的左邊有6個字元，右邊有7個字元，用vb中的left和right語句可以搞定。
**如下：
dim s as string '原字串
dim strdst as string '要提取的字串
s = "天地水雲間"
if len(s) <= 13 then
msgbox "字串s中沒有您要提取的任何字元！", vbinformation
exit sub
end if
strdst = left(s, len(s) - 7)
strdst = right(strdst, len(strdst) - 6)
從字串中刪除第i個字元開始的連續n個字元C語言怎麼寫
防禦 滿意請採納 include include char fun char str,int i,int n int main int i,n printf 輸入字串 n gets str printf 輸入i和n n scanf d d i,n fun str,i,n printf s n str...
VB中如何擷取後邊的字串，VB中如何擷取第二個 後邊的字串
寒信 dim a as string,b as integera sdfxquisodxold ssofo slsldfjasdhfu sldfxhd sdfkjsdkf ad f b instr instr a,1,a,print right a,len a b dim s1 as string ...
c中如何計算字串中某個指定字元的個數
幸運的雨祭 使用函式indexof 來檢索字串中所需要的字元出現的次數。如下 class program static void main string args 統計出字串中，下雪出現的次數 string text 今天下雪了嗎，明天不會下雪了吧，什麼時候才不下雪啊，我要去上學啊！string k...