hackoo

Trim_Dequote.vbs

Aug 23rd, 2020 (edited)
984
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. MyString = """           c:\Folder\Program.vbs          """
  2. Wscript.Echo MyString & vbcrlf & "[" & Trim_Dequote(MyString) & "]"
  3. '-----------------------------------------------------------------------------------------------------------------------
  4. Function Trim_Dequote(S)
  5. If Left(S, 1) = """" And Right(S, 1) = """" Then Trim_Dequote = Trim(Mid(S, 2, Len(S) - 2)) Else Trim_Dequote = Trim(S)
  6. End Function
  7. '-----------------------------------------------------------------------------------------------------------------------
RAW Paste Data