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