embedded if statements

[folker]

Hi all, hopefully you can help me with this issue I've been having.

As a background, I'm use to Java and vb.net. I have just got into QTP and VBA to automate some of my regression testing.

Anyway, I have this gigantic for loop but some of the if statements are getting messed up.

Here is the code....

Code:

For counter=1 to ubound(tobechanged)
     fstr = mid(tobechanged(counter), 1, 3)
      mstr=mid(tobechanged(counter), 4, 2)
    lStr = mid(tobechanged(counter), 6, 9)
    dashSSN=fstr & "-" & mstr &"-"& lstr
If fstr="" Then
    msgbox("Reached end of file")
else

Browser("My Page").Page("System Online").Frame("menu2").Link("Search").Click

Browser("Search").Page("Search").WebRadioGroup("rdOption").Select "1"

Browser("Search").Page("Search").Sync

Browser("Search").Page("Search").WebEdit("sub_txtValue1").Set fstr
Browser("Search").Page("Search").WebEdit("sub_txtValue1_2").Set mstr
Browser("Search").Page("Search").WebEdit("sub_txtValue1_3").Set lstr
Browser("Search").Page("Search").WebEdit("sub_txtValue1").Click

Browser("Search").WinObject("Internet Explorer_Server").Type  micTab
wait 1
    Browser("Search").WinObject("Internet Explorer_Server").Type  micTab
Browser("Search").WinObject("Internet Explorer_Server").Type  micTab
wait 1
Browser("Search").Page("Search").Link("Submit").Click

'Browser("Search").WinObject("Internet Explorer_Server").Type  micTab

Browser("Search").Page("Search").Sync


'Set Obj = Browser("Search").Page("Search").WebTable("WebTable").ChildItem(0, 1, "WebElement", 0)
inSSN =dashSSN
Repository.Value ("Social") = inSSN
'Browser("Search").Page("Search").Link("Social Security Number").Click

    If Browser("Search").Page("Search").Link("Social Security Number").Exist(5) then

        'iForComments = iForComments & "SSN search successful" & chr(10)
        Browser("Search").Page("Search").Link("Social Security Number").Click
wait 2, 500
Browser("My Page").Page("System Online").Frame("menu2").Link("Manage Annuitants").Click

wait 2
Browser("My Page").Page("System Online").Frame("events").Link("Disbursement History").Click
wait 1


'if exists then do

[b]If  Browser("My Page").Page("System Online").Frame("main_brow").WebRadioGroup("selectedRow").exist(5) then[/b]


'execute screenshot
Browser("My Page").Page("System Online").Frame("main_brow").WebRadioGroup("selectedRow").Select "#0"
'Desktop.CaptureBitmap Filename, [OverrideExisting]
'captures screenshot by using snagit
Set objShell = CreateObject("WScript.Shell")
Set oSnag = CreateObject("SNAGIT.ImageCapture")

oSnag.IncludeCursor = False
oSnag.OutputImageFile.FileType = 5
oSnag.OutputImageFile.FileNamingMethod = 1
oSnag.OutputImageFile.Directory = "C:\StaleCheckScreenshots\"
oSnag.OutputImageFile.Filename = inSSN
oSnag.EnablePreviewWindow = False
oSnag.AutoScrollOptions.AutoScrollMethod= 1
oSnag.Capture()

Wait (1)
objShell.SendKeys "{ENTER}"
capDone = oSnag.IsCaptureDone

Do Until oSnag.IsCaptureDone
Loop
Set oSnag=Nothing
Set objShell=Nothing

        Else
        'ForComments = iForComments & "SSN search was not successful. Using the last used SSN" & chr(10)
        'oBaseObjectSearch.Close
    End If

[b]else
[/b]

b.Cells(counter2, 4).Value=Nocheck
a.Save
b.save
a.Close
Set a = nothing
Set b = nothing

end if



end if
counter2= counter2+1
Next

Basically, if the first row in a webtable doesn't exist, it should execute this part

b.Cells(counter2, 4).Value=Nocheck
a.Save
b.save
a.Close
Set a = nothing
Set b = nothing

However, it doesn't. When this program executes, it simply goes to the next statement and starts at the for statement again..

I've tried this a number of different ways, I tried adding else and end if in different places but I'm not sure how QTP matches which if belongs with which end if.

It should be right before the last end if, but when I place the else and end if there, it says I have a syntax error.

Any help would be greatly appreciated!

[Ankesh]

Hi folker,

There is a problem with syntax in ur code which is

Code:

Do Until oSnag.IsCaptureDone
Loop    
Set oSnag=Nothing
Set objShell=Nothing

====================
Below is the correct syntax of do loop...

Code:

Do { While | Until } condition
    [ statements ]
    [ Exit Do ]
    [ statements ]
Loop
-or-
Do
    [ statements ]
    [ Exit Do ]
    [ statements ]
Loop { While | Until } condition

Regards,
Ankesh

---

so ur code should be something like...

Code:

Do Until oSnag.IsCaptureDone
Set oSnag=Nothing
Set objShell=Nothing
Loop

I hope this will work.