newbie problem Combo load/save ?

Ville det vaere en mulighed at gemme indholdet i et txt fil og loade indholdet af combo1 derfra?

ja eller i computerens database det er lige meget hvordan,
men en txt fil er fink nok...

Saa er det vel noget med ta laegge en begivenhed i foremns onLoad og onExit (hvis indholdet aendres) hvor du aabner et txt fil (IKKE TESTET):

Dim Combocontent() as string
Dim i as integer


i = 1
open "dinfil.txt" for output as #1

do while not EOF#1

redim preserve ComboContent(1 to i)

read #1, Combocontent(i)
i = i+1

loop



Saa kan du gentage processen onExit hvor du gemmer til filen istedet (husk at slette dem gamle fil)




hej igen

jeg kan ikke få det til og virke
fejen er :

do while not EOF#1
redim preserve ComboContent(1 to i)
read #1, Combocontent(i)

kenneth

prøv at ændre koden linie
<pre>
do while not EOF#1
til ------------------
do while not EOF(1)=false
</pre>

hej igen
nu virker det næsten kun et LILLE problem
(syntaksen error)
er ny i vb så ved ikke helt hvordan man løser det

håber i kan løse det (50ups)

og det ville også være rat med en forklaring på koderne


kenneth

Kan ud beskrive dne (synataksen error) lidt mer?

-thomas

Ville det vaere en mulighed at gemme indholdet i et txt fil og loade indholdet af combo1 derfra?

Ville det vaere en mulighed at gemme indholdet i et txt fil og loade indholdet af combo1 derfra?

ja eller i computerens database det er lige meget hvordan,
men en txt fil er fink nok...

Ville det vaere en mulighed at gemme indholdet i et txt fil og loade indholdet af combo1 derfra?

ja eller i computerens database det er lige meget hvordan,
men en txt fil er fink nok...

Saa er det vel noget med ta laegge en begivenhed i foremns onLoad og onExit (hvis indholdet aendres) hvor du aabner et txt fil (IKKE TESTET):

Dim Combocontent() as string
Dim i as integer


i = 1
open "dinfil.txt" for output as #1

do while not EOF#1

redim preserve ComboContent(1 to i)

read #1, Combocontent(i)
i = i+1

loop



Saa kan du gentage processen onExit hvor du gemmer til filen istedet (husk at slette dem gamle fil)

Ville det vaere en mulighed at gemme indholdet i et txt fil og loade indholdet af combo1 derfra?

ja eller i computerens database det er lige meget hvordan,
men en txt fil er fink nok...

Saa er det vel noget med ta laegge en begivenhed i foremns onLoad og onExit (hvis indholdet aendres) hvor du aabner et txt fil (IKKE TESTET):

Dim Combocontent() as string
Dim i as integer


i = 1
open "dinfil.txt" for output as #1

do while not EOF#1

redim preserve ComboContent(1 to i)

read #1, Combocontent(i)
i = i+1

loop



Saa kan du gentage processen onExit hvor du gemmer til filen istedet (husk at slette dem gamle fil)

hej igen

jeg kan ikke få det til og virke
fejen er :

do while not EOF#1
redim preserve ComboContent(1 to i)
read #1, Combocontent(i)

kenneth

Ja det var ogsaa der jeg mente at problemet ville ligge. sidder ikke ved en maskine men VB nu, men check syntaksen i din hjaelpefil.

Ville det vaere en mulighed at gemme indholdet i et txt fil og loade indholdet af combo1 derfra?

ja eller i computerens database det er lige meget hvordan,
men en txt fil er fink nok...

Saa er det vel noget med ta laegge en begivenhed i foremns onLoad og onExit (hvis indholdet aendres) hvor du aabner et txt fil (IKKE TESTET):

Dim Combocontent() as string
Dim i as integer


i = 1
open "dinfil.txt" for output as #1

do while not EOF#1

redim preserve ComboContent(1 to i)

read #1, Combocontent(i)
i = i+1

loop



Saa kan du gentage processen onExit hvor du gemmer til filen istedet (husk at slette dem gamle fil)




hej igen

jeg kan ikke få det til og virke
fejen er :

do while not EOF#1
redim preserve ComboContent(1 to i)
read #1, Combocontent(i)

kenneth

prøv at ændre koden linie
<pre>
do while not EOF#1
til ------------------
do while not EOF(1)=false
</pre>

Ville det vaere en mulighed at gemme indholdet i et txt fil og loade indholdet af combo1 derfra?

ja eller i computerens database det er lige meget hvordan,
men en txt fil er fink nok...

Saa er det vel noget med ta laegge en begivenhed i foremns onLoad og onExit (hvis indholdet aendres) hvor du aabner et txt fil (IKKE TESTET):

Dim Combocontent() as string
Dim i as integer


i = 1
open "dinfil.txt" for output as #1

do while not EOF#1

redim preserve ComboContent(1 to i)

read #1, Combocontent(i)
i = i+1

loop



Saa kan du gentage processen onExit hvor du gemmer til filen istedet (husk at slette dem gamle fil)




hej igen

jeg kan ikke få det til og virke
fejen er :

do while not EOF#1
redim preserve ComboContent(1 to i)
read #1, Combocontent(i)

kenneth

prøv at ændre koden linie
<pre>
do while not EOF#1
til ------------------
do while not EOF(1)=false
</pre>

hej igen
nu virker det næsten kun et LILLE problem
(syntaksen error)
er ny i vb så ved ikke helt hvordan man løser det

håber i kan løse det (50ups)

og det ville også være rat med en forklaring på koderne


kenneth

Værsgo'

' Sådan kan du tilføje indholdet fra en txt-fil til en Combobox eller Listbox.
' Knappen Command1 tilføjer indholdet fra fil text.txt til en Combo1, test.txt skal være
'  placeret i samme mappe som projektet/programfilen.
' Command2 tilføjer indholdet af Comboboxen til test.txt
' Command3 starter en indputbox for tilføjelse af linier i Comboboxen
' Du kan erstatte Combo1 med list1 hvis du vil arbejde med en listbox.


Private Sub Command1_Click()
GetListData
End Sub

Sub GetListData()
    Dim f As Long
    Dim FileName As String
    Dim tmp As String
    FileName = CurDir() + "\\test.txt"
    f = FreeFile
        Open FileName For Input As #f
    Do While Not EOF(f)
        Input #f, tmp
        Combo1.AddItem tmp
    Loop
    Close #f
End Sub

Private Sub Command2_Click()
GemListData
End Sub

Sub GemListData()
filenum = FreeFile
Open (CurDir() + "\\test.txt") For Output As filenum
For I = 0 To Combo1.ListCount - 1
Print #filenum, Combo1.List(I)
Next I
Close filenum
End Sub

Private Sub Command3_Click()
Dim Navn As String
Navn = InputBox("Skriv et navn du vil tilføje til listen")
Combo1.AddItem Navn
End Sub

Med Venlig Hilsen
Morten Torndahl Pedersen

ØV! Skulle ikke have postet det!
Så først nu at du havde udgivet dine point!

Med Venlig Hilsen
Morten Torndahl Pedersen