Skrive og læse linier fra fil

hvis du vil have lidt baggrundsinfo om det :
http://www.vbworld.com/files/openstatement/

ellers : smid indholdet af en tekstfil med navnet test.txt fra programbiblioteket ind i en textbox :
Private Sub Command1_Click()

    Dim FilePath As String
    Dim Data As Strin
    filepath = curdir & \"\\test.txt\"

    Open FilePath For Input As #
Do Until EOF(1)
Text1.Text = Text1.Text & vbCrLf & Data
Loop
Close #1
End Sub

gemme til en fil:
Private Sub Command2_Click()
Dim FilePath As String
filepath = curdir & \"\\test.txt\"
Open FilePath For Output As #1
Print #1, Text1.Text
Close #1
End Sub

har rettet lidt (tror jeg da nok)...og er kommet frem til det her:

Private Sub Command1_Click()

    Dim FilePath As String
    Dim Data As String
    FilePath = \"c:\\test.txt\"

    Open FilePath For Input As #1
Do Until EOF(1) & vbCrLf & Data
Loop
Text1.Text = Text1.Text
Close #1
End Sub

-----
men den sir en fejl:
\'Type mismatch\' og highlighter:
Do Until EOF(1) & vbCrLf & Data

...øv bøv

øhmm..nu lavede jeg et eller andet..og den virkede fint..men den loopede bare en masse newlines i mit text1 som fik mit prog til at crashe... :((..

i min c:\\test.txt står der bare \'test\'

>>Text1.Text = Text1.Text
det er den det er galt med du sætter den bare lig med sig selv.

& vbCrLf & Data
skal stå efter så det bliver :
Text1.Text = Text1.Text & vbCrLf & Data

Angående at \"smide indholdet af en tekstfil ind i en tekstbox\", har jeg svaret på i http://www.eksperten.dk/spm/110316 hvordan man henter hver femte linje - du kan jo kigge på det og bare lave lidt om (fjerne If antal Mod 5 = 0 Then - End og sløjfe variablen Antal) så du får alle linjer.

Angående at skrive det til en fil, er der svaret på det i http://www.eksperten.dk/spm/109083 hvis det stadig driller :-)

jelzin >
Når du læser filen ind fra fil til tekstboks:
Den Do-Loop løkke ser mystisk ud i mine øjne. Der mangler noget imellem \"Do\" og \"Loop\".
I \"Text1.Text = Text1.Text & vbCrLf & Data\" har du glemt at putte noget i variablen \"Data\".
Noget i stil med \"Line Input #1, Data\".

cell >> jep :) - prøv at se på tidspunket :)

der mangler line inp.

kan godt huske du var træt i går :-)

men vi to skal nok få coldrayie overbevist om vb\'s fortræffeligheder alligevel. Vi må jo skaffe os nogle nye \"legekammerater\"

*skynde sig at lokke folk til at lege med vb*

point fordelingen blir således

jelzin: 5
cell: 15

pga. cell havde lavet lige det jeg havde brug for, men jelzin gjorde en god indsats :))...men dog med lidt fejl og lidt forvirring :)

ok :0) takker for pts. :)