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