How to import and export text from text-box to a txt file

[awais1989]

hi everyone actually i have two text boxes one named Text1 and other Text2. i want that when i press command1 the text in the Text2 is saved to temp.txt and it will be displayed in Text1 from that txt file

[pureenhanoi]

-> save text to file

Private Sub Command1_Click()
Dim ft As Interger
Dim fileName As String
     fileName = "C:\textfile.txt"
     ft = FreeFile
     Open fileName For Output As #ft
    'If you dont want clear existing text in textfile.txt then use following code instead
    'Open fileName For Append As #ft
    Print #ft,Text1.Text
End Sub
 

-> Read text From file

Private Sub Command2_Click()
Dim ft As integer
Dim fileName As String
Dim tempStr as String
   fileName = "C:\filetext.txt"
   ft = FreeFile
   Open fileName For Input As #ft
   While Not EOF(ft)
        Line Input #ft,tempStr
        Text2.Text = Text2.Text & tempStr
   Wend
End Sub
 

[awais1989]

thanks a lot but i actually want continuous entries in the txtfile

[mailderemi]

thanks a lot but i actually want continuous entries in the txtfile

pureenhanoi made a good code. i think its enough. also you can see
http://www.thescripts.com/forum/thread659246.html ;)

[mailderemi]

thanks a lot but i actually want continuous entries in the txtfile

pureenhanoi made a good code. i think its enough. also you can see
http://www.thescripts.com/forum/thread659246.html ;)