Skrive til text dokument

hvis du har hjælp filer installeret kan de være en MEGET stor hjælp af og til.

skriv Open og tryk F1, derfra kan du finde alt om at skrive til og læse fra filer i VB

Open - Bruges til at åbne file
Close - gæt én gang
Input - læser en linie
Print - Skrive en linie til filen

/Kenneth

hejsa

eller sæt reference til Microsoft Scripting runtime enviroment, og brug FileSystemObject til at kommunikere med text filer, det er tit meget lettere end alt det andet.

flg kode stump læser fra en fil.

Dim path As String
    Dim fileSys As FileSystemObject
    Set fileSys = New FileSystemObject
    Dim fFile As file
    Dim ts As TextStream
    Dim tmp
    On Error GoTo cancel
    CommonDialog1.ShowSave
    path = CommonDialog1.filename
    Set fFile = fileSys.GetFile(path)
   
    Set ts = fFile.OpenAsTextStream(ForReading)

    txtFilename.Text = ts.ReadLine

    lstKonvertedFiles.ListItems.Clear

    While Not ts.AtEndOfStream
        tmp = ts.ReadLine
        lstKonvertedFiles.ListItems.Add , tmp, tmp
    Wend

    ts.Close
    Set mitem = Nothing
    Set fFile = Nothing
    Set ts = Nothing
    Set fileSys = Nothing


Kedde

open \"c:\\dinfil.txt\" for output as #1
write #1, dinedata$
close

I dette eksempel har jeg brugt \'output\' men hvis du ikke vil slette filen hvergang du skriver noget nyt, men blot vil tilføje noget, så brug \'append\' istedet for...

Jeg vil gerne uddybe det for dig hvis du ikke kan få det til at virke, men så skal jeg bare vide hvormeget du skal bruge fra din database :-)

- Mikker

Du kan også ganske rigtigt bruge \'print\' istedet for \'write\', det kommer an på hvorledes du skal bruge resultaterne bagefter :-)

Takk