1樓：匿名使用者
沒有專用的函式。可以自己寫一個自定義函式。
你的要求並不明確：是分離中英文字元？還是把相鄰段當做一個字串？數字、標點符號怎麼計算？
這些都要有明確的目標。
關於vb6.0從一個字串提取字串的問題
2樓：匿名使用者
網頁程式源**裡面會有很多的數字，可能有些數字並不是你需要的吧？！那你就在你需要的數字堆裡面找一找規律！比如數字的周圍都是固定的 【onclick='odds(942057)】或其它的某種規律可循的狀態，那通過程式設計來篩選就好辦了！
沒有規律，實現起來會很費勁的！
3樓：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
4樓：匿名使用者
這麼簡單的問題？
s=「onclick='odds(942057)'";
s=replace(s,"(","=")
s=replace(s,")","=")
r=split(s,"=")
if r[0]=="onclick" thenmsgbox r[2]end
5樓：匿名使用者
直接用val算了
非數字部分都會忽略掉
比如：val("abc=10")=10
val("")=0
vb6擷取字串內容
6樓：匿名使用者
常用字串操作函式
asc(x)，chr(x)：轉換字元字元碼[格式]：
p=asc(x) 返回字串x的第一個字元的字元碼p=chr(x) 返回字元碼等於x的字元
2. len(x)： 計算字串x的長度
[格式]：
p=len(x)
[說明]：
空字串長度為0，空格符也算一個字元，一箇中文字雖然佔用2 bytes，但也算一個字元。
[範例]：
(1) 令x=」」 (空字串)
len(x) 輸出結果為0
(2) 令x=」abcd」
len(x) 輸出結果為4
(3) 令x=」vb教程」
len(x) 輸出結果為4
3. mid(x)函式：讀取字串x中間的字元[格式]：
p=mid(x,n)
由x的第n個字元讀起，讀取後面的所有字元。
p=mid(x,n,m)
由x的第n個字元讀起，讀取後面的m個字元。
4. replace: 將字串中的某些特定字串替換為其他字串[格式]：
p=replace(x,s,r)
[說明]：將字串x中的字串s替換為字串r，然後返回。
5. strreverse：反轉字串
[格式]：
p=strreverse(x)
[說明]：
返回x引數反轉後的字串
6. ucase(x)，lcase(x)：轉換英文字母的大小寫[格式]：
p=lcase(x)
『 將x字串中的大寫字母轉換成小寫
p=ucase(x)
『 將x字串中的小寫字母轉換成大寫
[說明]：除了英文字母外，其他字元或中文字都不會受到影響。
7. instr函式：尋找字串
[格式]：
p=instr(x,y)
從x第一個字元起找出y出現的位置
p=instr(n,x,y)
從x第n個字元起找出y出現的位置
[說明]：
（1） 若在x中找到y，則返回值是y第一個字元出現在x中的位置。
（2） instr(x,y)相當於instr(1,x,y)。
（3） 若字串長度，或x為空字串，或在x中找不到y，則都返回0。
（4） 若y為空字串，則返回0。
7樓：尚子素
先用？拆分地址
？後邊都是get的引數。每個引數以&分隔
所以在用&拆分一次
這次拆分後都是一對一對的引數
引數名字和值用=連線
再用=號拆分一次
就可以得去全部變數和其值的列表
8樓：匿名使用者
實現的方法有很多種。
vb6.0 如何統計字串中某一單詞出現次數
9樓：vb妮可
s="字串"
f="查詢字"
n=(len(s)-len(replace(s,f,"")))/len(f)
'n就是出現的次數,原理就是利用replace函式,將原字串中的查詢字都替換為空,然後計算替換前和替換後字串長度的差值,再除以查詢字的長度,就能得到準確的次數了.
10樓：教師小站
這段程式在歌詞中找「you」，執行結果是2a = "愛你就說i love you，想你就上icq(i seek you)..."
b = "you"
c = 1
d = 0
'ab不解釋了，c是查詢的起點，d是統計出現次數doc = instr(c, a, b) '第1次從1開始找，找到you位置在12，結果c=12(第2次就從15開始找)
if c > 0 then d = d + 1: c = c + len(b) '如果找到了，加1次：下次向後跳3格找(因為you是3個字母)
loop until c = 0 '如果找不到，迴圈結束msgbox d
11樓：匿名使用者
function strcount(stra as string, strb as string) as long
dim lnga as long
dim lngb as long
dim lngc as long
lnga = len(stra)
lngb = len(strb)
lngc = len(replace(stra, strb, ""))
strcount = (lnga - lngc) / lngbmsgbox strcount
end function
vb6中怎樣判斷字串中是否包含某個字元
12樓：匿名使用者
函式的語法：
instr([start, ]string1, string2[, compare])
這個函式需要的的引數是起始位置、主體字串、要查詢的字串；compare是可選引數。指定字串比較。此compare引數是可以省略的，也可以是 0, 1或 2。
指定0（預設）做二進位制比較。指定1做不區分大小寫的文字比較。
例如:我們要查詢在字串「abcdef」中是否存在「j」並返回其位置，則使用下面的語句就可以實現：
pos=instr(1,"abcdef","j")
vb6.0，查詢某一字串中符合要求的字元。
vb6.0如何判斷字串是否包含字串
13樓：苦樂一輩子
vb6 用instr函式來判斷 字串中是否包含特定字串instr([start, ]string1, string2[, compare])
instr 函式的語法具有下面的引數：
部分說明
start
可選引數。為數值表示式，設定每次搜尋的起點。如果省略，將從第一個字元的位置開始。
如果 start 包含 null，將發生錯誤。如果指定了 compare 引數，則一定要有 start 引數。
string1
必要引數。接受搜尋的字串表示式。
string2
必要引數。被搜尋的字串表示式。
vb6 0 退出整個for迴圈用 exit for退出本
private sub command1 click dim i as integer,j as integerfor i 1 to 3 if i 2 then goto a 當i 2時，退出本次循專環屬 for j 1 to 3 print i j next j a next i end sub ...
vb60要求編寫function過程在文字框中輸入
寫了一段,窗 bai體上放du一個text,一個按鈕zhi,如下 daofunction sushu a as integer as integer for i 2 to a 1 step 1if a mod i 0 then msgbox a 不為素數 vbinformation vbokonly...
VB6 0點選按鈕自動開啟 EXE檔案
你先要判斷檔案是否存在，用一個api即可，在模組裡宣告 private declare function pathfileexists lib shlwapi.dll alias pathfileexistsa byval pszpath as string as long 然後在按鈕裡寫上 if ...