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