>Suppose I want to Extract 478 from the given string. I am using the following code
>
>

>lcStr="F5 B (Total Charges)390 478 w"
>lnPOS = At("Total Charges",lcStr)
>WAIT WINDOW SUBSTR(lcStr,lnpos+18,3) && Displays 478
>

>
>The same gives me the required Value.
>
>However, in certain cases I get string as "F5 B (Total Chg)390 478 w" insetead of "F5 B (Total Charges)390 478 w", in another instace I get "F5 B (Total Chrgs)390 478 w".
>
>I need 478 from the above irrespective of whether it is Total Charges/Total Chrg/Total chg etc.
>
>Similarly, I have In some Cases "Service Tax" and in other string as "Service Tax New"
>
>Kinldy Guide How to Extract the required value with accuracy in such cases
>
>Regards
>Harsh

lparameters tcString
lnWordNum = getwordcount(tcString)
If Getwordnum(tcString , lnWordNum) = 'w'
   lnWordNum = lnWordNum - 1 
Endif
return val(getwordnum(tcString, lnWordNum ))