Trim Function不会从任何侧面删除任何空格

Question

我尝试使用宏在Calc中修剪空格。修剪功能似乎无效

我尝试使用Trim，LTrim，RTrim，但结果相同。有人知道哪里错了吗？

oCSL是“阿让与治安官”

oCSR和z在修剪后也应类似于oCSL，但仍保持为“ Arang and the Magistrate”。

下面的代码：

Dim oAC As Object, oC As Object, oAS As Object, oCSL As String, oCSR As String
Dim oASn As Integer
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress
oC = ThisComponent
oAS = oC.getcurrentcontroller.ActiveSheet
oASn = oC.getCurrentController().getActiveSheet().getRangeAddress().sheet

Dim Ll As Integer, Lc As Integer, r As Integer
Dim z As String, y As String
Ll = 400
Lc = 0
r = 400

' Read Each Left Side Line
Do
    Do
        ' Locate Position For Right Side
        Do
            oCSL = Trim(UCase(oAS.getCellByPosition(Lc, Ll).String))    ' oSCL Value Returned "Arang and the Magistrate"
            oCSR = Trim(UCase(oAS.getCellByPosition(7, r).String))      ' oCSR Value Returned "Arang and the Magistrate   "

z = RTrim(oAS.getCellByPosition(7, r).String)         ' z Returns Also "Arang and the Magistrate   "
            If strcomp(oCSL, oCSR) < 0 Then
            ThisComponent.CurrentController.Select(oAS.getCellByPosition(7, r))     ' Reposition Selected Area
                'ThisComponent.CurrentController.Select(oAS.getCellByPosition(Lc, Ll))      ' Reposition Selected Area
                MsgBox ("At " & r & " Not Found " & Chr(13) & oCSL)         ' Not Found
                ' Insert New Movie
                Exit Do
            else
                If UCase(oCSL) = UCase(OcSR) Then
                    ThisComponent.CurrentController.Select(oAS.getCellByPosition(7, r))     ' Reposition Selected Area
                    'MsgBox ("At " & r & " Same Value " & oCSL)     ' Same Value
                    r = r + 1
                    Exit Do
                else
                    r = r + 1
                End If
            End If
        Loop While Lc <= 4
        Lc = Lc + 1
    Loop While Lc <= 4
    Ll = Ll + 1                         ' Next Line
    Lc = 0                              ' Reset Column
Loop While oCSL <> ""                   ' getCellByPosition Starts From Col 0 Row 0

Answer 1

我找到了原因。在使用Asc（）确定空格之后，不是空格而是特殊字符。抱歉打扰大家。