求VB字符串处理函数。 vb中如何进行字符串操作？
vb \u5b57\u7b26\u4e32\u6c42\u957f\u5ea61\u3001VB\u4e2d\uff0c\u7528\u51fd\u6570Len(B)\u5c31\u53ef\u4ee5\u6c42\u51fa\u5b57\u7b26\u4e32a$\u7684\u957f\u5ea6\u3002
2\u3001\u5728VB\u4e2d\uff0c\u4e00\u4e2a\u5b57\u6bcd\u3001\u6570\u5b57\u6216\u6c49\u5b57\u7684\u957f\u5ea6\u5747\u4e3a1\u3002\u6bd4\u5982\uff1aB="\u653e\u504713\u5929"\uff0c\u5219\u8fd0\u7528\u51fd\u6570Len(B)\u540e\u7684\u503c\u4e3a5,\u5b57\u7b26\u4e32\u957f\u5ea6\u5c31\u662f5\u3002
\u6269\u5c55\u8d44\u6599\uff1a
1\u3001Len\u51fd\u6570\u548cLenB\u51fd\u6570\uff1a\u7528\u9014\uff1aLen\u8fd4\u56de\u6587\u672c\u4e32\u7684\u5b57\u7b26\u6570\u3002LenB\u8fd4\u56de\u6587\u672c\u4e32\u4e2d\u6240\u6709\u5b57\u7b26\u7684\u5b57\u8282\u6570
2\u3001\u8bed\u6cd5\uff1aLEN(text)\u6216LENB(text)\u3002\u6ce8\u610f\uff1a\u6b64\u51fd\u6570\u7528\u4e8e\u53cc\u5b57\u8282\u5b57\u7b26\uff0c\u4e14\u7a7a\u683c\u4e5f\u5c06\u4f5c\u4e3a\u5b57\u7b26\u8fdb\u884c\u7edf\u8ba1\u3002\u4f8b\u5982\uff1a\u5982\u679cA1=\u6211\u7231\u7f16\u7a0b\uff0c\u5219\u516c\u5f0f\u201c=LEN(A1)\u201d\u8fd4\u56de4\uff0c=LENB(A1)\u8fd4\u56de8\u3002
3\u3001\u5b57\u7b26\u4e32\u51fd\u6570\uff08String processing function\uff09\u4e5f\u53eb\u5b57\u7b26\u4e32\u5904\u7406\u51fd\u6570\uff0c\u6307\u7684\u662f\u7f16\u7a0b\u8bed\u8a00\u4e2d\u7528\u6765\u8fdb\u884c\u5b57\u7b26\u4e32\u5904\u7406\u7684\u51fd\u6570\uff0c\u5982C\uff0cpascal\uff0cVisual\u4ee5\u53caLotusScript\u4e2d\u8fdb\u884c\u5b57\u7b26\u4e32\u62f7\u8d1d\uff0c\u8ba1\u7b97\u957f\u5ea6\uff0c\u5b57\u7b26\u67e5\u627e\u7b49\u7684\u51fd\u6570\u3002
\u53c2\u8003\u8d44\u6599\uff1a\u5b57\u7b26\u4e32\u51fd\u6570_\u767e\u5ea6\u767e\u79d1
\u8fd9\u4e2a\u8981\u7528\u5230\u5b57\u7b26\u4e32\u5904\u7406\u51fd\u6570\uff0c\u5982Len\u3001left\u3001right\u3001mid\u3001instr\u3001instrrev\u3001replace\u7b49\u7b49\uff0c\u53d1\u73b0\u4e00\u697c\u4e5f\u8bf4\u4e86\u5f88\u591a\uff0c\u4e0b\u9762\u6211\u7528\u4f8b\u5b50\u8bb2\u51e0\u4e2a\u51fd\u6570\u7684\u7528\u6cd5\uff0c
Private Sub Command1_Click()
Dim temp As String '\u6e90\u5b57\u7b26\u4e32
Dim temp2 As String '\u8981\u63d2\u5165\u7684\u5b57\u7b26\u4e32
Dim temp3 As String '\u8981\u63d2\u5165\u7684\u5b57\u7b26\u4e32\u7684\u5de6\u8fb9\u6240\u6709\u5b57\u7b26\u4e32
Dim temp4 As String '\u8981\u63d2\u5165\u7684\u5b57\u7b26\u4e32\u7684\u53f3\u8fb9\u6240\u6709\u5b57\u7b26\u4e32
Dim star As Integer '\u5b57\u7b26\u63d2\u5165\u7684\u4f4d\u7f6e
Dim LenStr As Integer '\u5b57\u7b26\u7684\u957f\u5ea6
star = 2
temp2 = "\u4e0d"
temp = "\u6211\u7231\u4f60"
Print "temp=" & temp
LenStr = Len(temp)
Print "LenStr=" & LenStr
temp3 = Left(temp, star - 1) '\u4ece\u5de6\u8d77\uff0c\u622a\u53d6star - 1\u957f\u5ea6\u7684\u5b57\u7b26\u4e32
Print "temp3=" & temp3
temp4 = Right(temp, LenStr - star + 1) '\u4ece\u53f3\u8d77\uff0c\u622a\u53d6LenStr - star + 1\u957f\u5ea6\u7684\u5b57\u7b26\u4e32
Print "temp4=" & temp4
temp = temp3 & temp2 & temp4
Print "temp=" & temp
temp = Replace(temp, "\u4e0d", "", , , vbTextCompare) '\u66ff\u6362"\u4e0d"\u4e3a"",\u53ef\u4ee5\u8d77\u5230\u5220\u9664"\u4e0d"\u7684\u4f5c\u7528
Print "temp=" & temp
End Sub
\u84e6\u7136\u56de\u9996\uff0c\u53d1\u73b0\u5df2\u7ecf\u9009\u51fa\u6ee1\u610f\u7b54\u6848\u4e86\uff0c\u8fd9\u4e48\u5feb\u554a!!!
1. Mid(字符串，从第几个开始，长度) 在[字符串]中[从第几个开始]取出[长度个字符串]。
例：Mid("小欣无敌",1,3) 则返回 "小欣无"。
2. Instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找，返回字符串2在字符串1中的位置。
例：Instr(1,"小欣无敌","小") 则返回 1, Instr(2,"小欣无敌","小")，则返回 0 。 0 表示未找到。
3. InStrRev(字符串1,字符串2,从第几个开始) 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
例：InstrRev("小欣无敌","小",2) 则返回 2 ; InstrRev("小欣无敌","欣",1) 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到 。0 表示未找到。
4. Left(字符串,长度) 从[字符串]的左边开始返回[长度]个字符。
例：Left("小欣无敌,3) 则返回 "小欣无"。
5. Right(字符串,长度) 从[字符串]的右边开始返回[长度]个字符。
例：Right("小欣无敌",3) 则返回 "欣无敌"。
6. Ucase(字符串) 返回[字符串]的大写形式，只对英文字符有效。
例：Ucase("xiaoXINwuDi") 则返回 "XIAOXINWUDI"。
7. Lcase(字符串) 返回[字符串]的小写形式，只对英文字符有效。
例：Lcase("xiaoXINwuDi") 则返回 "xiaoxinwudi"。
8. Asc(字符) 返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程。
例：Asc("小") 则返回 -12127 ; Asc("小欣无敌") 也返回 -12127。
9. Chr(ASCii编码) 返回[Ascii]编码所代表的字符，和Chr()函数是一个可逆的过程。
例：Chr(-12127) 则返回 "小" ；Chr(asc("小")) 则返回"小"。 这里是为了说明asc和chr的可逆性，例用此特性可以加密文本。
10. Trim(字符串) 返回去掉了前、后之后的[字符串]。
例：Trim(" 小 欣 无敌 ") 则返回 "小 欣 无敌" ，中间的空格不受任何影响。
11. String(个数,字符) 返回[个数]个[字符]。
例：String(3,"小") 则返回 "小小小" , 而 String(3,"小欣无敌") 也返回 "小"，只有首字符才有效。
12. Space(个数) 返回[个数]个空格。
例：Space(5) 则返回 " "。
13. Strconv(字符串,转换的类型) 将字符串转成指定的类型。常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角。
例：Strconv("xiao",vbwide) 则返回 "ＸＩＡＯ",而Strconv("ＸＩＡＯ",vbnarrow) 则返回 "XIAO"。
【注】 vbwide = 4, vbnarrow = 8。
14. Len(字符串) 返回[字符串]的长度。
例：Len("小欣无敌") 则返回 4。
VB中字符串处理函数常用的又Left、Right、Mid、Len、Instr等。
绛旓細Split鍑芥暟鏄竴涓敤浜庡垎鍓瀛楃涓鐨勫嚱鏁帮紝瀹冭兘浠ヤ竴涓瓧绗︿覆鍐呭涓殑涓涓(鎴栧嚑涓繛缁殑)鐗瑰畾鐨勫瓧绗︿负鍒囧壊浣嶇偣鐨勬爣蹇楋紝灏嗚繖涓瓧绗︿覆鍒嗗壊鎴愯嫢骞蹭釜灏忓瓧绗︿覆銆傚畠鐨勭敤娉曟槸\x0d\x0a鍙橀噺 = Split(鍘熷瓧绗︿覆鍙橀噺, 鍒囧壊鏍囧織)\x0d\x0a涓嬮潰鐢ㄤ緥瀛愬叿浣撹鏄庯細\x0d\x0a杩欓噷鏈変竴涓瓧绗︿覆鍙橀噺a锛屽畠鐨勫兼槸"浣...
绛旓細Val锛氬皢瀛楃涓杞寲涓烘暟锛屾鏁版棤绗﹀彿锛岃礋鏁板甫绗﹀彿 Val鐢ㄦ硶锛歏al(n) n鏄竴瀛楃涓诧紝蹇呴』鏄暟鍨嬬殑涓嶇劧浼氬嚭閿 渚嬪 Val(a)=35 Val(a)=.25 Val(a)=-1.5 浣犺鐨勫簲璇ユ槸鎵嶅vb涓殑鈥渁=Val(Text1.Text)鈥濆惂銆傘俆ext鏄互瀛楃涓插舰寮忚褰曠殑锛屾墍浠ヨ鐢╒al ...
绛旓細鍚勭被缂栫▼璇█閮芥湁鑷繁绯荤粺鍑芥暟锛vb涔熶笉渚嬪锛屽浜巚b鏉ヨ瀹冩彁渚涚郴缁熷嚱鏁颁篃寰堝锛屽簲鐢ㄤ篃寰堝箍娉涳紝灏ゅ叾鏄瀛楃涓插嚱鏁锛岄偅涔堝畠鎻愪緵鐨勫瓧绗︿覆鍑芥暟濡備綍浣跨敤鍛紵锛屽皬缂栧湪杩欓噷灏辫窡澶у浜ゆ祦涓涓嬪父鐢ㄧ殑瀛楃涓插嚱鏁扮殑浣跨敤鏂规硶銆傚笇鏈涘濂藉鐨勪綘鏈夋墍甯姪銆傚惎鍔╲b6.0锛屽湪鏂板缓宸ョ▼绐楀彛涓嬮夋嫨鏍囧噯exe鏂囦欢锛岀偣鍑荤‘瀹氭寜閽紝杩涘叆vb...
绛旓細Mid鏄疺isual Basic鍜孧icrosoft Excel涓殑涓涓瀛楃涓插嚱鏁锛屼綔鐢ㄦ槸浠庝竴涓瓧绗︿覆涓埅鍙栧嚭鎸囧畾鏁伴噺鐨勫瓧绗︺傝繖涓嚱鏁扮殑3涓弬鏁板悇鍦VB鍜孍xcel涓簰鐩哥瓑浠凤紝浣哣B涓殑Length鍙傛暟鍙互鐪佺暐锛岃孍xcel涓璶um_chars鍙傛暟涓嶅彲鐪佺暐銆傚綋Start锛坰tart_num锛夊弬鏁板皬浜1鏃讹紝鍑芥暟杩斿洖涓涓敊璇紱褰揝tart鍙傛暟鍊煎ぇ浜嶴tring锛坱ext锛夊弬鏁...
绛旓細鍦VB涓瑿STR鏄瀛楃涓杞崲鍑芥暟锛屽彲鎶婅〃杈惧紡杞崲涓哄瓧绗︿覆锛圫tring锛夌被鍨嬨傝嫢琛ㄨ揪寮忕殑绫诲瀷涓嶅悓锛岄偅涔 CStr 杈撳嚭鐨勭粨鏋滀篃浼氭湁鎵涓嶅悓銆俈B瀹炰緥锛歞im a as Integer dim b as string a=155 b=cstr(a) 'b鐨勫煎氨鏄"155"b=cstr(155) 'b鐨勫间篃鏄"155"b=cstr(a+2) 'b鐨勫兼槸"157"...
绛旓細VB浣跨敤Split鍑芥暟瀹炵幇鍒嗗壊澶氫釜浠ョ浉鍚屾爣璇嗙缁勬垚鐨勫瓧瀛楃涓銆係plit鍑芥暟 鎻忚堪锛岃繑鍥炰竴涓笅鏍囦粠闆跺紑濮嬬殑涓缁存暟缁勶紝瀹冨寘鍚寚瀹氭暟鐩殑瀛愬瓧绗︿覆銆
绛旓細Dim i As Integer For i = 1 To Len(s1)If i = InStr(1, s1, s2, vbTextCompare) Then find = Left(s1, i - 1) & Right(s1, Len(s1) - Len(s2) - i + 1)Exit Function End If Next i find = s1 End Function '灏員ext1.Text涓殑Text2.Text瀛楃鍒犻櫎 Private Sub Command1_...
绛旓細'鏂囨湰妗嗙殑鍊煎彲浠ョ敤鍙橀噺浠ｆ浛 '鍥涗釜鏂囨湰妗 t0 韬唤璇佷俊鎭, T1 鍙栧緱 鐪 鍓嶅瓧绗, T2 鍙 鐪 鍜 甯 涔嬮棿瀛楃, T3 鍙 甯 鍒 鍘 涔嬮棿瀛楃 '涓昏鏄绠"鐪佸競鍘垮湪涓嶅畾闀瀛楃涓涓殑浣嶇疆"'涓 鍙"鐪"鍓嶅瓧绗 T1.Value = Mid(T0.Value, 1, InStr(T0.Value, "鐪") - 1)'鍙 鐪 鍒 甯 ...
绛旓細x="abc 0 cde 0 kkk"s=split(x,"0")msgbox s(1)鍒嗛殧绗PLIT 鐨勭敤娉 鎻忚堪 杩斿洖鍩轰簬 0 鐨勪竴缁存暟缁勶紝鍏朵腑鍖呭惈鎸囧畾鏁扮洰鐨勫瓙瀛楃涓銆傝娉 Split(expression[, delimiter[, count[, start]]])Split 鍑芥暟鐨勮娉曟湁浠ヤ笅鍙傛暟锛氬弬鏁 鎻忚堪 expression 蹇呴夈傚瓧绗︿覆琛ㄨ揪寮忥紝鍖呭惈瀛愬瓧绗︿覆鍜屽垎闅旂銆傚鏋 ...
绛旓細涓銆vb閲宮id锛宭eft鍑芥暟鐨勫尯鍒細1銆佸姛鑳戒笉鍚 left鍔熻兘锛氭牴鎹寚瀹氱殑瀛楃鏁帮紝鎴彇鏂囨湰涓蹭腑宸﹁竟鐨勭涓涓垨鍓嶅嚑涓瓧绗︺俶id鍔熻兘锛氳繑鍥炴枃鏈覆涓粠鎸囧畾浣嶇疆寮濮嬬殑鐗瑰畾鏁扮洰鐨勫瓧绗︼紝杩斿洖鐨勫瓧绗︽暟鐩敱鐢ㄦ埛鎸囧畾銆2銆佷娇鐢ㄦ牸寮忥細left锛=LEFT锛坱ext锛宯um_chars锛塵id锛=MID锛坱ext锛宻tart_num锛宯um_chars锛3銆佸弬鏁拌鏄...
