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 在...