Fil åbning, og redigering

Tags:    visual-basic

Hej... Jeg skal lave et prog som skal åbne en fil, og ændre i den (det den ændre den til gør den via en funktion)... Den skal selvfølgelig gemme og lukke filen igen...
Hordan kan jeg gøre det? Kan noget af det her kode evt bruges? og hvis ja, hvordan?
Jeg bruger VB 6.0 IKKE Delphi!! :)

Dim LineText As String
Dim c As Integer
Open App.Path & "<fil der åbnes>" For Input As #1

While Not EOF(1)
Line Input #1, LineText

Close #1

Exit Function

Wend

Close #1

På forhånd tak...[Redigeret d. 15/10-02 11:53:33 af Christian Hansen]



2 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
Hej... Jeg skal lave et prog som skal åbne en fil, og ændre i den (det den ændre den til gør den via en funktion)... Den skal selvfølgelig gemme og lukke filen igen...
Hordan kan jeg gøre det? Kan noget af det her kode evt bruges? og hvis ja, hvordan?
Jeg bruger VB 6.0 IKKE Delphi!! :)

Dim LineText As String
Dim c As Integer
Open App.Path & "<fil der åbnes>" For Input As #1

While Not EOF(1)
Line Input #1, LineText

Close #1

Exit Function

Wend

Close #1

På forhånd tak...[Redigeret d. 15/10-02 11:53:33 af Christian Hansen]


jo du kan godt bruge noget af den kode!

<pre>
Function Rediger

DIM LineText AS STRING
DIM c AS INTEGER

LineText=12

OPEN App.path & "<fil der åbnes>" FOR OUTPUT AS 2


PRINT #2, LineText

CLOSE #2

</pre>

jeg vil mene at denne kode dur, er ikke helt sikkert, den kan gør et af to ting

gem en ny linie under den eksisterende med det der står i variablen LineText

eller

den kan gemme det der står i LineText oven på den eksisterende linie!

mvh.
Thomas Christensen






Hej... Jeg skal lave et prog som skal åbne en fil, og ændre i den (det den ændre den til gør den via en funktion)... Den skal selvfølgelig gemme og lukke filen igen...
Hordan kan jeg gøre det? Kan noget af det her kode evt bruges? og hvis ja, hvordan?
Jeg bruger VB 6.0 IKKE Delphi!! :)

Dim LineText As String
Dim c As Integer
Open App.Path & "<fil der åbnes>" For Input As #1

While Not EOF(1)
Line Input #1, LineText

Close #1

Exit Function

Wend

Close #1

På forhånd tak...[Redigeret d. 15/10-02 11:53:33 af Christian Hansen]


Prøv med FSO (Filesystem Objekt)

Sæt en reference til scripting objekt(Microsoft scripting runtime)

og brug så flg.

Private Sub Command1_Click()
Dim fs
Dim a
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("d:\\test.txt", ForAppending, True, TristateUseDefault)
a.WriteLine "dette er din tekst" & vbCrLf
a.Close
End Sub

Prøv at søge i hjælp efter fso


MVH

Johnny Olesen

http://www.nyvej.dk



t