---

Hejsa

Jeg har et lille problem jeg håber der er nogen der kan hjælpe mig med.

Jeg har lavet et lille program der henter nogle data fra en fil ind i en ListView. Strukturen af denne fil er som følgende:

navn1;alder1;adresse1
navn2;alder2;adresse2
navn3;alder3;adresse3

dette laver derfor 3 input på listen. Jeg har lavet en funktion der kan tilføje en ekstra linie til denne fil, men jeg vil også gerne være istand til f.eks. at slette eller redigere linie 2 eller 17 for den sags skyld.

Eneste måde jeg pt. kan forestille mig, er at gennemløbe en løkke der tæller en linie ned x antal gange og derfra redigerer eller sletter den pågældende linie. Jeg aner bare ikke hvilke kode man skal skrive for at slette eller modificere.

På forhånd tak!

---

Jeg mener heller ikke der er nogle kommando til at slette 1 linie eller flere..

Den løsning jeg selv har brugt er at læse filen ind i hukommelsen, slet linien i hukommelsen og gem den igen!

Men hvis der er en nemmer løsning lytter jeg da også gerne med :D

---

Løsningen afhænger helt af hvad du har brugt til at lave dit program med.
Når du ikke har angivet det, må du nøjes med nogle principielle betragtninger.

Det ser ud som om det du laver i princippet er en simpel sekventiel fil uden en nøgle til de enkelte poster.

Du kan med den udformning kun finde en bestemt post ved at læse forfra og tælle dig frem eller læse alle poster og lede efter et bestemt indhold i posten. Det er besværligt og tidsrøvende når filen bliver stor. Det vil også kræve at du bruger et programmeringssprog som har de nødvendige faciliterer. Det kunne f.eks være Pascal.

I stedet kan du bruge et databaseprogram med indexfil på en bestemt nøgle. Så bliver det let og hurtigt at tilgå en bestemt post.

Der findes mange databaseprogrammer, noge er simple og gratis eller billige, men vil sikkert nemt kunne det du har brug for. De små billige med få faciliteter er også nemmest at lære at bruge.

---

På vore dages pc´er er det ikke noget problem at indlæse en sekventiel fil, hver mindre den er rigtig rigtig stor. Så du kan sagtens indlæse en sekventiel fil i et array.
Jeg har testet med en fil, med 100.000 linier - Det tager 0.25 sekunder at skrive og indlæse denne.

Private Sub Command1_Click()
' Skriv test sekventiel fil
Dim tid As Variant
tid = Timer
Dim i As Long
Open "C:\temp\xxx.txt" For Output As #1
For i = 1 To 100000
Print #1, Timer
Next
Close
MsgBox "Forbrugt tid: " & Timer - tid
End Sub


Private Sub Command1_Click()
' Skriv test sekventiel fil
Dim tid As Variant
tid = Timer
Dim i As Long
Open "C:\temp\xxx.txt" For Output As #1
For i = 1 To 100000
Print #1, i
Next
Close
MsgBox "Forbrugt tid: " & Timer - tid
End Sub


Private Sub Command2_Click()
' Indlæs sekventiel fil
Dim tid As Variant
tid = Timer
Dim sLines() As String
ReDim sLines(0)
Dim nLines As Long
nLines = -1
Open "C:\temp\xxx.txt" For Input As #1
Do While Not EOF(1)
nLines = nLines + 1
ReDim Preserve sLines(nLines)
Line Input #1, sLines(nLines)
Loop
Close
MsgBox "Forbrugt tid: " & Timer - tid & vbNewLine & "Antal Linier " & nLines

IndSaetLinie "Hello World", 8, sLines, nLines
SletLinie 5, sLines, nLines

Open "C:\temp\xxx.txt" For Output As #1
For i = 0 To nLines
Print #1, sLines(i)
Next
Close
End Sub
Sub SletLinie(iSletDenne As Long, sLines() As String, nLines As Long)
Dim i As Long
nLines = nLines - 1
For i = iSletDenne - 1 To nLines
sLines(i) = sLines(i + 1)
Next
ReDim Preserve sLines(nLines)
End Sub

Sub IndSaetLinie(sText As String, iFoerDenne As Long, sLines() As String, nLines As Long)
Dim i As Long
nLines = nLines + 1
ReDim Preserve sLines(nLines)
For i = nLines To iFoerDenne Step -1
sLines(i) = sLines(i - 1)
Next
sLines(iFoerDenne - 1) = sText
End Sub

Mvh
Michael Christoffersen

---

Tak for svaret CADmageren.

Det kan jeg bruge

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.