/ 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
Input #1, Data
Fra : Kim Schwalbe


Dato : 24-04-02 15:45

Hej i gruppen
Er der en der gider at hjælpe mig med en lille opgave?
Jeg har et fillistefelt.
Når jeg klikker på en fil indlæser man den første linje og gemmer den i
variablen Data
Så er mit spørgsmål, kan det lade sig gøre, hvis jeg sætte min fillistefelt
til multiselect
og gemme flere variabler.

F.eks. hvis den første variabel er 100 og i den næste fil jeg vælger er
variablen 150
så at sætte den sammen til en en der hedder 100;150


Private Sub File1_Click()
Fname = File1.FileName
Open Fname For Input As #1
Input #1, Data
Close #1
Label1 = Data
End Sub

Hilsen Kim S



 
 
Kaj Nicolaisen (24-04-2002)
Kommentar
Fra : Kaj Nicolaisen


Dato : 24-04-02 17:06

Hej Kim

Det her virker:
______________________________________________
Public nydata

Private Sub File1_Click()
fname = File1.Path & "\" & File1.FileName
Open fname For Input As #1
Input #1, Data
If Len(nydata) > 0 Then
nydata = nydata & ";" & Data
Else
nydata = Data
End If

Close #1
Label1 = nydata
End Sub


Private Sub Form_Load()
File1.Path = "f:\dokumenter\test"
End Sub
_______________________________________________

vh.
Kaj

"Kim Schwalbe" <kim_schwalbe@vip.cybercity.dk> skrev i en meddelelse
news:aa6gcl$1vu4$1@news.cybercity.dk...
> Hej i gruppen
> Er der en der gider at hjælpe mig med en lille opgave?
> Jeg har et fillistefelt.
> Når jeg klikker på en fil indlæser man den første linje og gemmer den i
> variablen Data
> Så er mit spørgsmål, kan det lade sig gøre, hvis jeg sætte min
fillistefelt
> til multiselect
> og gemme flere variabler.
>
> F.eks. hvis den første variabel er 100 og i den næste fil jeg vælger er
> variablen 150
> så at sætte den sammen til en en der hedder 100;150
>
>
> Private Sub File1_Click()
> Fname = File1.FileName
> Open Fname For Input As #1
> Input #1, Data
> Close #1
> Label1 = Data
> End Sub
>
> Hilsen Kim S
>
>



Kim Schwalbe (24-04-2002)
Kommentar
Fra : Kim Schwalbe


Dato : 24-04-02 21:29

Hej Kaj
Tak for dit svar..jeg kikker på det
Hilsen Kim S


Kaj Nicolaisen <whambam@nospam.dk> skrev i en
nyhedsmeddelelse:RIAx8.2319$kp3.255980@news010.worldonline.dk...
> Hej Kim
>
> Det her virker:
> ______________________________________________
> Public nydata
>
> Private Sub File1_Click()
> fname = File1.Path & "\" & File1.FileName
> Open fname For Input As #1
> Input #1, Data
> If Len(nydata) > 0 Then
> nydata = nydata & ";" & Data
> Else
> nydata = Data
> End If
>
> Close #1
> Label1 = nydata
> End Sub
>
>
> Private Sub Form_Load()
> File1.Path = "f:\dokumenter\test"
> End Sub
> _______________________________________________
>
> vh.
> Kaj
>
> "Kim Schwalbe" <kim_schwalbe@vip.cybercity.dk> skrev i en meddelelse
> news:aa6gcl$1vu4$1@news.cybercity.dk...
> > Hej i gruppen
> > Er der en der gider at hjælpe mig med en lille opgave?
> > Jeg har et fillistefelt.
> > Når jeg klikker på en fil indlæser man den første linje og gemmer den i
> > variablen Data
> > Så er mit spørgsmål, kan det lade sig gøre, hvis jeg sætte min
> fillistefelt
> > til multiselect
> > og gemme flere variabler.
> >
> > F.eks. hvis den første variabel er 100 og i den næste fil jeg vælger er
> > variablen 150
> > så at sætte den sammen til en en der hedder 100;150
> >
> >
> > Private Sub File1_Click()
> > Fname = File1.FileName
> > Open Fname For Input As #1
> > Input #1, Data
> > Close #1
> > Label1 = Data
> > End Sub
> >
> > Hilsen Kim S
> >
> >
>
>





Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste