Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Export Text To File 1
- Thread starter kv1712
- Start date
They're aren't any stupid people here.<br><br>Make a form with 2 text boxes on it: Text1 and Text2. Add the following code in a command button click event, start the program, type some words in Text1 and click the button.<br><br>ff = FreeFile<br>Open "MyFile.Txt" For Binary As #ff<br>Put #ff, , Text1.Text<br>Close #ff<br><br>'We've just written the contents of Text1 to a file.<br><br>ff = FreeFile<br>Open "MyFile.Txt" For Binary As #ff<br> 'In order to read the entire file in one pass we'll have to place it in a buffer large enough to hold it.<br> Do that with LOF.<br>Fbuffer$ = String$(LOF(ff), 0)<br>Get #ff, , Fbuffer$<br>Close #ff<br>Text2.Text = Fbuffer$<br><br>Text2 will contain the same text as Text1.<br><br>Hope that helps.<br> <p> <br><a href=mailto: > </a><br><a href= plain black box</a><br>
-
1
- Thread starter
- #3
- Status
