23. oktober 2006 - 01:37Der er
2 kommentarer og 1 løsning
Hvordan læser og skriver jeg i en tekst fil.
Jeg skal lave et program der læser ned igennem en tekstfil og erstatter alle kommater (,) med punktummer (.).
Programmet skal altså gøre følgende:
1) Åbne filen 2.1) Læse linie for linie til enden af filen 2.2) Undersøge om der er kommaer i linien 2.2.1) Hvis der er et komma i linien skal det udskiftes med et punktum 2.2.2) Gemme den nye linie på samme sted som den oprindelige 3) Lukke filen
Det med at undersøge linien og udskifte kommaer med punktummer er ikke noget problem. Derimod kan jeg ikke få filhåndteringen til at fungere.
Du kan vel enten indlæse hele filen og så erstatte, men så er der grænser for hvor lang den kan være. Ellers kan du bruge en midlertidig fil. Lidt i den her stil måske. Text1.text er filnavnet på den fil der skal erstattes i, Text2.text er det der skal fjernes. I dit tilfælde vil du bare bruge komme og punktum.
Option Explicit
Private Sub Command1_Click()
Dim minstring As String
Open Text1.Text For Input As #1 Open "c:\temp.txt" For Output As #2
Do While Not EOF(1) Line Input #1, minstring minstring = Replace(minstring, Text2.Text, "") Print #2, minstring Loop
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
