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

分享标题：vbs中怎么实现一个字符串分割函数-创新互联
网页路径：http://6mz.cn/article/jipje.html