Code Snippets

Visual Basic Source Code

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

Submitted By: Xenon

Actions:

Rating:

Views: 59,005

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?