Question

VB：输入字符串s，将s中前导空格和尾随空格删去，中间连续多个空格缩减为一个空格。求做这条题目的思

VB：输入字符串s，将s中前导空格和尾随空格删去，中间连续多个空格缩减为一个空格。求做这条题目的思路。

Answer 1

循环替换(replace())
去首尾空格trim()

追问

我有代码，但是不知道是怎么做的

追答

你的代码太乱了。
s=" a b c "
s=trim(s)
while instr(s," ")
s=replace(s," "," ")
wend
text1=s

Answer 2

trim(s)'去除头尾的空格
dim str() as string
redim str(len(s))
for i=1 to ubound(str)
if mid(s,i,1)=space(1) then
str(i)=1
else
str(i)=0
end if
next i
下面可以扫描str数组，就能再次分析可以满足你要求了