清除字符串中的空格

'################################################################
'156. 函数作用: 清除字符串中的空格
'################################################################
Public Function ClearBlank(ByVal sData As String) As String
    '清除字符串 sData 中的空格，如果 sData 只有空格则返回空字符串""
    Dim ss As String
    Dim bs, cc As String
    Dim ii, i As Long
    ss = Trim(sData)
    ii = Len(ss)
    For i = 1 To ii
        cc = Mid(ss, i, 1)
        If cc <> " " Then
            bs = bs & cc
        End If
    Next i
    sData = bs
    ClearBlank = bs
End Function
'################################################################