Question

我试图比较宏中的字符串，并且数据始终不一致地输入。区别在于前导空格的数量（即＃34;测试＆＃34;与＃34;测试＆＃34;与＃34;测试＆＃34;

对于我的宏，示例中的三个字符串应该是等效的。但是我不能使用Replace，因为字符串中间的任何空格（例如＆＃34;测试一个二三和＃34;）都应该保留。我曾经认为这是Trim应该做的（以及删除所有尾随空格）。但是当我在琴弦上使用Trim时，我看不出有什么区别，而且我确实在琴弦前面留下了白色空间。

所以A）Trim在VBA中做了什么？ B）我尝试做的是否有内置函数，或者我只需要编写函数？

谢谢！

Answer 1

正如加里的学生所说的那样，这个角色不是32岁。实际上是160岁。现在我是一个单纯的男人，白色空间就是白色空间。因此，根据该视图，我创建了以下函数，该函数将删除未实际显示给人眼的所有Unicode字符（即非特殊字符，非字母数字）。该功能如下：

Function TrueTrim(v As String) As String
Dim out As String
Dim bad As String
bad = "||127||129||141||143||144||160||173||" 'Characters that don't output something
       'the human eye can see based on http://www.gtwiki.org/mwiki/?title=VB_Chr_Values

out = v

'Chop off the first character so long as it's white space
If v <> "" Then
    Do While AscW(Left(out, 1)) < 33 Or InStr(1, bad, "||" & AscW(Left(out, 1)) & "||") <> 0 'Left(out, 1) = " " Or Left(out, 1) = Chr(9) Or Left(out, 1) = Chr(160)
        out = Right(out, Len(out) - 1)
    Loop

    'Chop off the last character so long as it's white space
    Do While AscW(Right(out, 1)) < 33 Or InStr(1, bad, "||" & AscW(Right(out, 1)) & "||") <> 0 'Right(out, 1) = " " Or Right(out, 1) = Chr(9) Or Right(out, 1) = Chr(160)
        out = Left(out, Len(out) - 1)
    Loop
End If 'else out = "" and there's no processing to be done

'Capture result for return
TrueTrim = out
End Function

Answer 2

TRIM（）将删除所有领先的空格

Sub demo()
    Dim s As String
    s = "   test   "
    s2 = Trim(s)
    msg = ""
    For i = 1 To Len(s2)
        msg = msg & i & vbTab & Mid(s2, i, 1) & vbCrLf
    Next i
    MsgBox msg
End Sub

您的数据可能包含不可见的字符，但也不是空格。

Answer 3

如果没有看到您的代码，则很难知道，但您也可以将Application.WorksheetFunction.Clean()方法与Trim()方法结合使用，以删除不可打印的字符。

MSDN Reference page for WorksheetFunction.Clean()

Answer 4

为什么不尝试使用Instr功能呢？像这样的东西

Function Comp2Strings(str1 As String, str2 As String) As Boolean
    If InStr(str1, str2) <> 0 Or InStr(str2, str1) <> 0 Then
        Comp2Strings = True
    Else
        Comp2Strings = False
    End If
End Function

基本上你正在检查string1是否包含string2或string2是否包含string1。这将始终有效，您无需修剪数据。

Answer 5

VBA的Trim功能仅限于处理空格。它将删除字符串开头和结尾的空格。

为了处理换行符和标签之类的内容，我总是导入Microsoft VBScript RegEx库并用它来替换空白字符。

在VBA窗口中，转到“工具”，“引用”，“查找Microsoft VBScript正则表达式5.5”。检查一下然后点击OK。

然后你可以创建一个相当简单的函数来修剪所有空白区域，而不仅仅是空格。

Private Function TrimEx(stringToClean As String)
    Dim re As New RegExp
    ' Matches any whitespace at start of string
    re.Pattern = "^\s*"
    stringToClean = re.Replace(stringToClean, "")
    ' Matches any whitespace at end of string
    re.Pattern = "\s*$"
    stringToClean = re.Replace(stringToClean, "")
    TrimEx = stringToClean
End Function

Answer 6

非printables划分网页的不同行。我分别用X，Y和Z替换它们。

Debug.Print Trim（Mid（“X test”，2））'第一名在VBA中计为2

Debug.Print Trim（Mid（“XY test”，3））'第二位在VBA中计为3

Debug.Print Trim（Mid（“X Y Z test”，2））'需要更多轮次：）

程序员喜欢使用内置工具（inSTR，Mid，Left等）整齐地剪切大文本。使用来自几个孩子的文本（即使用.textContent与.innerText）可能会导致几个非printables应对，但DOM和REGEX不适合初学者。精确地处理内部文本的子元素（子元素一个一个！）可以帮助规避不可打印的字符。

VBA修剪留下领先的空白区域

6 个答案: