如何将字符串中间的多个空格变为一个空格

afterain

在vba中获取一字符串中空格太多
如：
str="姓名             张三      年龄        28"
想得到结果
str="姓名 张三 年龄 28"
即
姓名(空格)张三(空格)年龄(空格)28

用replace(str,"  "," ")把两个空格替换成一个空格没有用，因为它会把12个空格替换成6个空格

其实我的目的是要把这个字符串先按照一个空格分开，然后用split函数将四个"姓名"，"张三"，"年龄"，"28"分别赋值给四个变量，请大家帮忙

[ 本帖最后由 afterain 于 2007-11-14 11:29 编辑 ]

fan0217

那就再替换啊，最直接的方法。

wanshan

要用到循环：
Public Function kongge(str As String) As String
   
    Do Until InStr(str, "  ") = 0
        str = Replace(str, "  ", " ")
    Loop
   
    kongge = str
   
End Function

调用：kongge(str)

andymark

也可用SPLIT分割后合并
Public Function MySplit(Str As String) As String
   
    Dim vArr As Variant
    Dim astr(10) As String
    vArr = astr
    vArr = Split(Str, " ")
    Str = ""
    For i = LBound(vArr) To UBound(vArr)
        If vArr(i) <> "" Then
            Str = Str & vArr(i) & Space(1)
        End If
    Next i
    MySplit = Trim(Str)
   
End Function