1樓：戈恆史樂
'文字框的值可以用變數代替
'四個文字框
t0身份證資訊,
t1取得
省前字元,t2取
省和市之間字元,t3取
市到縣之間字元
'主要是計算"省市縣在不定長字串中的位置"
'一取"省"前字元
t1.value
=mid(t0.value,
1,instr(t0.value,
"省")-1)
'取省到市
之間字元到t2
t2.value
=mid(t0.value,
instr(t0.value,
"省")+1,
instr(t0.value,
"市")
-instr(t0.value,
"省")-1)
'取市到縣
之間字元到t3
t3.value
=mid(t0.value,
instr(t0.value,
"市")+1,
instr(t0.value,
"縣")
-instr(t0.value,
"市")-1)
2樓：東歸雁
text1.text = mid(string,1,1)text2.text = mid(string,2,1)text3.
text = mid(string,3,1)text4.text = mid(string,4,1)text5.text = mid(string,5,1)text6.
text = mid(string,6,1)text7.text = mid(string,7,1)text8.text = mid(string,8,1)text9.
text = mid(string,9,1)text10.text = mid(string,10,1)text11.text = mid(string,11,1)text12.
text = mid(string,12,1)text13.text = mid(string,13,1)text14.text = mid(string,14,1)text15.
text = mid(string,15,1)text16.text = mid(string,16,1)
vb程式設計怎麼擷取字串？
3樓：己曼寒
使用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 才是數量
因為不一定從第一個開始
4樓：原顏料
如果只是取前兩個字元的話,可以參考以下幾個函式:
right 返回字串右部指定個數的字元 right("budapest",3)返回pes
left 返回字串左部指定個數的字元 left("budapest",4)返回buda
mid 從某一指定起始點開始返回字串中指定個數的字元 mid("sommers", 4, 3) 返回mer
5樓：
mid 從某一指定起始點開始返回字串中指定個數的字元 mid("sommers", 4, 3) 返回mer
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樓：匿名使用者
實現的方法有很多種。
jquery 或 js如何擷取字串？
9樓：匿名使用者
如果只是單純的擷取這個串字元，那簡單，你可以var temp = 字串
var str = temp.substring(0,temp.length-5) //這個str就是擷取的值
如果需要擷取帶流動性引數的話
var str1 = temp.split("&") ;
var str = str1[0].tostring() + "&" + str1[1].tostring() + "&" + str1[2].
tostring();//這個str就是擷取的值
或許還有更好的方法。
vb如何分別擷取指定字元之前和之後的內容？ 10
10樓：小丁創業
方法和詳細的操作步驟如下：
1、第一步，刪除字串c兩端的空格，見下圖，轉到下面的步驟。
2、第二步，完成上述步驟後，擷取c的最左邊的n個字元，見下圖，轉到下面的步驟。
3、第三步，完成上述步驟後，擷取c的最右側n個字元，見下圖，轉到下面的步驟。
4、第四步，完成上述步驟後，從c中的第m個字元擷取n個字元，見下圖，轉到下面的步驟。
5、第五步，
完成上述步驟後，返回c中包含的字元數，漢字中的空格算作一個字元，見下圖，轉到下面的步驟。
6、第六步，
完成上述步驟後，將c中的大寫字母變為小寫字母，見下圖，轉到下面的步驟。
7、第七步，完成上述步驟後，將c中的小寫字母轉換為大寫字母，見下圖。這樣，就解決了這個問題了。
11樓：
a="我不知道=i don't know "
b="我看不見=i can't see"
c="我是學生=i'm a student"
a1=split(a,"=")(0)
b1=split(b,"=")(1)
c1=split(c,"=")(0)
其中split函式可以把字串變成陣列
第一個引數是待分割的字串，第二個引數是分隔符。
假設a="v,b,n,m"
b=split(a,",")
那麼結果就是
b(0)="v"
b(1)="b"
b(2)="n"
b(3)="m"
b(4)=錯誤，下標越界
12樓：匿名使用者
vb擷取指定字元之前和之後的內容使用split函式。
split函式用於分割字串，以一個字串內容中的一個(或幾個連續的)特定的字元為切割位點的標誌，將這個字串分割成若干個小字串。
用法：變數 = split(原字串變數, 切割標誌)例子：private sub command1_click()dim a as string, b() as stringa = "abcdefg=123456789" '這裡要分割的字元可以更改，比如我們取等號=之前和之後的內容
b = split(a, "=") '用split分割字元msgbox "等號之前的是：" & b(0)msgbox "等號之後的是：" & b(1)end sub
vb程式設計怎麼擷取字串
己曼寒 使用mid函式 引數1是文字內容 引數2是起始位置 引數3是擷取的數量 private sub command1 click msgbox mid text1.text,val text2.text val text3.text val text2.text 1 end sub 你自己的 問...
c 字串擷取，C 擷取字串
這個問題其實有兩個注意點 字串的儲存。c c 裡面斜槓是轉義符，因此所檢閱的字串中如何有 的話，比如是這樣的格式 否則你應該按位元組處理。如果是c 那麼用類庫就可以解決。下面的例子通過stringstream轉儲string，然後分割儲存到vector中，最後數數vector的size，然後 1，就...
VB中如何擷取後邊的字串，VB中如何擷取第二個 後邊的字串
寒信 dim a as string,b as integera sdfxquisodxold ssofo slsldfjasdhfu sldfxhd sdfkjsdkf ad f b instr instr a,1,a,print right a,len a b dim s1 as string ...