How do I get a text box on a form to save as a text document
using, a 3d command button using it as a save button? How do
I code this so that i can reopen the same file without it
being scrambled and unreadable?
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
iriqus: reject superjohan's ridiculous answer, and then we can deal with this. Basically, you need to access the text box .text property, and using basic's file i/o, actually write that text to disk as a file. Usually you need to have a file name and path designated, which you can obtain using the common dialogue control. Just reject the above answer, and I or someone else who really knows will give you specific answers.
you have a couple things to consider here.
1. a textbox's text property can hold up to 32,766 characters
2. a string can only hold 255
this should read it in:
Private Function DataConverter( myfile As String)
Dim InFileNo As Integer, Rec As String
On Error GoTo Dconvert
InFileNo = FreeFile
Open myfile For Input As #InFileNo
Do While Not EOF(InFileNo)
Rec = Input$(255, InFileNo)
myTexbox.text = myTextbox.text & rec
Loop
Close #InFileNo
Exit Function
Dconvert:
Select Case Err
Case Else
Resume Next
End Select
End Function
some variation of this should work to write...
Private Function DataConverter( myfile As String)
Dim OutFileNo As Integer, Rec As String
On Error GoTo Dconvert
OutFileNo = FreeFile
Open strTempFile For Output As #OutFileNo
Do While Not (intoffset > len(mytextbox.text)-255)
Rec = mid(mytextbox.text,intOffs
Write #OutFileNo, Rec
Loop
Close #OutFileNo
Exit Function
Dconvert:
Select Case Err
Case Else
Resume Next
End Select
End Function
you should also look into these i.o. operators..
get -- reads data
put --- writes data
print # --- writes data
LOF-- length of current file
EOF-- checks for end of file
Reset-- closes all files..
hope this or some variation could help..
jack
Business Accounts
Answer for Membership
by: superjohanPosted on 1997-09-09 at 23:48:12ID: 1434483
Not a clue...