高考问答钢琴重锤什么意思:求一个vbscript程序，将字符串中的多个连续空格变成单个空格
来源：百度文库 编辑：高考问答 时间：2024/05/05 01:31:02
将字符串中的多个连续空格变成单个空格，不知道用vbscript如何实现。
如 str="深圳 经理 中国人才热线"
变为 str="深圳 经理 中国人才热线"
每个汉字之间的空格数量是不确定的。
如 str="深圳 经理 中国人才热线"
变为 str="深圳 经理 中国人才热线"
如 str="深圳 经理 中国人才热线"
变为 str="深圳 经理 中国人才热线"
每个汉字之间的空格数量是不确定的。
如 str="深圳 经理 中国人才热线"
变为 str="深圳 经理 中国人才热线"
晕
key="深圳 经理 中国人才热线"
a=len(key)
b=""
c=0
for i = 1 to a '把整个字段逐个检测
if mid(key,i,1)<>"" then '如果检测的字符不为空
c=0 '状态标记清0
b=b&mid(key,i,1) '并且连接字符
else '如果检测的字符为空
if c=0 then '如果状态标记为0 表示它前面一个字符不为空
b=b&" " '这里是一个空格
c=1 '状态标记为1，下次循环时 就知道这里已经有一个空格了，便不再增加空格
else
end if
end if
next
基本思路LZ应该知道了 我没测试过 不知道对不对 基本上应该能实现 还有没有更简单的方法 我就不知道了 呵呵
如果你说的多个连续空格确定有几个的话，比较简单，假如有3个
str="深圳[3个空格]经理[3个空格]中国人才热线"
str=replace(str,"[3个空格]"," ")
如果不确定，或者每个汉字之间的空格数量不一样，那就比较麻烦了