Gemme ændringer

Men hvis man kan lave så at den gemmer i en txt fil ville det være godt ;)

Du kan bruge en tekstfil istedet det er meget lettere ;)

'Sådan gemmer du:

''''''''''''''''''''''''''''''''''''''''''''''
sti = app.path & "/Database.txt"
' Vejen til din tekstfil


For i = 0 to list1.listindex
OutPut1 = list1.list(i) & VbNewline
Next

Open sti for output as #1
print #1, OutPut1
close #1

''''''''''''''''''''''''''''''''''''''''''''''

'Sådan åbner du og loader tekstfilen:

Open sti for input as #1
Do Until EOF(1)
Line Input #1, line

List1.additem line

Loop
Close #1

2 sek... tjekker det lige...

Skal det stå i form load det første?

Er newB til visual basic :/

Vil du ikke lige skrive det indelt i grupper og det hele... skriv det som et svar så skal du nok få points...

Ok her er en rigtig udgave af det:
NB: huske at ligge tekstfilen i den mappe du har programmet i



private sub button1_click
'Sådan gemmer du:

''''''''''''''''''''''''''''''''''''''''''''''
sti = app.path & "/Database.txt"
' Vejen til din tekstfil


For i = 0 to list1.listindex
OutPut1 = list1.list(i) & VbNewline
Next

Open sti for output as #1
print #1, OutPut1
close #1

end sub

''''''''''''''''''''''''''''''''''''''''''''''
private sub form_load
'Sådan åbner du og loader tekstfilen:

sti = app.path & "/Database.txt"
' Vejen til din tekstfil

Open sti for input as #1
Do Until EOF(1)
Line Input #1, line

List1.additem line

Loop
Close #1

end sub

Tak... skriver tilbage senere når programmet er færdig :) - Hvis du vil have points så skriv et eller andet som et svar... så er jeg meget villig til at give dig det ;)

Du skal havde følgende ting:

En kanp med navn Button1
En list med navn list1

tak der

Why siger min fejl ved Line?

Line Input #1, >> Line <<

det er bare en variable ....du kan også kalde den "VarLine"

Prøv at dimme den, det vil sige at du angiver den som varianle, dette gøres sådan:

Dim VarLine as string 'det betyder den nu kan indeholde tekst

Den siger det samme... men tror oxo jeg har et fucked op program... har du ikke et link til en trial version eller noget...?

Nej vent... nu siger den noget andet... Run time error '53';
Når jeg så trykker debug så siger den Open sti For Input As #1

nah sorry

har du lagt tekst filen i den samme mappe som progarmmet?

jep... men hvad med når jeg ikke har gemt den endnu... når jeg har gemt den siger og prøver at kører den siger den Run time error '424';

Du skal klade filen det rigtige ...plus ligge den i samme mappe ellers virker det ikke

kalde

har gjort... har kaldt den Database.txt og den ser sådan her ud:
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?
Muha muha?

Men vent du får dine points - Det er bare mig det er galt med... er newB til VB - behøves ikke bøvle mere med mig...

hmmm ved det ikke så

ok

Hvis du lige vil se min kode igennem en sidste gang før jeg opgiver så vil jeg blie glad... koden er:

Private Sub Command1_Click()
'Sådan gemmer du:

''''''''''''''''''''''''''''''''''''''''''''''
sti = App.Path & "Database.txt"
' Vejen til din tekstfil


For i = 0 To List1.ListIndex
OutPut1 = List1.List(i) & vbNewLine
Next

Open sti For Output As #1
Print #1, OutPut1
Close #1

End Sub

''''''''''''''''''''''''''''''''''''''''''''''
Private Sub form_load()
Dim Line As String 'det betyder den nu kan indeholde tekst
'Sådan åbner du og loader tekstfilen:

sti = App.Path & "Database.txt"
' Vejen til din tekstfil

Open sti For Input As #1
Do Until EOF(1)
Line Input #1, Line

List1.AddItem Line

Loop
Close #1

End Sub

Jeg har kikket lidt på det, det jeg bruger er VBA fra excel 2000

Private Sub Command1_Click()
'Sådan gemmer du:

''''''''''''''''''''''''''''''''''''''''''''''
sti = Application.Path & "\Database.txt"
' Vejen til din tekstfil
A = List1.ListCount
Open sti For Output As #1
For i = 0 To A - 1
Print #1, List1.List(i)
Next
Close #1
End Sub

Private Sub UserForm_Initialize()
Dim ALine As String

sti = Application.Path & "\Database.txt"
' Vejen til din tekstfil
Open sti For Input As #1
Do Until EOF(1)
Line Input #1, ALine
List1.AddItem ALine
Loop
Close #1


End Sub

ok ... 2 sek tjekker lige...

Hmmmm... runtime error 424

Den siger run time error 424 lige meget hvad det er jeg laver med den dext fil... Der er ikke noget i den - er gemt som ANSI - Og under navnet: Database.txt

Kan i å det til at virke..?

Har fået det til at virke nu.... takker...