Answer / mdbasha7862@gmail.com

orderstring="ORD13456PNR"

'we can use mid function

string1=mid(orderstring,3,5)
msgbox (string1)

Answer / phani

Dim text,num,only_text
text=inputbox("enter text")
n=len(text)
For i=1 to n
a=mid(text,i,1)
if isnumeric(a)=true then
num=num&a 'numbers are store in this
else
only_text=only_text&a 'text is stored
end if
Next
msgbox num
msgbox only_text

Answer / babu

The answers mentioned above will work only when we know the
format of the data entered.
But if you want to generalize the function.
We have to select each and every character from the string
and check when the character is a numberic of alphabet.
If it is numeric, then you can add it to a temporary
variable. So, we will get the value of the order number.

Answer / giriyappa badagar

ordStr="ORD13456PNR"

'we can use mid function

string=mid(ordStr,4,5)
msgbox (string)

OR

ordStr="ORD13456PNR"
msgbox right((left(ordStr,8)),5)

Answer / friend

i think we ll get order no exactly by using regular expression
concept......

orderstring="ORD13456PNR"
set r = new regexp
r.pattern="[0-9]+"
set n=r.execute(orderstring)
for each num in n
prrint n.value
next


am i correct.....

Answer / friend

no one is not given correct answer for dynamicaly how to write..plz give the answer for dynamicly hw to write.. we cant expect the number where its come next time right ..so at that time also we want to get correct output



thank u

Answer / srikanth

Dim mystring, myLength
mystring = "ORD13456PNR"
myLength = Len(mystring)

For i = 1 To myLength
If Asc(Mid(mystring, i, 1)) <> 32 Then
If Asc(Mid(mystring, i, 1)) >= 48 And Asc(Mid(mystring, i, 1)) <= 57 Then
myNumber = myNumber & Mid(mystring, i, 1)
End If
Else
msgbox("no numeric")
End If
Next
msgbox(myNumber)

Answer / nihar ranjan

orderstring="ORD13456PNR"

'we can use mid function

string1=mid(orderstring,4,5)
msgbox (string1)

'It will work definitely.......

Answer / raghu

ordStr="ORD13456PNR"

msgbox right((left(ordStr,9)),5)

Answer / qtp

use instrrev or InStr and get the index position using the
search string as PNR
after that bye using the mid function we can get the order
number

var pos=instr(order string,"PNR")

string1=mid(orderstring,3,pos)

msgbox (string1)

How to retrieve alpha bate from the alphanumeric string with special character.

7 Answers   ADP, Cap Gemini,

What is the use of virtual objects?

1 Answers  

Where we write the FUNCTIONS, in Expert view (or) in any textfiles like Notepad and save it in Library functions folder? How to cal that functions to our script? How to save that functions to Function generator?

3 Answers  

Hi, When I click on a hyperlink a secondary pop-window will open. In that pop-up window there will be 'N' number of records arranged in with paging option in datagrid table. Each rows contains two columns, one is text and the other is a radio button. I will pass the first column value and based in it the tool have to select the corresponding radio button in that row. Please someone help me how to handle this as am new to QTP.

2 Answers   CTS,

What are the various types of Actions in UFT?

0 Answers  

Hi, I will provide perticular age,it needs to enter date in text box (MM/DD/YYYY) compare to system date. or already exist data in the text box.

2 Answers   Virtusa,

Is it possible for QTP to capture the objects in word document.If so please give me the code.Thank you.

2 Answers  

Is it possible to run QTP scripts created in IE 6.0 in IE 7.0?

4 Answers   TCS,

How can I change object description or check point values in qtp?

0 Answers  

Can we do server automation by QTP? If you have any helpful links ,pls post it. Thanks Uma

1 Answers  

Hi I have created a table in the MS access database. I want to access the table in this database through QTP. The code is given below. The code is not working.The following error is displayed "Data source name not found and no default driver specified". Any one can correct the code. Thanks in advance. Dim dbconnection, rs Dim ca, sname Set dbconnection = createobject("ADODB.Connection") Set rs = createobject("ADODB.Recordset") dbconnection.open "DSN = MS Access Database","", "" rs.open "select * from Research", dbconnection rs.movefirst If rs.EOF <> True AND rs.BOF<> True then ca = rs("order_number") sname = rs("customer_number") rs.movenext msgbox ca msgbox sname End If

1 Answers  

Write the script to delete the mail which is at 9th,13th and 18th place in INBOX of Gmail ?

0 Answers