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.