VBA的split函数能不能分隔被多个空格间隔的数据啊？

hanamiqi · 发表于 2009-9-27 15:21

比方说 string = "1 2 3 4"
我用split(string," ")得到的并不是我想要的1，2，3，4，而是1，2，空格，3，空格，空格，4
怎么VBA的split这么弱，能不能象perl那样把多个空格当一个空格来处理？

honggexjq · 发表于 2009-9-27 15:34

split(application.worksheetfunciton.trim(string)," ")试试

lb_bn · 发表于 2009-9-27 15:36

好像要对数据作后继处理。

lipton · 发表于 2009-9-27 15:44

原帖由 hanamiqi 于 2009-9-27 15:21 发表
比方说 string = "1 2 3 4"
我用split(string," ")得到的并不是我想要的1，2，3，4，而是1，2，空格，3，空格，空格，4
怎么VBA的split这么弱，能不能象perl那样把多个空格当一个空格来处理？

空白符不一定是空格符，换行符，制表符也是不可见的，你用 Debug.Print Asc(s)试一试就知道了
试一试 split(string,chr(9))

lipton · 发表于 2009-9-27 16:06

请测试

Sub test()
Dim s As String
Dim arr

s = "4 0 IP_API_B       10  0 IP_Agent 6 3 0"
Do While InStr(s, "  ") '多个空格换成一个空格
s = VBA.Replace(s, "  ", " ")
Loop

arr = VBA.Split(s, " ")

End Sub

cabellx · 发表于 2009-11-18 15:40

学习了。

apollokk · 发表于 2009-11-18 16:04

先用正则表达式把多个空白符处理成一个，再Split

apollokk · 发表于 2009-11-18 16:17

Function myReplace(ByVal s As String) As String
'将字符串中的多个连续空白符成一个
'调用：str=myReplace(ostr)
myReplace = ""
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.IgnoreCase = True
.Pattern = "\s+" '查找空白字符,空格、制表符什么的
myReplace = .Replace(s, " ")
End With
End Function

复制代码

lb_bn · 发表于 2009-11-18 16:42

2楼的方法不错。
表里的Trim跟vba的Trim有一定区别。

aidixiao · 发表于 2010-4-20 16:56

感谢分享。

		自动登录	找回密码
密码			免费注册

[求助] VBA的split函数能不能分隔被多个空格间隔的数据啊？

评分

点评