怎样去掉String中多余的空格阿？

[kingfist]

例如
“ Hello world ” --> "Hello world"

[yangzhaoyu]

前后的空格用TRIM()函数

[Richard2001]

dim str as stringstr=" Hello world "

str=Trim(str)
iPos=instr(str," ")
While iPos>0
str=Replace(str," "," ",1,-1)
iPos=instr(str," ")
Wend

[tigerxiejiyong]

t = "hello world"
t = Replace(t, " ", "")

[seemon]

自己遍一段代码，如：
private function strTrim(strOld as string) as string
dim intNum as inter
strtrim=""
for intnum=1 to len(strold)
if mid(strold,intnum,1)=" " then
else
strtrim=strtrim & mid(strold,intnum,1)
endif
next
end function

[yangzhaoyu]

a = " Hello world "
While InStr(1, a, " ") <> 0
a = Replace(a, " ", " ")
Wend
a=trim(a)
debug.print a

[jackjack]

To Richard2001:
Replace中的参数-1是默任值!省略更好！

[jackjack]

To yangzhaoyu:
还有没有更简单的！

[langzhi]

有三个函数。
ltrim()删除左边的空格
rtrim()删除右边的空格
trim()删除右边和左边的空格

[syb_share]

dim mystring as string
dim str as string
mystring=" Hello world " '“ Hello world "
str=trim(mystring) ' --> "Hello world"





str=Trim(str)

[syb_share]

为什么正确不给分