In the code examples I present I often refer to routine functions.

In my framework I have specialized libraries to call from. In my blog I maintain the similar structure.

Matching string with a pattern (Regular Expression, RegEx)

Public Function Regex_Test(ByVal strSrc, ByVal strRegEx)
 Dim objRegEx
 Dim boolRC, intRC
 Set objRegEx = New RegExp 
 objRegEx.Pattern = strRegEx
 On Error Resume Next
 boolRC = objRegEx.Test(strSrc)
 intRC = Err.Number
 On Error GoTo 0
 If intRC <> 0 Then boolRC = False
 Set objRegEx = Nothing
 Regex_Test = boolRC
End Function

Public Function Regex_Match(ByVal sSource, ByVal sPattern, ByVal intIndex, ByVal boolMatchCase)
  Dim objRegExp, objMatchColl
  Dim boolRC, intRC
 If intIndex < 0 Then
  intIndex = 0
 End If
 Set objRegExp = new RegExp
 objRegExp.Global = TRUE
 objRegExp.IgnoreCase = Not boolMatchCase
 objRegExp.Pattern = sPattern
 On Error Resume Next
 boolRC = objRegExp.Test(sSource)
 intRC = Err.Number
 On Error GoTo 0
 If intRC <> 0 Then boolRC = FALSE
 If Not boolRC Then
    Set objRegExp = Nothing
  Regex_Match = ""
  Exit Function
 End If
 Set objMatchColl = objRegExp.Execute(sSource)
 If (intIndex+1) > objMatchColl.Count  Then
    Set objMatchColl = Nothing
    Set objRegExp = Nothing
  Regex_Match = ""
  Exit Function
 End If
 Regex_Match = objMatchColl.Item(intIndex).Value
  Set objMatchColl = Nothing
  Set objRegExp = Nothing
End Function

Replace pattern(s) in a string

Public Function ReplaceEx(ByVal sSource, ByVal sPattern, ByVal sDest, ByVal boolMatchCase)
  Dim objRegExp
  If sPattern = "" Then
    ReplaceEx = sSource
    Exit Function
  End If
 Set objRegExp = new RegExp
 objRegExp.Global = TRUE
 objRegExp.IgnoreCase = Not boolMatchCase
 objRegExp.Pattern = sPattern
 ReplaceEx = objRegExp.Replace(sSource, sDest)
 Set objRegExp = Nothing
End Function

Number conversion and initialization with a default value

Public Function IntVal(ByVal sVal)
   If isNumeric(sVal) Then
    IntVal = CLng(sVal)
 Else
  IntVal = 0
   End If
End Function

Public Function InitLong(ByVal sActualValue, ByVal DefaultValue)
 DefaultValue = IntVal(DefaultValue)
 If sActualValue = "" Then
  InitLong = DefaultValue
 Else
    If isNumeric(sActualValue) Then
     InitLong = CLng(sActualValue)
  Else
   InitLong = DefaultValue
    End If
 End If
End Function

Initialize string with a default value

Public Function InitValue(ByVal sActualValue, ByVal DefaultValue)
 If sActualValue = "" Then
  InitValue = DefaultValue
 Else
  InitValue = sActualValue
 End If
End Function

Initialize boolean with a default value

Public Function InitBool(ByVal sActualValue, ByVal boolDefaultValue)
   sActualValue = UCase(sActualValue)
   Select Case boolDefaultValue
   Case TRUE
   'By default set to TRUE
   'Set to FALSE if explicitely defined
     If (sActualValue = "FALSE") OR (sActualValue = "NO") Then
      InitBool = FALSE
     Else
      InitBool = TRUE
     End If
   Case FALSE
   'By default set to FALSE
   'Set to TRUE if explicitely defined
     If (sActualValue = "TRUE") OR (sActualValue = "YES") Then
      InitBool = TRUE
     Else
      InitBool = FALSE
     End If
   End Select
End Function

Questions / Answers

How to trim words inside a text line (QTP, VBScript)

How to wrap text line (QTP, VBScript)

Inserting breaks into text line

Additional Functions

GetTokenByNumber

GetTokenByKeyword