Changeset 85842 in vbox for trunk/tools/win

Timestamp:

Aug 19, 2020 9:25:14 PM (4 years ago)

Author:

vboxsync

Message:

helpers.vbs: Added StrEndsWith and StrEndsWithI. Execute SelfTest if executed directly (handy for syntax errors).

File:

• trunk/tools/win/vbscript/helpers.vbs (modified) (2 diffs)

trunk/tools/win/vbscript/helpers.vbs

@@ -869 +869 @@
 
 
+''
+' Checks if the string ends with the given suffix (case sensitive).
+function StrEndsWith(str, strSuffix)
+   if len(str) >= Len(strSuffix) then
+      StrEndsWith = (StrComp(Right(str, Len(strSuffix)), strSuffix, vbBinaryCompare) = 0)
+   else
+      StrEndsWith = false
+   end if
+end function
+
+
+''
+' Checks if the string ends with the given suffix, case insenstive edition.
+function StrEndsWithI(str, strSuffix)
+   if len(str) >= Len(strSuffix) then
+      StrEndsWithI = (StrComp(Right(str, Len(strSuffix)), strSuffix, vbTextCompare) = 0)
+   else
+      StrEndsWithI = false
+   end if
+end function
+
+
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '  Helpers: Arrays                                                                                                               '
@@ -1547 +1569 @@
 end sub
 
+'
+' Run the self tests if we're executed directly.
+'
+if StrEndsWithI(Wscript.ScriptFullName, "\tools\win\vbscript\helpers.vbs") then
+   Wscript.echo "helpers.vbs: Running self test..."
+   SelfTest
+   Wscript.echo "helpers.vbs: Self test complete."
+end if