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

2022-03-14 19:19:07 字數 5620 閱讀 3643

1樓:聽不清啊

vb 從右邊擷取字串可以使用right函式:

private sub command1_click()s = "1234567890"

s1 = right(s, 4)

print s; "的右邊4個字元是"; s1end sub

2樓:匿名使用者

private sub command1_click()'如果是數字有很多種方法可以實現

a = "88888888.999"

b = left(a, instr(a, ".") - 1) '第一種方法

c = split(a, ".")(0) '第二種方法

d = cstr(int(a)) '第三種方法

print b

print c

print d

'你說的如果是字串

a = "wwwwwwwrrr"

b = "fffffffffffffffffffeee"

a1 = left(a, 1)

b1 = left(b, 1)

c = ""

d = ""

for i = 1 to len(a)

if mid(a, i, 1) = a1 thenc = c & mid(a, i, 1)

else

exit for

end if

next

for i = 1 to len(b)

if mid(b, i, 1) = b1 thend = d & mid(b, i, 1)

else

exit for

end if

next

print c, d

end sub

3樓:郭榮華

function 取整(byval 數字) as integer取整=cstr(fix(val(數字)))end function

dim a,b

a=取整(88888888.999)

b=取整(7777777777777.666)fix介紹:

1.vb

返回一個數的整數部分

return the integer portion of a number.

2.c++

byval number as ) _

as public shared function fix( _byval number as ) _as

4樓:遠風的夢想家

oldstr = "wwwwwwwrrr"

newstr = ""

for i = 1 to len(oldstr)if mid(oldstr, i, 1) <> left(oldstr, 1) then exit for

newstr = newstr & mid(oldstr, i, 1)

next

print newstr

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

5樓:匿名使用者

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

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

6樓:匿名使用者

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

7樓:匿名使用者

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

8樓:

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

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

9樓:用飛沉

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

10樓:匿名使用者

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

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如何擷取字串

11樓:匿名使用者

vb6裡

right的函式是取一段字串的右邊幾個字元比如dim a as string

dim b as string

a="12345678"

b=right(a,4)

那麼b的值是5678

12樓:巴哥泡泡

無語,樓上的,應該是instr函式吧!

str=right(str,len(str)-instr(str,"aa")-1)

另外提醒一下,str作為函式是不能作為變數名使用的!

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

13樓:己曼寒

使用mid函式 引數1是文字內容 引數2是起始位置 引數3是擷取的數量

private sub command1_click()msgbox mid(text1.text, val(text2.text), val(text3.

text) - val(text2.text) + 1)

end sub

你自己的**問題是 引數3 題目說到第幾個字元 你應該是用這個數減去起始位置+1 才是數量

因為不一定從第一個開始

14樓:原顏料

如果只是取前兩個字元的話,可以參考以下幾個函式:

right 返回字串右部指定個數的字元 right("budapest",3)返回pes

left 返回字串左部指定個數的字元 left("budapest",4)返回buda

mid 從某一指定起始點開始返回字串中指定個數的字元 mid("sommers", 4, 3) 返回mer

15樓:

mid 從某一指定起始點開始返回字串中指定個數的字元 mid("sommers", 4, 3) 返回mer

vb如何擷取字串中的指定字元 15

16樓:匿名使用者

思路:假設目標字串為變數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)

17樓:

dim a as string, b as string'a為要找的字串,b為找到的字串

a = "天地水雲間"

s = "21天地水雲間1"

b = mid(s, instr(1, s, a), len(a))print b

s = "111天地水雲間2222"

b = mid(s, instr(1, s, a), len(a))print b

18樓:匿名使用者

理論上來說,使用vb的dhtml處理更簡單,但是**難理解,所以我設計以下**。

html檔案(或者是xml檔案,類似)中一般都是ajhjahjsdh或者換行寫

ajhjahjsdh

可以使用以下演算法

定義狀態

c0-什麼也沒有

1-找到開頭的〈

2-找到開頭的〉

3-找到後面的〈

4-找到後面的/

5-找到後面的〉

private sub form_load()s = "天地水雲間"

for i = 1 to len(s)

m = mid(s, i, 1)

if m = "<" then

if c = 0 then

c = 1

elseif c = 2 then

c = 3

end if

end if

if m = ">" then

if c = 1 then

c = 2

goto donext

elseif c = 4 then

c = 5

end if

end if

if m = "/" and c = 3 then c = 4if c = 2 then b = b & mdonext:

next

end sub

如果你單單需要得到中間的值,這個就夠了,你可以把我的程式修改一下他也能讀取類似以下的東西

jquery怎麼擷取字串,怎麼從json字串中擷取字串

您好!jquery是js的一種框架,可以用js的substring方法實現你的功能!function substr 希望對您有幫助!jquery只是js的一種框架,像擷取字串,當然直接用js的方法就行了呀 js自帶的就很好用了 substr substring start,end 怎麼從json字串...

vb中怎麼判斷字串中包含另字串

1 啟動vb新建工程1,在form1的合適位置畫出3個label框 2個text框以及1個command按鈕 可以預先對各控制元件的caption等屬性進行修改 2 雙擊 統計 即command1 按鈕,在彈出的 框中編寫如下 privatesubcommand1 click dimxasstrin...

VB從檔案中讀取了定長字串,如何去掉後面的空格

定長字串你沒有理解。一個定長字串,比如dim str as string 256,這個str變數裡面就包含了256個空字元,而不是空格。首先你要理解字元和字串的區別,字元是一個一個的,字串是一組字元組成的。其次,空字元的ascii碼是0,而空格是32,在vb裡表示為 chr 0 和 chr 32 在...