خواندن فايل

راي خواندن فايل بايد حالت دسترسي به فايل 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