|
| Åbne en tekstfil Fra : poddy |
Dato : 01-04-01 13:15 |
|
Hej
Jeg skal have åbnet en tekstfil... Problemet er bare at hver linje skal i en
forskellig tekstbox...
Når jeg gemmer bruger jeg:
CommonDialog1.Filter = "Call Of Cthulu Files |*.coc"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Print #1, Text4.Text
Print #1, Text5.Text
Print #1, Text6.Text
Print #1, Text7.Text
Print #1, Text8.Text
Print #1, Text9.Text
Print #1, Text10.Text
Close #1
End If
Så bliver hver tekstbox skrevet på en ny linje. Hvordan får jeg dem åbner
jeg dem ind i boxene igen??
På forhånd tak
Hans Peter Jensen
| |
Per Madsen (01-04-2001)
| Kommentar Fra : Per Madsen |
Dato : 01-04-01 18:14 |
|
Du kan umiddelbart gøre sådan her:
Line Input #1, st$: Text1.Text = st$
Line Input #1, st$: Text2.Text = st$
Line Input #1, st$: Text3.Text = st$
Line Input #1, st$: Text4.Text = st$
Line Input #1, st$: Text5.Text = st$
osv...
Du kunne overveje, at anvende en array af tekstbokse,
så ville det se nogenlunde sådan ud
Cont LastBox = 10
-
-
Open CommonDialog1.FileName For Output As #1
for i = 0 to LastBox
Print #1, Text(i).Text
next i
Close #1
Open CommonDialog1.FileName For Input As #1
for i = 0 to LastBox
Line Input #1, st$
Text(i).Text = st$
next i
Close #1
mhv
Per
"poddy" <poddy_xxx@hotmail.com> wrote in message
news:AjFx6.9781$o4.420509@news010.worldonline.dk...
> Hej
>
> Jeg skal have åbnet en tekstfil... Problemet er bare at hver linje skal i
en
> forskellig tekstbox...
>
> Når jeg gemmer bruger jeg:
>
> CommonDialog1.Filter = "Call Of Cthulu Files |*.coc"
> CommonDialog1.ShowSave
> If CommonDialog1.FileName <> "" Then
> Open CommonDialog1.FileName For Output As #1
> Print #1, Text1.Text
> Print #1, Text2.Text
> Print #1, Text3.Text
> Print #1, Text4.Text
> Print #1, Text5.Text
> Print #1, Text6.Text
> Print #1, Text7.Text
> Print #1, Text8.Text
> Print #1, Text9.Text
> Print #1, Text10.Text
> Close #1
> End If
>
> Så bliver hver tekstbox skrevet på en ny linje. Hvordan får jeg dem åbner
> jeg dem ind i boxene igen??
>
> På forhånd tak
>
> Hans Peter Jensen
>
>
>
>
| |
|
|