Public Function ReplaceSpace(ByVal str As String) As String
Dim i As Integer
i = InStr(str, " ")
Do While i 0 Then
str = Replace(str, " ", "")
End If
Loop
ReplaceSpace = str
End Function
Dim i As Integer
i = InStr(str, " ")
Do While i 0 Then
str = Replace(str, " ", "")
End If
Loop
ReplaceSpace = str
End Function
博客展示了一段VB代码,定义了一个名为ReplaceSpace的函数,用于去除字符串中的空格。函数接收一个字符串参数,通过循环查找空格并替换为空字符串,最终返回处理后的字符串。
694

被折叠的 条评论
为什么被折叠?



