/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Å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
>
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste