User Name Password Register
DaniWeb IT Discussion Community
All
What is DaniWeb IT Discussion Community?
You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 455,969 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,760 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums
Views: 1885 | Replies: 2 | Solved
Reply
Join Date: Nov 2007
Posts: 3
Reputation: jackfarrel is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
jackfarrel jackfarrel is offline Offline
Newbie Poster

Help VB Advanced TEXT BOX problems

  #1  
Nov 24th, 2007
I am using Visual basic 6
I am trying to create a new txt file with the textbox (text1) contents.
But instead of calling that text file "Stored.txt" as I currently am doing, I am trying to create the new .txt file with the text from the textbox.

Private Sub Command1_Click()
Dim F As Integer 'Setup up constant file number
F = FreeFile ' Set F to the next free file number
'open file Text.txt
Open ("C:\PROGRA~1\ASTKA\SADM\info\Stored.txt) For Append As F
'write text to file
Print #F,
Print #F, "First Name:", Text1.Text
Print #F, "Last Name:", Text2.Text ' Normaly this info will get stored in the registery!
Print #F,
Print #F,
'Close file
Close #F


End Sub

So basically, if someone enters their "First Name" in the textbox (text1) it will not only write it to a file in: C:\PROGRA~1\ASTKA\SADM\info\ but it will name it based on the contents of "text1" so if someone enters "bob" that new text file will be called "bob.txt" and it will contain "firstname: bob" (at the same time) I do not want a static name "Stored" for every persons name, I want the file to change and create new ones for everyones name, and the files will be named each persons name.
Any help?? I've searched and searched and found nothing.
AddThis Social Bookmark Button
Reply With Quote  
Join Date: Nov 2007
Posts: 14
Reputation: steve585 is an unknown quantity at this point 
Rep Power: 2
Solved Threads: 1
steve585 steve585 is offline Offline
Newbie Poster

Re: VB Advanced TEXT BOX problems

  #2  
Nov 25th, 2007
No problem man! Check this

Open Text1.Text & ".txt" For Output As #1
        For n = 0 To 5
            Print #1, Text2.Text
        Next n
    Close #1
Last edited by steve585 : Nov 25th, 2007 at 6:48 am.
Reply With Quote  
Join Date: Nov 2007
Posts: 3
Reputation: jackfarrel is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
jackfarrel jackfarrel is offline Offline
Newbie Poster

Solution Re: VB Advanced TEXT BOX problems

  #3  
Nov 25th, 2007
I found the solution:


Private Sub Command1_Click()
Text2.Text = Date
Dim F As Integer 'Setup up constant file number
Dim filepathname As String
F = FreeFile ' Set F to the next free file number
'open file Text.txt
filepathname = "C:\PROGRA~1\ASTKA\SADM\info\" & Text1.Text & ".Doc"
Open (filepathname) For Append As F
Print #F,
Print #F, "Full Name:", Text1.Text
Print #F, "Date of attendance:", Text2.Text ' Normaly this info will get stored in the registery!
Print #F,
Print #F,
'Close file
Close #F
End Sub
Reply With Quote  
Reply

Only community members can participate in forum threads. You must register or log in to contribute.

DaniWeb Visual Basic 4 / 5 / 6 Marketplace
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

 

Thread Tools Display Modes

Similar Threads
Other Threads in the Visual Basic 4 / 5 / 6 Forum

All times are GMT -4. The time now is 9:11 am.
Forum system based on vBulletin Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
©2003 - 2008 DaniWeb® LLC