这样的功能怎么实现？不太好描述啊进来再说吧-

这样的功能如何实现？不太好描述啊，进来再说吧-_-!!
比如有一个字符串：我爱祖国天安门
我想通过一个函数将上面那个字符串格式成这样：我爱，爱祖，祖国，国天，天安，安门
即依次两个字两个字的隔开.
若设置的是三个字，那么就会变成：我爱祖，爱祖国，祖国天，国天安，天安门

咋整？

[解决办法]
可以如下实现的思路：
取得字符串的长度
然后用字符串长度减去设置的字数，然后进行循环截取
比如“我爱祖国天安门” 长度是7
设置按2个个字分开，那么用7-2=5
然后循环截取
即：

VBScript code

str="我爱祖国天安门"for i=1 to 5response.write mid(str,i,2)response.write "<br>"next
[解决办法]
可以如下实现的思路：
取得字符串的长度
然后用字符串长度减去设置的字数，然后进行循环截取
比如“我爱祖国天安门” 长度是7
设置按2个个字分开，那么用7-2=5
然后循环截取

[解决办法]
str="我爱祖国天安门"
for i=1 to 5
response.write mid(str,i,2)
response.write "<br>"
next
正解~变形~
str="我爱祖国天安门"
dim n
n=2
for i=1 to len(str)
response.write mid(str,i,n)
response.write "<br>"
next
呵呵~我是抄上面的~