vbs中怎么实现一个字符串分割函数-创新互联

这篇文章给大家介绍vbs中怎么实现一个字符串分割函数，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。

Function CutAndJoin(sSource, iLong, sJoiner) 
Dim I, N 
N = Len(sSource) / iLong 
If(N <> Fix(N))Then N = Fix(N) + 1 
For I = 0 To N - 1 
CutAndJoin = CutAndJoin & Mid(sSource, I * iLong + 1, iLong) & sJoiner 
Next 
If(N > 0)Then CutAndJoin = Left(CutAndJoin, Len(CutAndJoin) - Len(sJoiner)) 
End Function 
WScript.Echo(CutAndJoin("hello world!", 1, "$"))

关于vbs中怎么实现一个字符串分割函数就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。