[已解决]转为以逗号分隔的字符串

爱疯

吕?布 发表于 2012-2-21 11:42
这个代码比较长

Function lvbu2(x As String, y As String, z As String) As String

吕布的和前面82的思路，相比其他的方法，对我来说理解的麻烦些，慢慢学习{:091:}

Dj_soo

爱疯 发表于 2012-2-21 11:42
(^\|+|\|+$)|(\|+)

这样，我才看清楚了你的正则表达式。对于分支条件，(\|+)必须放在后面。不然从左往 ...

对哦,我把z给忘记了,弄的不通用了.
虽然我的代码是用一句了,但是其实pattern更长而且在pattern内的判断更多了,最重要的是在代码中进行了两次替换,所以效率不应该更高.只不过尝试一下一串pattern的方法罢了.
我还是更倾向于2L的代码,不过2L应该是对"|","\"等特殊符号不适应的,如果只是符号的话建议在pattern内添加转义字符

爱疯

Dj_soo 发表于 2012-2-21 11:49
对哦,我把z给忘记了,弄的不通用了.
虽然我的代码是用一句了,但是其实pattern更长而且在pattern内的判断更 ...

是符号的话，是否一定要加转义字符，还准备又去提问呢{:011:}

Dj_soo

爱疯 发表于 2012-2-21 11:50
是符号的话，是否一定要加转义字符，还准备又去提问呢

不一定,但是用的话最好,因为有些是必须要转义的比如"|","\"等在pattern里有特殊含义的都要转义先

爱疯

只比速度的话，40#比29#略慢点。
另外，在x=""时，会报下标越界

Dj_soo

比如?2L的为"|"的时候你试试?

1. Sub a()
   
2.     Dim x$
   
3.     x = "|| a |bc||| ||||def|  |g|| | ||| |||| h|i| ||"
   
4.     MsgBox zh(x, "|", ",")
   
5. End Sub
   
6. 
   
7. Function zh(x, y, z) '转为形如"a,bc,def,g,hi"这样的字符串
   
8.     With CreateObject("vbscript.regexp")
   
9.         .Global = True
   
10.         .Pattern = "(^" & y & "+)|(" & y & "+$)"
    
11.         x = .Replace(x, "")
    
12.         .Pattern = y & "+"
    
13.         zh = .Replace(x, z)
    
14.     End With
    
15. End Function

复制代码

Dj_soo

按照特殊字符的转义改后为:

1. Sub a()
   
2.     Dim x$
   
3.     x = "|| a |bc||| ||||def|  |g|| | ||| |||| h|i| ||"
   
4.     MsgBox zh(x, "|", ",")
   
5. End Sub
   
6. 
   
7. Function zh(x, y, z) '转为形如"a,bc,def,g,hi"这样的字符串
   
8.     With CreateObject("vbscript.regexp")
   
9.         .Global = True
   
10.         .Pattern = "(^" & y & "+)|(" & y & "+$)"
    
11.         x = .Replace(x, "")
    
12.         .Pattern = "" & y & "+"
    
13.         zh = .Replace(x, z)
    
14.     End With
    
15. End Function

复制代码

爱疯

Dj_soo 发表于 2012-2-21 12:36
按照特殊字符的转义改后为:

对于学习正则表达式，这样是有好处的。

测试后，发现无论是像你这样，还是再分：

匹配开头连续|，替换
匹配结尾连续|，替换

还是影响速度。看来都是被连接符&拖累的

Dj_soo

爱疯 发表于 2012-2-21 13:12
对于学习正则表达式，这样是有好处的。

测试后，发现无论是像你这样，还是再分：

额,这个我就没测试过了,不过对于字符串的处理我还是推荐首选正则.
正则的毕竟不需要循环,整体代码看起来会比较清爽,另外大量数据时肯定会快很多.

爱疯

Dj_soo 发表于 2012-2-21 13:15
额,这个我就没测试过了,不过对于字符串的处理我还是推荐首选正则.
正则的毕竟不需要循环,整体代码看起来 ...

今天和你讨论的这个正则的例子，使我学习到：
为了速度，看起来不爽还是有提速的

除此外，10楼和31楼我改的，只为替换成字符串变量而设的变量，对速度真有提高。这也是让我意外的发现。