Saving a lot of text files in a single file and load different lines!! 1

[SurvivorTiger]

Hi everyone
I want to know how I can save bounch of texts from different text boxes into a single txt file(or any other format) and have it load for example the 10th line of the text in a text box and load 5th line in a different text box.

I tried somethings that i found in MSDN help, but it really didn't help!!

 

[JonathonC]

To save use:

Dim dateiname As String, dateinr As Integer
dateiname = App.Path & "\filename.txt"
dateinr = FreeFile
Open dateiname For Output As dateinr
Print #dateinr, (Text1.Text & vbCrLf & Text2.text & vbCrLf & Text3.text & vbCrLf & Text4.text)
Close dateinr

To access certain lines use:

Dim LinesFromFile As New Collection
Open App.Path & "\filename.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, MyString
LinesFromFile.Add MyString
Loop
Close #1 ' Close file.
Label1.Caption = LinesFromFile(1)
Label2.Caption = LinesFromFile(2)
Label3.Caption = LinesFromFile(3)
Label4.Caption = LinesFromFile(4)

Hope this helps,
Jonathon. It's incredible to think that before computers were invented we had to mess things up ourselves!

 

[Boxster1987]

Thanks for helping, It really worked except that you forgot to have "Dim MyString As String".
Thanks again!!

 

[SurvivorTiger]

The post above was written by me (Survivortiger), i was accidently logged in with my friend's screen name who had signed in before me!!

Thanks for helping, It really worked except that you forgot to have "Dim MyString As String".
Thanks again!!