vbs字符串分割函数代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】 vbs字符串分割函数

作者: / 发布于2010/12/30/ 2441

<div>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, "$")) 
</div>

　　

试试其它关键字

　分割函数　

同语言下

可能有用的

贡献的其它代码Label

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3