Dim strOpen
strOpen = ReadTextFile("C:/Users/Florin/Desktop/Florin/WORK/TOOLS VERIFICATION + UPDATED DESIGN/VERIFICARE AUTOCODARE/Test.txt")

Dim arrRows = strOpen.Split( "|")

Dim i
For i=1 to arrRows.Count
 Dim arrCodes = arrRows[i]
 Dim arrSpells = arrCodes.Split(",")
 Dim j
 For j=1 to arrSpells.Count
   If ^q1^.Value.ToLowerCase() = arrSpells[j].ToLowerCase() Then
      Assert.Check( ^q2^.Value Has i,"Data is wrong coded for "+ ^q1^.Value)
    endif   
 Next j
Next i