Public Function TrimAll(ByVal TextIn As String, Optional ByVal TrimChar As String = " ", Optional ByVal CtrlChar As String = Chr(0)) As String
Try ' Replace ALL Duplicate Characters in String with a Single Instance
TrimAll = Replace(TextIn, TrimChar, CtrlChar) ' In case of CrLf etc.
While InStr(TrimAll, CtrlChar + CtrlChar) > 0
TrimAll = TrimAll.Replace(CtrlChar + CtrlChar, CtrlChar)
End While
TrimAll = TrimAll.Trim(CtrlChar) ' Trim Begining and End
TrimAll = TrimAll.Replace(CtrlChar, TrimChar) ' Replace with Original Trim Character(s)
Catch Exp As Exception
TrimAll = TextIn ' Justin Case
End Try
Return TrimAll
End Function
|
No responses found. Be the first to respond and make money from revenue sharing program.
|