189 8069 5689
假设你要分割的字符串是string1的话
十多年的雨城网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销的优势是能够根据用户设备显示端的尺寸不同，自动调整雨城建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“雨城网站设计”,“雨城网站推广”以来，每个客户项目都认真落实执行。
分割代码就是：
dim s as string=strings.split(string1,vbcrlf)
这样s就是一个阵列了。s(0)是第一段内容，s(1)是第二段内容，以此类推。~~
googles8 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。
用split函数
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a
得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定
大概就这样，你自己试试吧
VB中的split函数，可以按指定的符号将字符串分解为字符串数组，返回分割后的数组。
用法: split( 字符串，分割符 )
例子：
dim a() as String
dim s as String
s = "曲折的荷塘上面,弥望的是叶子,叶子出水"
a = split( s, "," )
msgbox( a(0) )
msgbox( a(1) )
至于逗号和句号混杂的问题，可以用replace函数先进行一遍替换，也可以多次使用split