VB如何擷取指定字元後面的N個字元

時間 2022-02-09 07:45:06

1樓: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中的小寫字母轉化成大寫字母。

2樓:快樂小朱家

首先利用方法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) 從此例項檢索子字串。子字串從指定的字元位置開始且具有指定的長度。

3樓:彩虹飲料

用個例項來說把,用的比較傳統的方法

首先得有一個字串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 就可以了(取到末尾)

4樓:匿名使用者

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) 你可以把他做成函式,還有不懂的問我,啊!打字真累啊!

5樓:匿名使用者

dim a,b a="1+2=3" b=mid(a,instr(a,"=")+1)messagebox(b)

vb如何分別擷取指定字元之前和之後的內容? 10

6樓:小丁創業

方法和詳細的操作步驟如下:

1、第一步,刪除字串c兩端的空格,見下圖,轉到下面的步驟。

2、第二步,完成上述步驟後,擷取c的最左邊的n個字元,見下圖,轉到下面的步驟。

3、第三步,完成上述步驟後,擷取c的最右側n個字元,見下圖,轉到下面的步驟。

4、第四步,完成上述步驟後,從c中的第m個字元擷取n個字元,見下圖,轉到下面的步驟。

5、第五步,

完成上述步驟後,返回c中包含的字元數,漢字中的空格算作一個字元,見下圖,轉到下面的步驟。

6、第六步,

完成上述步驟後,將c中的大寫字母變為小寫字母,見下圖,轉到下面的步驟。

7、第七步,完成上述步驟後,將c中的小寫字母轉換為大寫字母,見下圖。這樣,就解決了這個問題了。

7樓:

a="我不知道=i don't know "

b="我看不見=i can't see"

c="我是學生=i'm a student"

a1=split(a,"=")(0)

b1=split(b,"=")(1)

c1=split(c,"=")(0)

其中split函式可以把字串變成陣列

第一個引數是待分割的字串,第二個引數是分隔符。

假設a="v,b,n,m"

b=split(a,",")

那麼結果就是

b(0)="v"

b(1)="b"

b(2)="n"

b(3)="m"

b(4)=錯誤,下標越界

8樓:匿名使用者

vb擷取指定字元之前和之後的內容使用split函式。

split函式用於分割字串,以一個字串內容中的一個(或幾個連續的)特定的字元為切割位點的標誌,將這個字串分割成若干個小字串。

用法:變數 = split(原字串變數, 切割標誌)例子:private sub command1_click()dim a as string, b() as stringa = "abcdefg=123456789" '這裡要分割的字元可以更改,比如我們取等號=之前和之後的內容

b = split(a, "=") '用split分割字元msgbox "等號之前的是:" & b(0)msgbox "等號之後的是:" & b(1)end sub

vb 中如何從字串的右端第n個位置開始擷取指定長度的字串?

9樓:匿名使用者

left(right("123456",x),y)從右邊第x+1個位置上擷取y個字元

比如你想要右手邊第四個字元開始取2個字元則left(right("123456",3),2)

10樓:匿名使用者

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

11樓:匿名使用者

可以用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"

12樓:

function mid(string, start as long, [length])

起始點自己用字串長度算下

13樓:用飛沉

你們寫的都不全好多字母都沒有給定義 **也寫的亂糟糟中英結合根本看不懂

14樓:匿名使用者

將字串長度測試函式和字串擷取函式結合使用:

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

怎麼用js擷取指定的字元後面的部分,包括這個字元本身!

15樓:幻翼高達

2、在index.html中的標籤,輸入js**:

3、瀏覽器執行index.html頁面,此時字串中?以及其後面的內容一起被擷取並列印了出來。

16樓:仙女龍媽媽

有個方法,就是先獲取問號在**

這樣試試看是不是取到你要的。

vb 字串b內含有n個特定字串a,如何提取第n/2個字串a左邊的部分字串b 10

17樓:折柳成萌

首先利用方法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中如何擷取後邊的字串,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 ...

vb擷取字串函式,vb程式設計怎麼擷取字串?

文字框的值可以用變數代替 四個文字框 t0身份證資訊,t1取得 省前字元,t2取 省和市之間字元,t3取 市到縣之間字元 主要是計算 省市縣在不定長字串中的位置 一取 省 前字元 t1.value mid t0.value,1,instr t0.value,省 1 取省到市 之間字元到t2 t2.v...

vb程式設計怎麼擷取字串

己曼寒 使用mid函式 引數1是文字內容 引數2是起始位置 引數3是擷取的數量 private sub command1 click msgbox mid text1.text,val text2.text val text3.text val text2.text 1 end sub 你自己的 問...