how to reverse a string with out using string or predefined
function,ex:string is " i love india". the output should be
like this "i evol aidni"
Answers were Sorted based on User's Feedback
Answer / karthikjanahan
Dim str,arr
str = "i love india"
strlen = len(str)
ReDim arr(strlen)
For i = strlen to 1 step -1
arr(i) = mid(str,i,1)
x = x & arr(i)
Next
msgbox x
| Is This Answer Correct ? | 10 Yes | 5 No |
Answer / rupesh
Hi Karthik,
ur script will reverse the string but not the individual
words...
output of ur script will be "aindi evol i"
| Is This Answer Correct ? | 6 Yes | 1 No |
Answer / nivas
The below given is perfect script for this Query.
Dim str
str = "i love india"
arr = split(str, " ")
for i=lbound(arr) to ubound(arr)
revStr = strreverse(arr(i))
fStr = fStr & revStr & " "
next
msgbox fStr
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / janardhan
Given sting
String str="i love india";
String s[]=str.split();
for(int i=str.length();i>0;i--)
System.out.println(s[i]);
| Is This Answer Correct ? | 5 Yes | 2 No |
Answer / praveen ponnala
hi guys
Try this
Dim MyStr, MyArray
MyStr = "I Love India"
MyArray = Split(MyStr," ")
msgbox StrReverse(MyArray (0)) &" " &StrReverse(MyArray
(1)) &" "&StrReverse(MyArray (2))
| Is This Answer Correct ? | 3 Yes | 2 No |
Answer / rajender singh
aa = "i love india"
bb = split(aa," ")
dd = ""
For i=0 to ubound(bb)
cc = StrReverse(bb(i))
dd = dd&" "&cc
Next
msgbox dd
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sreenu
Dim str,arr
str = "i love india"
m=split(str," ")
For k=lbound(m) to ubound(m)
mystr=m(k)
strlen = len(mystr)
ReDim arr(strlen)
For i = strlen to 1 step -1
arr(i) = mid(mystr,i,1)
x = x & arr(i)
Next
x=x&" "
Next
msgbox x
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / k.chalapathirao
i cheched it , but 8it is not reverse, plz chech it once
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / ramesh
Str="I Love india"
arr1=split(Str," ")
for i=0 to ubound(arr1)
arr=arr1(i)
lenarr=len(arr)
if lenarr=1 then
sing=sing&arr&" "
End if
if lenarr<> 1 then
for j=lenarr to 1 step-1
val=mid(arr,j,1)
rev=rev&val&" "
next
end if
rev=rev&" "
next
msgbox sing&rev
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / lak
Reverse a string without using String Functons
(mid,split,len..)
str=" i love india"
Set regExpObj=new RegExp
regExpObj.pattern="[a-z A-Z]"
regExpObj.global=true
Set matches=regExpObj.execute(str)
For each letter in matches
result=letter.value&result
Next
msgbox result
| Is This Answer Correct ? | 0 Yes | 0 No |
Hello Everyone, Please provide me the practical example of business component concept of QTP.Like how to create business component,how to connect the quality center etc.... Thanks in advance, Gaytri
what is retesting?
Hi, How to export the Checkpoints and Output values(Test area output values) from Object Repository to Excel
Hi, Any one have the crack for QTP 10.0,if so could you please send it to phanijuly10@gmail.com
How to call .vbs funtion , Library files in QTP? plz Explain indetail(chandana)
Explain the differences between table and db checkpoints?
what is descriptive programming in QTP? How can be done?
Please explain the role of Regular expression in QTP
BEst INstitute for QTP & SELENIUM
VM1 = "Invalid username or password. Please try again. " VM2 = "Email id is required.Password is required. " VM3 = "Email id is an invalid e-mail address.Password is required. " VM4 = "Password is required. " VM5 = "Email id is required. " VM6 = "Email id is an invalid e-mail address. " 'Rowcount of the Local sheet Rowcount = DataTable.GetSheet("Invalid login transactions").GetRowCount 'Valid emailid and Password Emailid = "test@iteamic.com" Password = "Password0" 'For i = 1 to Rowcount 'Parameterised Email_id Browser("Browser").Page ("Page").WebEdit("emailAddress").Set DataTable("Email_id", dtLocalSheet) EID = Browser("Browser").Page ("Page").WebEdit("emailAddress").GetRoProperty("value") 'Parameterised Password Browser("Browser").Page ("Page").WebEdit("password").Set DataTable("Password", dtLocalSheet) PWD = Browser("Browser").Page ("Page").WebEdit("password").GetROProperty("Value") If EID = Emailid And PWD = Password Then Reporter.ReportEvent micPass, "EID & PWD check", "Email id and Password is correct, One iteration of Invalid login attempts is not being executed" Else Browser("Browser").Page("Page").WebButton ("Sign-In").Click 'Output value exported to the local sheet Browser("Browser").Page ("Page_2").Output CheckPoint("Home page_Sign in") 'Storing the output value in a variable(OUTPUT OUTPUT = Datatable.GetSheet ("Invalid login transactions").Getparameter ("Validation_message_signin").value 'comparing the Variable Output and the Validation message for a given input If OUTPUT = VM1 Then Reporter.ReportEvent micPass, "VM1", "Invalid username or password. Please try again. " else if OUTPUT = VM2 Then Reporter.ReportEvent micPass, "VM2", "Email id is required.Password is required. " else if OUTPUT = VM3 Then Reporter.ReportEvent micPass, "VM3", "Email id is an invalid e-mail address.Password is required. " else if OUTPUT = VM4 Then Reporter.ReportEvent micPass, "VM4", "Password is required. " else if OUTPUT = VM5 Then Reporter.ReportEvent micPass, "VM5", "Email id is required. " else if OUTPUT = VM6 Then Reporter.ReportEvent micPass, "VM6", "Email id is an invalid e-mail address. " else Reporter.ReportEvent micFail, "EID & PWD check_FAIL", "Validation message checkpoint failed. The captured v msg is not required" End if End if I am getting syntax error saying "Expected 'End If'" at the last line, Why is this? Kindly explain...
I have recorded a test over web application(with IE6.0) in analog mode. But, while running it my test gets failed. Why? (Note: my systray has 3 open web applications)
WHAT ARE THE DISADVANTAGES OF SHARED REPOSITORY?