Case Statement

[adelitza]

hi.
i have a text file and i whant to see if the informantion from it is the same with the one from an excel file.And i whant to use case statment for this.
For example:
ana: red
beth :blue
i read line by line the text and i whant to verify if red is the same word for ana as it is in excel and so on.

this is whant i did so for, but i don' t know ho to use corectly "Case Statement"

Code:

"Const forReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile ("C:\test_new.txt", ForReading, True, -1)
sfile = objFile.ReadAll
Lines = Split(sfile, vbCrLf)
msgbox Lines(0)
For i=1 to UBound(Lines)
   If (Lines(i) <> " ")Then
     if(inStr(Lines(i), ":") <> 0) then
    cuvant = Split(Lines(i),": ")
       Dim Verify
        [color=#FF0000]Verify = cuvant(i)[/color]   ->i don't know if called the function correctly
        [color=#FF4500]Select Case Verify[/color]
        Case "Address"
        wait 5
    If (cuvant(0) = "rand") Then                    DataTable.ImportSheet"C:\temp\excel.xls","excel","Global"
    For  j=1 to DataTable.GetRowCount
    DataTable.SetCurrentRow i
'    Wait 0.5
    If (cuvant(1) =  DataTable.Value("Rand")) then     
Reporter.ReportEvent  micPass , "a", "Passed"                              
       else                                    Reporter.ReportEvent  micFail , "b", "Failed"
    End If
end select
    Next
    End If
'    End Select
    End if
    End If
    next
"

[savitripatil]

Hi,
I have a suggestion, when you wanted to compare the data in txt file with excel, why don't you convert the txt file to excel file format and then go for comparison of two excel. Note to convert the txt file to excel you must have proper field delimiters. let me know if it helps.

Regards,
Patil

[Ankesh]

@adelitza

If you are asking abt case statement, below is the syntax

Code:

expression="<Your expression>"
Select Case expression
Case "XXX"
  'Perofrm your operation if the expression was xxx
Case "YYY"
  'Perofrm your operation if the expression was xxx
Case Else
   ' If no matches then else case
Case End

****
For more help refer to QTP help file.