Trim

下面這段程式是剛剛寫的，比之前別人寫的 replace(replace(trim(Expression)," ",""),"　","") 好太多了，也不會把別人英文名字內不該刪除的空白給一併刪除而造成使用者困擾以及客訴！


'Add by Sopp at 2007/01/12 for Ver.8.5.1 [新增函式，可以同時Trim掉字串前後的全半形空白]
Public Function TrimSpace(ByRef Expression) As String
    Dim i As Integer
    Dim Temp As String
    Dim Temp2 As String
    
    Temp = CStr(Expression)
    
    If Replace(Replace(Temp, " ", ""), "　", "") = "" Then
        TrimSpace = ""
        Exit Function
    End If
    
    For i = 1 To Len(Temp) Step 1
        Temp2 = Mid$(Temp, i, 1)
        If Temp2 <> " " And Temp2 <> "　" Then
            Temp = Mid$(Temp, i)
            Exit For
        End If
    Next i
    
    For i = Len(Temp) To 1 Step -1
        Temp2 = Mid$(Temp, i, 1)
        If Temp2 <> " " And Temp2 <> "　" Then
            Temp = Mid$(Temp, 1, i)
            Exit For
        End If
    Next i
    
    TrimSpace = Temp
    
End Function