Parent page: Service Functions – String (QTP, VBScript)

Description

Based on the maximum allowed length of  the string (strMsgText) insert space characters.

Implementation

Public Function BreakTextLine(ByVal strMsgText, ByVal intMaxLen)
 Dim intLoc, intMaxLen, strResult

 If Len(strMsgText) < intMaxLen Then
  BreakTextLine = strMsgText
  Exit Function
 End If

 strResult = ""

 While Len(strMsgText) > 0
  intLoc = InStr(1,strMsgText," ")

  If intLoc = 0 Then
   strResult = strResult & Left(strMsgText, intMaxLen) & " "
   strMsgText = Mid(strMsgText, intMaxLen+1)
  Else
   If intLoc <= intMaxLen Then
    strResult = strResult & Left(strMsgText, intLoc)
    strMsgText = Mid(strMsgText, intLoc+1)
   Else
    strResult = strResult & Left(strMsgText, intMaxLen) & " "
    strMsgText = Mid(strMsgText, intMaxLen+1)
   End If
  End If
 Wend

 BreakTextLine = strResult
End Function