This tutorial will show you how to get information from a text file into a text box on a form. It will also show you how to change the data.
For this you will need a standard form, two text boxes and two buttons. You will also need a text file.
First thing you need to do is to create the form with the text boxes and buttons. Under the first button we will put the code to get the data from the text file and to put it into the first text box:
CODE
Private Sub Command1_Click()
'This will declare the variable data as a string
Dim data As String
'This will find the file that we are using
Open "\the address\name of file.txt" For Input As #1
Input #1, MyData
'This puts the data in the textbox
Text1.Text = MyData
Close #1
End Sub
In the text file put a number into the it and save. now when you press F5 and press the first button it should show you the number. Simple now we look at changing the data.
This next part is a bit bigger but what it does is that it will change the data in the text file but not add to it.
CODE
Private Sub Command2_Click()
Dim data As String
Open "\vb\tutorials\datafile.txt" For Input As #1
Input #1, MyData
Close #1
Open "\vb\tutorials\datafile.txt" For Output As #1
mydata2 = Val(Text2.Text) + Val(MyData)
Print #1, mydata2
myTimeStamp = Now
Print #1, "data"; myTimeStamp
Close #1
Open "\vb\tutorials\datafile.txt" For Input As #1
Input #1, MyData
Close #1
Text2.Text = MyData
End Sub
It is similar to the first part but now it will change the data and add the date and time.
If you have any problems then just comment and I will do all that I can to help
Getting information from a text file
30 Apr, 2008 - 08:22 AM
|