VBScript LTrimText

'********************************************************************

'* Function LTrimText

'*

'*   Author: NetworkAdminKB.com

'*  Created: 2004-11-12

'* Modified: 2008-12-06

'*

'* Purpose: Returns a string with the text removed from Left side of String.

'*

'* Input:   strTrim = A string to have the Text Removed.

'*        strRemove = The string to remove from the Left side of the strTrim

'*          blnCase = A boolean indicating case sensitive searches

'*                      True  = Case Sensitive Search

'*                      False = Case Insensitive Search

'*

'* Output: Returns a string with the specified text (strRemove) removed from

'*           the Left side of the strTrim.

'*

'* Calls:

'* ReturnCaseComparisonValue

'*

'* Changes:

'* 2007-01-11: Added blnCase and intSearch

'* 2008-12-06: Replaced intSearch with ReturnCaseComparisonValue

'********************************************************************

Function LTrimText (ByVal strTrim, ByVal strRemove, ByVal blnCase)

  'Version 1.2 2008-12-06

  Dim intLen, strTemp

  intLen = Len(strRemove)

  If InStr(1, strTrim, strRemove, ReturnCaseComparisonValue(blnCase)) = 1 Then

    strTemp = Mid(strTrim, intLen + 1)

  Else

    strTemp = strTrim

  End If 'InStr(1, strTrim, strRemove, ReturnCaseComparisonValue(blnCase)) = 1

  LTrimText = strTemp

End Function 'LTrimText