InStr Function:
'InStr([start,]string1,string2[,compare])
txt="indra"
s1=InStr(1,txt,"d")
msgbox s1
'Result s1=3
InStrRev Function:
'InStrRev(String, Substring, Start, Compare)
val="ABCDE ABCDE"
res=InStrRev(val, "C")
msgbox res
Len Function:
s2=Len("indra")
msgbox s2
'StrReverse Function:
s2=StrReverse("indra")
msgbox s2
'StrComp Function:
s1=StrComp("indra", "indra" )
msgbox s1
'If the strings are the same, the output is zero. If the strings are different, the output will be a 1 or -1 depending on the order of the strings
'Sqr Function:
val = 16
res = sqr(val)
msgbox res
'String Function:
'String(Number, Character)
'The Number argument must an integer and defines the number of times to repeat the character
res = String (10,"%")
msgbox res
'Output: %%%%%%%%%%
'Split Function :
'Split(Expression, Delimiter, Count, Compare)
Vendor_name="Aravind Engineering"
s = Split(Vendor_name)
s1= s(0)
msgbox s1
'Ucase Function
val="indra"
res=Ucase(val)
msgbox res
'Lcase Function
val="INDRA"
res=Lcase(val)
msgbox res
'Mid Function:
'Mid(String, Start, Length)
s= Mid("abcde fghij klmno pqrst uvwxyz", 8, 7)
msgbox s
'Left Function
s = Left("abcde fghij klmno pqrst uvwxyz", 13)
msgbox s
'Right Function
'Right(String, Length)
s = Right("abcde fghij klmno pqrst uvwxyz", 13)
msgbox s
'FormatCurrency Function
'FormatCurrency(Expression, NumDigitsAfterDecimal, IncludeLeadingDigit, UseParensForNegativeNumbers, GroupDigit)
s= FormatCurrency(31567)
msgbox s
'FormatDateTime Function
s = FormatPercent(.77)
msgbox s
'Replace Function
'Replace(String, FindSubstring, ReplaceSubstring, Start, Count, Compare)
s = Replace("Indra is working in QTP", "QTP", "QC")
msgbox s
