ID: 330
Viewed: 3758
Added: Aug 19, 2002
Version:
Snippet uploaded by: snippet
Written By: Unknown
Demo: Sorry, no demo
Thank you for your vote. Please wait...
It appears you already voted for this snippet
It appears your vote value was empty
For opening a .dat file or any text file.
this one is just inserts each dat file into the text box but won't clear the box.
this one is just inserts each dat file into the text box but won't clear the box.
Highlight all by clicking in box
<!---Declaration--->
none
Highlight All
<!---Code--->
Private Sub mnuItem_Click()
' opens dat file
Open "C:file.dat" For Input As #1
' calls filltext to print dat file in textbox
Call filltext
End Sub
Private Sub filltext()
While Not EOF(1)
Line Input #1, temp$
alltext$ = alltext$ & temp$ & vbCrLf
Wend
TxtT1.Text = alltext$
Close #1
End Sub
'============
'OR
'============
'this one will clear the text box before it inputs 'the text.
Private Sub mnuItem_Click()
' opens dat file
Open App.Path & "1080s.dat" For Binary As #1
' calls filltext to print dat file in textbox
Call filltext
End Sub
Private Sub filltext()
Str = String(LOF(1), Chr(0))
Get #1, 1, Str
TxtT1.Text = Str
Close #1
End Sub;
No Comments to show
Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.
Adding your comment. Please wait...
Thanks for adding your comment!. After further review it will be added.
There was a problem adding your comment. Please try again.
Please complete all the fields in the form before sending.