string - 修剪所有类型的空白，包括制表符

Question

在 VB6 中，Trim() 函数修剪字符串前后的空格。我想知道是否有一个函数不仅可以修剪空格，还可以修剪字符串两端的所有空白(在本例中为制表符)。

Answer 1

您必须将Trim 函数与Replace 函数结合起来:

s = "   ABC  " & vbTab & "   "
MsgBox Len(s)

MsgBox Len(Trim$(s))

s = Replace$(Trim$(s), vbTab, "")
MsgBox Len(s)

注意:以上代码还将删除嵌入的选项卡。可能可以使用正则表达式解决此问题，但这里有一种通过循环仅从末尾修剪空格/制表符的方法:

Dim s As String, char As String, trimmedString As String
Dim x As Integer

s = "  " & vbTab & " ABC  " & vbTab & "a   " & vbTab

'// Trim all spaces/tabs from the beginning
For x = 1 To Len(s)
    char = Mid$(s, x, 1)
    If char = vbTab Or char = " " Then
    Else
        trimmedString = Mid$(s, x)
        Exit For
    End If
Next
'// Now do it from the end
For x = Len(trimmedString) To 1 Step -1
    char = Mid$(trimmedString, x, 1)
    If char = vbTab Or char = " " Then
    Else
        trimmedString = Left$(trimmedString, x)
        Exit For
    End If
Next

你最终应该得到ABC{space}{space}{tab}a