1樓：匿名使用者
你弄的太複雜了，看懂它比較累，看看下面**比較精簡了。
const kout = ";"
public function takeword_(str as string, n as long) as string
dim p1 as long: p1 = 0dim p2 as long
dim count as long
dop1 = p2
p2 = instr(p1 + 1, str, kout)count = count + 1
loop until p2 = 0 or count >= nif count = n then
if p2 = 0 then
takeword_ = mid(str, p1 + 1)else
takeword_ = mid(str, p1 + 1, p2 - p1-1)
end if
end if
end function
說不定別人還有更簡單的方法。
2樓：匿名使用者
您baidu一下 vb split 怎麼用
vb程式設定問題：如何提取指定字串之前的字串
3樓：匿名使用者
1、使用left$(string, length)函式（left$也可以用left替換，string字串、length擷取的長度）和instr([start,] string1, string2 [, compare])（start起始位置、string1字串、string2要搜尋字串、compare：0使用二分搜尋、1區分大小寫）函式left$("123456", instr("123456", "56")) 2、vb中回車用vbcrlf 表示，可以賦值給字串變數3、dim stext = "vb程式設計"if right$(stext, 2) = vbcrlf then '判斷是否以回車結尾 stext = left$(stext, len(stext) - 2)end if
關於vb6.0從一個字串提取字串的問題
4樓：
網頁程式源**裡面會有很多的數字，可能有些數字並不是你需要的吧看！那你就在你需要的數字堆裡面找一找規律！比如數字的周圍都是固定的 【onclick='odds(942057)】或其它的某種規律可循的狀態，那通過程式設計來篩選就好辦了！
沒有規律，實現起來會很費勁的！
關於vb6.0從一個字串提取字串的問題
5樓：匿名使用者
網頁程式源**裡面會有很多的數字，可能有些數字並不是你需要的吧？！那你就在你需要的數字堆裡面找一找規律！比如數字的周圍都是固定的 【onclick='odds(942057)】或其它的某種規律可循的狀態，那通過程式設計來篩選就好辦了！
沒有規律，實現起來會很費勁的！
6樓：excel開發
示例，如你的文字放在text1框中，搜尋後的結果放在text2文字框中。
private sub command1_click()dim i, x as long
dim num, y as string
x = len(text1.text)
for i = 1 to x
y = mid(text1, i, 1)
if isnumeric(y) then num = num & ynext i
text2.text = num
end sub
7樓：匿名使用者
這麼簡單的問題？
s=「onclick='odds(942057)'";
s=replace(s,"(","=")
s=replace(s,")","=")
r=split(s,"=")
if r[0]=="onclick" thenmsgbox r[2]end
8樓：匿名使用者
直接用val算了
非數字部分都會忽略掉
比如：val("abc=10")=10
val("")=0
vb中如何提取字串中的部分數字
9樓：落葉l無情
更簡單通用的：
for i=1 to len(a)
b=mid(a,i,1)
if isnumeric(b) thens=val(mid(a,i))
exit for
end if
next
vb編寫一程式提取字串中的數字,並把連續的數字作為整體
10樓：匿名使用者
private sub command1_click() '在text1中輸入字串，單擊按鈕command1提取，並在窗體中列印結果
dim a(), f as boolean
for i = 1 to len(text1.text)
if isnumeric(mid(text1.text, i, 1)) then
if f = false then
f = true
redim a(0)
else
redim preserve a(ubound(a) + 1)
end if
a(ubound(a)) = mid(text1.text, i, 1)
for j = i + 1 to len(text1.text)
if isnumeric(mid(text1.text, j, 1)) then
a(ubound(a)) = a(ubound(a)) & mid(text1.text, j, 1)
i = i + 1
else
exit for
end if
next j
end if
next i
if f = true then
print "提取的數字依次為："
for i = 0 to ubound(a)
print a(i)
next i
end if
end sub
vb中擷取字串問題
11樓：匿名使用者
如果字串只有兩個空格，也只有三個文字框，可以用下面的**：dim s as string
dim sa() as string
s = "abc def ghi"
sa = split(s, " ")
text1.text = sa(0)
text2.text = sa(1)
text3.text = sa(2) split這個函式就是把一個字串，用指定的字元分割成一個字串陣列，這個用於分割的字元是存在於串中的，否則不會分割字串。這裡就是用空格的分割，更多的應用，你可以自己去嘗試。
vb獲取字串中字元，vb獲取字串中字元
private sub command1 click dim b as integer,a as string,i as integer,c as string,d as string a text1.text c d for i 1 to len a b asc mid a,i,1 if b 65...
vb裡陣列與字串之間相互轉化，vb中陣列array如何轉化成字串string
沒有vb的環境，也n年沒用過vb了，不知道有沒有錯誤，你稍微除錯一下就應該可以，原理就是用asc碼來表示二進位制數 二進位制陣列變成字串一定會帶來長度的增加，這個你可以接受嗎？比如1k位元組的二進位制檔案，uuencoder下來大約1.5k，base 64下來大概1.3k，最簡單的asc方式大約2k...
vb中如何將字串轉換為utf 8編碼
private declare function multibytetowidechar lib kernel32 byval codepage as long,byval dwflags as long,byval lpmultibytestr as long,byval cchmultibyte...