سور کد لود تکست فایل - نسخه قابل چاپ

کد:
'(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 nFileNum

lLineCount = 1

' Read the contents of the file

Do While Not EOF(nFileNum)

   Line Input #nFileNum, sNextLine

   'do something with it

   'add line numbers to it, in this case!

   sNextLine = sNextLine & vbCrLf

   sText = sText & sNextLine



Loop

Text1.Text = sText



' Close the file

Close nFileNum



End Sub