字符串中连续多空格怎么一次性都换成单个空格

字符串中连续多空格如何一次性都换成单个空格
字符串中连续多空格如何一次性都换成单个空格

如s="   a  b    c  f" 
如何变成s=" a b c f" 

[解决办法]

clear
s="   a  b    c  f"
?s
?MyStrtran(s)

Function MyStrtran
Lparameters tcStr
For lnI=100 To 2 Step -1&& 100 表示最大支持长度是100的空格，可根据需求更改此值
tcStr=Strtran(tcStr,Space(lnI),Space(1))
EndFor
Return tcStr
Endfunc

[解决办法]
2个空格换成一个空格，换到没2个空格为止。
Do While [  ]$s
   s=strtran(s,[  ],[ ])
enddo