修剪前导空格,包括标签

Question

我需要使用vbscript读取文件并删除所有前导空格,包括任何选项卡.我现在LTRIM将删除前导空格但我如何删除标签.

谢谢.

Answer 1

此函数从字符串中删除所有前导空格(空格,制表符等):

Function LTrimEx(str)
  Dim re
  Set re = New RegExp
  re.Pattern = "^\s*"
  re.Multiline = False
  LTrimEx = re.Replace(str, "")
End Function

Answer 2

对于多行字符串中的左右修剪(包括制表符,回车符,换行符,空格),这将起作用.

Function MultilineTrim (Byval TextData)
    Dim textRegExp
    Set textRegExp = new regexp
    textRegExp.Pattern = "\s{0,}(\S{1}[\s,\S]*\S{1})\s{0,}"
    textRegExp.Global = False
    textRegExp.IgnoreCase = True
    textRegExp.Multiline = True

    If textRegExp.Test (TextData) Then
        MultilineTrim = textRegExp.Replace (TextData, "$1")
    Else
        MultilineTrim = ""
    End If
End Function