How to normalize strings in HP QTP (UFT)?

In this blog post, we will see how to normalize strings in HP QTP (UFT). Below code receives string and then convert it to equivalent string in a regular expression format. Below snippet uses Replace function.

Msgbox NormalizeStringFunc ("Q+A*I.n?sight\s")

Function NormalizeStringFunc(MyStr)
    Dim TempStr
    TempStr = Replace(MyStr, "\", "\\")
    TempStr = Replace(TempStr, "*", "\*")
    TempStr = Replace(TempStr, "+", "\+")
    TempStr = Replace(TempStr, ".", "\.")
    NormalizeStringFunc = Replace(TempStr, "?", "\?")
End function

Output of above code is as shown below.

[auto_thumb width=”150″ height=”150″ link=”” lightbox=”true” align=”center” title=”How to normalize strings in HP QTP (UFT) – QAInsights” alt=”How to normalize strings in HP QTP (UFT) – QAInsights” iframe=”false” frame=”true” crop=”true”]http://qainsights.com/wp-content/uploads/2013/07/How-to-normalize-strings-in-HP-QTP-UFT-QAInsights.jpg[/auto_thumb]