Searching multiple rows 1

[jrcampb]

Below for row "18" I need to also check rows 19 through 24... what would be the best way to do this?

Thanks

If Sess0.Screen.getstring(18, 2, 4) = "OPEN" Then
            Select Case Sess0.Screen.getstring(18, 10, 6)
                Case "LGLLIT", "DOSLIT", "LGLSCU", "6"
                    iLitigation = "**YES**"
                    iMediation = "No"
                Case "FCDAP "
                    iMediation = "**YES**"
                    iLitigation = "No"
                Case Else
                    iLitigation = "No"
                    iMediation = "No"
            End Select
        Else
            iLitigation = "No"
            iMediation = "No"
        End If

 

[remy988]

something like this maybe?

If Sess0.Screen.getstring(18, 2, 4) = "OPEN" Then

    [blue]For i = 19 To 24[/blue]
        Select Case Sess0.Screen.getstring([blue]i[/blue],10, 6)
            Case "LGLLIT", "DOSLIT", "LGLSCU", "6"  '[blue]"6" may not work correctly[/blue]
                iLitigation = "**YES**"
                iMediation = "No"
            Case "FCDAP "
                iMediation = "**YES**"
                iLitigation = "No"
            Case Else
                iLitigation = "No"
                iMediation = "No"
        End Select
    [blue]Next i[/blue]
Else

    iLitigation = "No"
    iMediation = "No"
    
End If

 

[jrcampb]

I think this is what I was looking for, I'll test it out -

Oh the 6 shouldn't even be there - thanks for spotting that for me

 

[SkipVought]

you need to be careful that any STRING EQUALTITIES that you test are not padded with SPACES, like could happen with "6"...

        Select Case [b]Trim([/b]Sess0.Screen.getstring(i,10, 6)[b])[/b]

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[jrcampb]

I'm using this an it seems to be working - anything wrong?

        iLitigation = "No"
        iMediation = "No"
        For i = 18 To 24    
        If Sess0.Screen.getstring(i, 2, 4) = "OPEN" Then
            Select Case Sess0.Screen.getstring(i, 10, 6)
                Case "LGLLIT", "DOSLIT", "LGLSCU", "6"
                    iLitigation = "**YES**"
                    iMediation = "No"
                Case "FCDAP "
                    iMediation = "**YES**"
                    iLitigation = "No"
                Case Else
                    iLitigation = "No"
                    iMediation = "No"
            End Select
        Else
            
        End If
        Next i

 

[SkipVought]

What you posted will NOT work for "6".

Did you read my previous post?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[jrcampb]

Sorry, posted from the wrong window I had open. Should be this - 6 is out, and redunant variables are out

        iLitigation = "No"
        iMediation = "No"
        For i = 18 To 24    
        If Sess0.Screen.getstring(i, 2, 4) = "OPEN" Then
            Select Case Sess0.Screen.getstring(i, 10, 6)
                Case "LGLLIT", "DOSLIT", "LGLSCU"
                    iLitigation = "YES-Refer caller to F/C Atty"
                Case "FCDAP "
                    iMediation = "YES-Refer caller to F/C Atty"
                Case Else
            End Select
        Else
            
        End If
        Next i

 

[remy988]

you don't really need CASE ELSE or ELSE