/ Snippet Library - View Code

Snippet details

ID: 330

Viewed: 1359

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

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.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate 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 Reviews to show