Qbasic program to read the contents of data file record.dat and to print on screen | SEE computer science datafile program

QBasic programs collection-Especially for SEE (Grade-10)

QBasic Datafile programming of questions asked in Triton's model questions

QBasic program read the contents of datafile and display on screen [Triton's model set]

 

'q9(b) triton SEE model set set II

Open "record.dat" For Input As #11

Cls

c = 0

While Not EOF(11)

    Input #11, sno, name$, address$, tel, email$

    If LCase$(Right$(email$, 9)) = "yahoo.com" Then

        c = c + 1

        Print name$, address$, email$

    End If

Wend

Print "total records having email is="; c

Close #11

End