VB realizes the method of reading text file by line _vb

This paper illustrates the method of reading text file by line by VB. Share to everyone for your reference. Specifically as follows:

' (General Declaration)
Dim Nfilenum as Integer, stext as String, Snextline as String, llinecount as Long
' ======== ==========================
Private Sub command1_click ()
' Get a free file number
Nfilenum = FreeFile
' Open a text file for input. InputBox returns the path to read the file
Open "C:\Documents and Settings\sudeep\my documents\3.txt" for Input as NFi Lenum
llinecount = 1
' Read the contents of the ' file do-not-
EOF (nfilenum) line
  Input #nFileNum, SN Extline
  ' Do something and it
  ' add line numbers to it, in this case!
  Snextline = snextline & vbCrLf
  stext = stext & snextline
Loop
text1.text = stext
' close ' F Ile Close
Nfilenum end
Sub

I hope this article is helpful to everyone's VB program design.