Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Become a VB Expert! Join 300,308 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 2,079 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

Submitted By: Xenon

Actions:

Rating:

Views: 111,604

Last Modified: January 4, 2006

Instructions: add a textbox to the form and a command button, the names are default VB6 chosen names

'(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

Comments
karlamohan 2008-08-22 01:17:09
The code is very usefull programmers like me Thank you
Rozie0910 2008-10-15 18:47:01
can i apply this coding in vbnet?
hasoon 2009-02-04 21:54:20
thank u very much for posting this.makes my life way easier. ^.^
nimrod 2009-04-23 03:27:17
great
darfun 2009-05-01 02:23:21
Nice code Xenon, this simple and easy to understand and use code really force me to encourage you for the good work. im a bigner and this code is really good for newbies. now i,ll be searching for the code to write to text files. thanks man