VB截取字符串 vb 如何截取字符串？？
VB\u5982\u4f55\u622a\u53d6\u5b57\u7b26\u4e32VB6\u91cc
right\u7684\u51fd\u6570\u662f\u53d6\u4e00\u6bb5\u5b57\u7b26\u4e32\u7684\u53f3\u8fb9\u51e0\u4e2a\u5b57\u7b26
\u6bd4\u5982
dim a as string
dim b as string
a="12345678"
b=right(a,4)
\u90a3\u4e48b\u7684\u503c\u662f5678
x\u5b57\u7b26\u4e32\u53d8\u91cf\uff0c\u7528mid\u51fd\u6570\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e86
a=mid\uff08x\uff0c1\uff0c3\uff09
b=mid\uff08x\uff0c5\uff0c3\uff09
=mid("co1=你好1",5)
结果就=你好1 意思是从第5个字符开始截取，到最后结束
可自己参考修改一个就好了，这是没有变量的方法，如果有变量将变量代入就好了
早说你这前面不是固定的长度啊？看下面的代码：
Private Sub cmdPoin_Click()
Dim I As Integer '定义变量i，让它做为循环变量
Dim j As String '定义变量j,让它保存mid函数截取下来的字符
Dim a As String '定义变量a，让它保存=号后的文字
For I = 1 To Len(txtResult) '从1循环到字符长度，注：Len函数返回字符长度
j = Mid(txtResult, I, 1) '截取第i个字符赋值给j
If j = "=" Then '如果j等于=号
a = Mid(txtResult, I+1)
Exit For '跳出循环体，不再循环
End If 'if语句结束
Next I '下一个i
End Sub
dim str1,str2 ,str3,str as string
dim i, j,k as long
str1="CO1＝你好1I CO2＝你好2 I CO3＝你好3" 分隔符是"|"
for i=1 to len(str1)
str2 = Mid(ster1, i, 1)
if str2="|" then
str3=left(str1,i-1)
for k=1 to len(str3)
str2 = Mid(ster1, k, 1)
if str2="=" then list1.additem trim(right(str3,len(str3)-k))
' 得到了等号右边的部分,并添加到列表框中
next
end if
next
<script type="text/vbscript">
txt="co1=你好1"
start=InStrRev(txt,"=")+1
document.write(Mid(txt,start))
</script>
给一段你要提取的字串给我，我有写过
汉字是按UNICODE编码的，你看看这方面的只是吧，具体没搞过
绛旓細鍦╒B涓紝Left鏄竴绉嶇敤浜庢埅鍙栧瓧绗︿覆鐨勫嚱鏁銆傝繖涓嚱鏁版湁涓や釜甯哥敤鐨勫弬鏁帮細绗竴涓弬鏁版槸瑕佹埅鍙栫殑瀛楃涓诧紝绗簩涓弬鏁版槸瑕佹埅鍙栫殑瀛楃鏁伴噺銆傛瘮濡傦紝濡傛灉鎴戜滑鏈変竴涓瓧绗︿覆鍙玸tr锛屽畠鐨勫唴瀹逛负鈥淗ello World鈥濓紝鎴戜滑鎯宠鎴彇鍓5涓瓧绗︼紝灏卞彲浠ヤ娇鐢↙eft鍑芥暟鏉ュ疄鐜帮細Left(str, 5)銆傝繖鏍蜂細杩斿洖鈥淗ello鈥濊繖涓瓙涓层傞櫎...
绛旓細鍦╒B涓紝mid鏄寚瀛楃涓茬殑涓涓嚱鏁般傝繖涓嚱鏁板彲浠ユ埅鍙栧師瀛楃涓茬殑涓閮ㄥ垎锛屾瘡涓閮ㄥ垎鐨勪綅缃兘鏄敱鐢ㄦ埛鎸囧畾鐨銆俶id鍑芥暟鐨勮娉曞涓嬶細Mid(string,start[,length])銆傚叾涓璼tring琛ㄧず鍘熷瓧绗︿覆锛宻tart琛ㄧず鎴彇鐨勮捣濮嬩綅缃紝length琛ㄧず鎴彇鐨勯暱搴︺傚鏋滀笉鎸囧畾length鍙傛暟锛岄偅涔坢id鍑芥暟浼氭埅鍙栦粠start浣嶇疆鍒板瓧绗︿覆缁撳熬鐨勬墍鏈...
绛旓細浣跨敤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 鎵嶆槸鏁伴噺 鍥犱负涓嶄竴...
绛旓細1銆佺涓姝ワ紝鍒犻櫎瀛楃涓C涓ょ鐨勭┖鏍硷紝瑙佷笅鍥撅紝杞埌涓嬮潰鐨勬楠ゃ2銆佺浜屾锛屽畬鎴愪笂杩版楠ゅ悗锛屾埅鍙朇鐨勬渶宸﹁竟鐨刵涓瓧绗︼紝瑙佷笅鍥撅紝杞埌涓嬮潰鐨勬楠ゃ3銆佺涓夋锛屽畬鎴愪笂杩版楠ゅ悗锛屾埅鍙朇鐨勬渶鍙充晶n涓瓧绗︼紝瑙佷笅鍥撅紝杞埌涓嬮潰鐨勬楠ゃ4銆佺鍥涙锛屽畬鎴愪笂杩版楠ゅ悗锛屼粠C涓殑绗琺涓瀛楃鎴彇n涓瓧绗︼紝瑙佷笅鍥撅紝杞埌...
绛旓細鐩存帴鐢⊿PLIT鍑芥暟灏嗗瓧绗︿覆鎵撴暎鏀惧埌鍙皟鏁扮粍閲岋紝鍙栭渶瑕佺殑鍏冪礌鍗冲彲銆傚锛欴im a() as string a=Split("鍚屾剰 鏉庣孩 2011-9-23 9:23 ")'娉ㄦ剰浣跨敤鑻辨枃灏忓啓鐨勫弻寮曞彿锛屼笉鏄腑鏂囩殑锛屽惁鍒欏嚭閿 a(1) 鍗虫槸鈥滄潕绾⑩
绛旓細Mid鏄疺isual Basic鍜孧icrosoft Excel涓殑涓涓瀛楃涓鍑芥暟锛屼綔鐢ㄦ槸浠庝竴涓瓧绗︿覆涓鎴彇鍑烘寚瀹氭暟閲忕殑瀛楃銆傝繖涓嚱鏁扮殑3涓弬鏁板悇鍦VB鍜孍xcel涓簰鐩哥瓑浠凤紝浣哣B涓殑Length鍙傛暟鍙互鐪佺暐锛岃孍xcel涓璶um_chars鍙傛暟涓嶅彲鐪佺暐銆傚綋Start锛坰tart_num锛夊弬鏁板皬浜1鏃讹紝鍑芥暟杩斿洖涓涓敊璇紱褰揝tart鍙傛暟鍊煎ぇ浜嶴tring锛坱ext锛夊弬鏁...
绛旓細tS = Left$(S, InStr(S, vbCrLf) - 1)S = Mid$(S, InStr(S, vbCrLf) + 2)Else tS = S S = ""End If ttS = ttS & "ddddddd" & Mid$(tS, 5) & vbCrLf Loop S = ttS 濡傛灉鏄瘡琛屾坊鍔瀛楃涓鍒欐妸鍊掓暟绗3琛屾崲鎴 ttS = ttS & "bb" & tS & vbCrLf 娉ㄦ剰锛屼笉璁鸿緭鍏ユ椂鏈鍚...
绛旓細1銆佷娇鐢↙eft$(string, length)鍑芥暟锛圠eft$涔熷彲浠ョ敤Left鏇挎崲锛宻tring瀛楃涓銆乴ength鎴彇鐨勯暱搴︼級鍜孖nStr([start,] string1, string2 [, compare])锛坰tart璧峰浣嶇疆銆乻tring1瀛楃涓层乻tring2瑕佹悳绱㈠瓧绗︿覆銆乧ompare锛0浣跨敤浜屽垎鎼滅储銆1鍖哄垎澶у皬鍐欙級鍑芥暟Left$("123456", Instr("123456", "56")) 2銆VB...
绛旓細1銆乀rim(C)锛氬幓鎺瀛楃涓C涓ょ鐨勭┖鏍笺2銆丩eft(C,n)锛鎴彇C鏈宸﹁竟鐨刵涓瓧绗︺3銆丷ight(C,n)锛氭埅鍙朇鏈鍙宠竟鐨刵涓瓧绗︺4銆丮id(C,m,n)锛氭埅鍙朇涓粠绗琺涓瓧绗﹀紑濮嬬殑n涓瓧绗︺5銆丩en(C)锛氳繑鍥濩鍖呭惈鐨勫瓧绗︽暟锛屾眽瀛楃┖鏍奸兘绠椾竴涓瓧绗︺6銆丩case(C)锛氬皢C涓殑澶у啓瀛楁瘝杞寲鎴愬皬鍐欏瓧姣嶃7銆乁case(...
绛旓細text2.text=split(text1.text,vbcrlf)(1) '杈撳嚭绗簩椤 text2.text=split(text1.text,vbcrlf)(2) '杈撳嚭绗3椤 鍏朵腑vbcrlf鏄洖杞︽崲琛岀 split锛堬級鍑芥暟鏄妸瀛楃涓杞崲涓烘暟缁勶紝vbcrlf鏄垎闅旂銆
