خواندن فايل

راي خواندن فايل بايد Input باشه تا بشه اطلاعاتش رو خوند. دستوري كه ميشه باهاش اطلاعاتش رو خوند دستور Line Input هستش.
شكل كلي اين دستور:

Line Input #FileNumber , InputString

Line Input: كلمه كليدي جهت خواندن فايل

FileNumbe: شماره فايل

InputString: رشته اي هستش كه قراره خونده بشه.

چون فايل ما ترتيبي هستش نميشه به يك ركورد خاصي اشاره كرد اگر فايل 500 ركورد داشت و ما بخواهيم به ركورد 239 بريم بايد 500 ركورد رو خوند پس براي خوندن اطلاعات يك ركورد تمامي ركورد ها بايد خونده بشن. عيب اين نوع فايل سنگيني و كندي اون هستش كه علتش همين هستش.

حالا من مي خوام اطلاعات فايل Student.txt رو بخونم و در يه متغير به اسم strInput قرار بدم و سپس در يك TextBox اونا رو بريزم:

Dim strInput As String
 Dim FileNumber As Integer
  FileNumber = FreeFile
  Open "C:\Student.txt" For Input As #FileNumber
    Do While Not EOF(FileNumber)
     Line Input #FileNumber, strInput
    Loop
  Close #FileNumber
   PassageTxt.Text = strInput