VB：split函数 vb里的split（）函数说明
split\u51fd\u6570\u5728vb\u4e2d\u7684\u7528\u6cd5Split\u51fd\u6570\u662f\u4e00\u4e2a\u7528\u4e8e\u5206\u5272\u5b57\u7b26\u4e32\u7684\u51fd\u6570\uff0c\u5b83\u80fd\u4ee5\u4e00\u4e2a\u5b57\u7b26\u4e32\u5185\u5bb9\u4e2d\u7684\u4e00\u4e2a(\u6216\u51e0\u4e2a\u8fde\u7eed\u7684)\u7279\u5b9a\u7684\u5b57\u7b26\u4e3a\u5207\u5272\u4f4d\u70b9\u7684\u6807\u5fd7\uff0c\u5c06\u8fd9\u4e2a\u5b57\u7b26\u4e32\u5206\u5272\u6210\u82e5\u5e72\u4e2a\u5c0f\u5b57\u7b26\u4e32\u3002\u5b83\u7684\u7528\u6cd5\u662f
\u53d8\u91cf = Split(\u539f\u5b57\u7b26\u4e32\u53d8\u91cf, \u5207\u5272\u6807\u5fd7)
\u4e0b\u9762\u7528\u4f8b\u5b50\u5177\u4f53\u8bf4\u660e\uff1a
\u8fd9\u91cc\u6709\u4e00\u4e2a\u5b57\u7b26\u4e32\u53d8\u91cfa\uff0c\u5b83\u7684\u503c\u662f"\u4f60\u3001\u6211\u3001\u4ed6"\uff0c\u5219
b = Split(a, "\u3001")
\u6b64\u540eb\u5c31\u53d8\u6210\u4e86\u4e00\u4e2a\u53d8\u91cf\u7ec4\uff0cb(0)\u7684\u503c\u662f"\u4f60"\uff0cb(1)\u7684\u503c\u662f"\u6211"\uff0cb(2)\u7684\u503c\u662f"\u4ed6"\u3002
\u4e0b\u9762\u4e3e\u4e00\u4e2a\u5e94\u7528\u7684\u4f8b\u5b50\uff1aText1\u4e2d\u662f\u7528\u6587\u5b57\u8868\u793a\u7684\u6570\u636e\uff0c\u683c\u5f0f\u4e3a"\u6570\u636e1;\u6570\u636e2;\u6570\u636e3;\u2026\u2026\uff0c\u8981\u6c42\u70b9\u51fbCommand1\u540e\u5c06\u8fd9\u4e9b\u6570\u636e\u5217\u5728List1\u4e2d\u3002
Private Sub Command1_Click()
a = Split(Text1.Text, ";")
For i = 0 To UBound(a)
List1.AddItem a(i)
Next
End Sub
1. \u51fd\u6570\u89e3\u91ca\uff1a \u5c06\u4e00\u4e2a\u5b57\u7b26\u4e32\u6309\u7167\u67d0\u4e2a\u5b50\u5b57\u7b26\u4e32\u5206\u5272\u6210\u5b57\u7b26\u6570\u7ec4\u3002
Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])
Member of VBA.Strings
Split a string into an array
2. \u4f8b\u5b50
Private Sub Command1_Click()
Dim x As String
x = "a b c"
Dim y
y = Split(x, " ")
For i = 0 To UBound(y)
Debug.Print y(i)
Next
End Sub
split函数的作用是返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
语法：Split(expression[, delimiter[, count[, compare]]])
Split函数语法有如下几部分：
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
count 可选的。要返回的子字符串数，-1表示返回所有的子字符串。
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。
扩展资料
VB的语言特色
制作应用程序安装盘等为用户提供了友好的集成开发环境，具体表现在：
可视化的设计平台：在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。
而在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。
开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。
Split("北京,乌鲁木齐,上海,广州,香港,澳门", ",")
就是以","为分隔符把字符串"北京,乌鲁木齐,上海,广州,香港,澳门"分割成若干子串
结果就是
a(0)="北京"
a(1)="乌鲁木齐"
a(2)="上海"
a(3)="广州"
a(4)="香港"
a(5)="澳门"
后面的代码就把数组a的内容显示出来
不用再解释了吧
a = Split("北京,乌鲁木齐,上海,广州,香港,澳门", ",")
这段代码的意思是把第一个字符串 "北京,乌鲁木齐,上海,广州,香港,澳门" 按第二个字符串，也就是逗号，分割成多个字符串并存入数组a,数组的内容是
北京
乌鲁木齐
上海
广州
香港
澳门
在传输数据或读取文本文件时经常会用到split函数
以 , 为分隔符分割 "北京,乌鲁木齐……"这个字符串，然后存到数组a里面
a(0)=北京
a(1)=乌鲁木齐
a(2)=上海
以此类推
UBound(a) 是获取a数组的上标。从a=split("北京,乌鲁木齐,上海,广州,香港,澳门",......)这段可以知道上标为5（0-5，共六个，对应 北京,乌鲁木齐,上海,广州,香港,澳门 六个城市）
慢慢琢磨一下吧，有时候脑袋也会打结的。实在想不通就休息一段时间再想
split函数
把一个字符串，按一定规律，分割成一个字符串数组。
因此，要有一定的标准，你所说的逗号，就是分割标准的一种，即以逗号为分隔标志，将一个长字符串，分割成一组短字符串。
绛旓細璨屼技鏉ヨ繜浜嗐傘傘split(鐩爣涓诧紝鍒囧壊绗)寰楀埌鐨勬槸涓涓暟缁勩傚彲浠ュ湪鍚庨潰鐩存帴璺熶笅鏍囧紩鐢ㄣ split("aaa,bbb,ccc",",")(1)寰楀埌鐨勫氨鏄皢鈥渁aa,bbb,ccc鈥濇寜鐓р滐紝鈥濆垏鍒嗗苟鍙栧嚭涓嬫爣涓1锛堢浜屼釜鍏冪礌锛vb閲岄潰涓嬭〃浠0寮濮嬶級鐨勫厓绱狅紙bbb锛
绛旓細甯告暟 鍊 鎻忚堪 vbUseCompareOption 鈥1 鐢∣ption Compare璇彞涓殑璁剧疆鍊兼墽琛屾瘮杈冦倂bBinaryCompare 0 鎵ц浜岃繘鍒舵瘮杈冦倂bTextCompare 1 鎵ц鏂囧瓧姣旇緝銆倂bDatabaseCompare 2 浠呯敤浜嶮icrosoft Access銆傚熀浜庢偍鐨勬暟鎹簱鐨勪俊鎭墽琛屾瘮杈冦傜畝鍗曠殑涓句緥鏉ヨ锛 濡傛灉瑕佺敤a鏉ュ垎鍓瞔abAd 杩欎釜瀛楃涓...
绛旓細灏辨槸鎷嗗垎瀛楃涓插槢鐢ㄤ竴涓緥瀛愬氨鐭ラ亾浜唖=split("璧,閽,瀛,鏉",",")s鏄釜瀛楃涓叉暟缁,杩欐牱鐨勮瘽,s涓氨鏈夊洓涓厓绱爏(0)鏄档s(1)鏄挶s(2)鏄瓩s(3)鏄潕姣旇嚜宸变竴涓釜璧嬪煎揩澶氫簡
绛旓細灏辨槸鎷嗗垎瀛楃涓插槢鐢ㄤ竴涓緥瀛愬氨鐭ラ亾浜唖=split("璧,閽,瀛,鏉",",")s鏄釜瀛楃涓叉暟缁,杩欐牱鐨勮瘽,s涓氨鏈夊洓涓厓绱爏(0)鏄档s(1)鏄挶s(2)鏄瓩s(3)鏄潕姣旇嚜宸变竴涓釜璧嬪煎揩澶氫簡
绛旓細鐒惰VB杩欎釜璇█浠庝竴鍑虹敓锛屽氨娉ㄥ畾瀹冧笉鑳界敤鍗曞弻寮曞彿鏉ュ尯鍒嗭紝鍥犱负瀹冪殑鍗曞紩鍙锋槸娉ㄩ噴鏍囪銆傝.net鏄竴涓被鍨嬩弗鏍肩殑骞冲彴锛孋#/J#/C++.net閮戒娇鐢ㄥ悓涓濂桝PI锛屾墍浠ュ湪寰堝鍦版柟鏄尯鍒嗗瓧绗︾殑锛屼緥濡傝繖涓split鍑芥暟鐨勭涓涓弬鏁帮紝闇瑕佷紶涓涓瓧绗﹁繘鏉ャ傚湪VB涓幏鍙栧瓧绗﹀父鐢ㄧ殑鏈変笁绉嶆柟寮忥細鏂规硶1锛歞im a as char = "a...
绛旓細鍙互鍒╃敤split鍑芥暟鎸夌壒瀹氭爣绀哄瓧绗﹀垎鍓茶緭鍏ョ殑瀛楃涓诧紝寰楀埌淇╀釜鍙傛暟銆俿plit鍑芥暟鐢ㄦ硶濡備笅锛氳繑鍥炲兼暟缁 = Split("瀛楃涓","鍒嗗壊绗")鍔熻兘瑙ｉ噴锛氬皢鎸囧畾瀛楃涓蹭粠鍒嗗壊绗︿綅缃垎鍓诧紝鍒嗗壊鍚庣殑瀛楃涓插瓨鍏ユ寚瀹氱殑鏁扮粍銆傝寖渚嬩唬鐮佸涓嬶細private sub command1_click()a=inputbox("璇锋寜鏍煎紡杈撳叆锛氬弬鏁1锛屽弬鏁2")b=split(...
绛旓細t = Split(Trim(temp), " ")鍘熷洜灏辨槸杩欎竴鍙ワ紝鐢变簬鍐嶆璇诲彇鏃讹紝Split鍑芥暟杩斿洖鐨勬暟缁勪笂闄愪负-1锛屼笅闄愪负0锛堝嵆娌℃湁杩斿洖姝ｇ‘鐨勬暟缁勶級銆傚缓璁娇鐢╩id鍑芥暟鏉ュ垎鏋恡emp锛屽啀鍙栨暟瀛樺叆t鏁扮粍銆
绛旓細鏁扮粍d()鏄彉浣撶被鍨嬶紝e()鏄疭tring銆傛墍浠ュ皢瀛楃涓茬被鍨嬬殑e()璧嬪肩粰鍙樹綋绫诲瀷鐨刣()灏变細浜х敓閿欒銆備慨鏀规柟娉曪細绗竴绉嶏細dim a,d() as string ,e() as string...绗簩绉嶏細鐩存帴灏哾瀹氫箟涓篤ariant绫诲瀷鐨勫彉閲忥紝杩欐牱璁VB鑷繁鍘昏瘑鍒氨涓嶄細浜х敓绫诲瀷涓嶅尮閰嶇殑闂銆傝矊浼煎悗闈㈢殑List1璧嬪兼湁闂锛屼笉鐭ラ亾浣犳渶缁堟兂杈惧埌...
绛旓細涓ょ鏂规硶锛1.灏嗗弻寮曞彿鎹㈡垚 chr(34) 鐢 & 褰撴垚瀛楃涓茶繛鎺ャ傛瘮濡傛槸 a"b 杩欐牱鐨勫瓧绗︿覆锛屾崲鎴 "a & chr(34) & "b"2. 鐢ㄢ溾 琛ㄧず 涓涓瓧绗︿覆涓殑鍙屽紩鍙凤紝杩欐牱 "a""b" 琛ㄥ瓧绗︿覆 a"b
绛旓細dim s,v 'v鐢ㄦ潵淇濆瓨鐢split鍒嗗壊鍚庣敓鎴愮殑瀛楃涓叉暟缁勶紝鍗虫槸浣犺鐨5鏉″崟鐙瓧绗︿覆 s="锛---LVTDB12A77B001683LVVDA11B14D064217LVVDA11B54D062650LVVDA11B94D062652LVVDB12A24D065198---"s=replace(s,"-","")'鍘绘帀- s=replace(s,"LV",",LV",3)'閫氳繃瀛楃涓插強浣犵殑瑕佹眰锛屽彲鍙戠幇鏄互L...
