Skrive en linje til en txtfil.

Hej karl Fritjof.

Det tvivler jeg på er muligt.  Du kan tilføje i slutningen med: Open Filename for Append as #1

Men for at undgå det med arrays kan du bruge to filer:
Open fil1 for input as #1
Open fil2 for output as #2
  for pnummer = 0 to 6 
    print #2, person(pnummer)
  Next
  Do while EOF(1)=False
    Line input #1, string
    print #2, string
  Loop
Close #1
Close #2

FileCopy fil2, Fil1
Kill fil2

Kill hvis du vil rydde op.  Du kan nemlig godt åbne en fil for output, selv om den i forvejen ikke eksisterer.

Med venlig hilsen

Det du har fat i, er random acces til en fil. Det du skal bruge er sekvensiel access.

Prøv at se om du kan bruge følgende:

Sub OpenTextFile( )
    Const ForReading = 1
    Const ForWriting = 2
    Const ForAppending = 3
    Dim fso    \'Fil System Objekt
    Dim textfil    \'TextStream Fil

    Set fso = CreateObject(\"Scripting.FileSystemObject\")
    Set textfil = fso.OpenTextFile( path , ForWriting , True , TristateFalse)
    textfil.WriteLine \"linie der skal skrives til fil\"
    textfil.Close
End Sub

/Steven

Tak steven det virkede. Du kunne vel ikke forklare torie lidt nærmere. Jeg fandt selv ud af, at man skulle bruge call OpenTextFile (har lavet lidt ASP).

Jeg prøvede lidt videre.Den skriver ikke en ny linje, men den overskriver den gamle!

Hej karl_fritjof

torie = teori??!?!?!

\'Konstanter der bruges til at fortælle om man skal læse, skrive eller vedhæfte på filen
    Const ForReading = 1
    Const ForWriting = 2
    Const ForAppending = 3

\'Erklæring af to variable. fso er et fil system objekt, som skal bruges når man skriver til en fil på denne måde. textfil, er den variabel, som repressenterer filen når vi bruger fso
    Dim fso    \'Fil System Objekt
    Dim textfil    \'TextStream Fil

\'fso initialiseres
    Set fso = CreateObject(\"Scripting.FileSystemObject\")

\'filen på disken (path) bliver åbnet, ForWriting indikerer at vi ønsker at skrive i filen der kunne lige så godt have stået 2, true fortæller at en ny fil skal oprettes - false fortæller at der ikke oprettes en fil, tristateFalse åbner filen i ASCII - tristateTrue fortæller at filen åbnes i UniCode
    Set textfil = fso.OpenTextFile( path , ForWriting , True , TristateFalse)

\'Her bliver der skrevet en linie i filen
    textfil.WriteLine \"linie der skal skrives til fil\"

\'fil lukkes
    textfil.Close

Det skulle være det hele

/Steven

Jeg tror ovenstående forklarer lidt nærmere!

/Steven

Jeg kan ikke se ud af teorien, hvordan jeg skal gøre, så den skriver en ny linje i stedet for at overskrive den gamle. Plzzz help

hvad skal det bruges til?

/Steven

Jeg kan godt se at Steven er inde i sagen, jeg er bare VB-amatør.  Men lur mig om problemet med overskrivning af de første linier løses med \"fso\".  Jeg har nemlig en laaaang DOS-fortid med meget direkte skrivning til ascii-filer.

M.v.h.  Jørn

du skal bruge ForAppending i stedet for ForWriting i linien:
Set textfil = fso.OpenTextFile( path , ForWriting , True , TristateFalse)

/Steven

ForAppending virker på samme måde som Open.. For Append As .. nøjagigt det samme!

DefLng L
DefInt I
DefStr S

Private Sub Command1_Click()
    Open \"c:\\test.txt\" For Input As #1
        strContent = Input$(LOF(1), 1)
    Close #1
   
    Open \"c:\\test.txt\" For Output As #1
        Print #1, \"En ny linie!\"
        Print #1, strContent
    Close #1
End Sub


DET virker!

Sku ha været et svar ...

Jeg er ked af det, men det virker ikke, når jeg skriver Set textfil = fso.OpenTextFile( path , ForAppending , True , TristateFalse).

Set textfil = fso.OpenTextFile( path , ForAppending , True , TristateFalse)

er path = CommonDialog1.FileName ?

/Steven

Drop alt det FileSystemObject sjov der ... det er for besværligt ..

Tak tdaugaard
det hjalp. Kunne du ikke fortælle lidt om
Input$(LOF(1), 1)

Og lige et spm mere. Hvordan kan jeg oprette filen, hvis den ikke eksisterer?

steven>>
Jeg havde skrevet en \"fil.txt\" som path. Det virkede godt nok.

karl_f:>

Input$(antal_karakterer, fil_handle)
LOF(1) returnerer længden i bytes (tegn) på en fil (1=filhandle)


DefLng L
DefInt I
DefStr S

Private Sub Command1_Click()
    strFile = \"c:\\test.txt\"

    \' Checker om filen eksisterer
    If Dir$(strFile) > \"\" Then
        Open strFile For Input As #1
            strContent = Input$(LOF(1), 1)
        Close #1
    End If
   
    Open strFile For Output As #1
        Print #1, \"En ny linie!\"
        Print #1, strContent
    Close #1
End Sub

Mange tak for hjælpen tdaugaard. Steven får også nogle af pointene, da hans svar egentlig også kunne bruges.

\'så lidt.

Hvordan kunne hans svar bruges ? Det skrev jo kun til filen (og overskrev, eller tilføjede til filen i slutning ..) anyway, tak.

karl_fritjof>>

ÆV og Tak på en gang! ;-)

/Steven

Bakker op om tdaudaard\'s løsning, der er nu engang ikke grund til at gøre det mere besværligt end højst nødvendigt. Blot skal man huske at hvis der indlæses til en gammel (fixed-length) streng er man stadig underlagt 64kb grænsen

privaten:> Nææ ..

gammel fixed length streng ?
Mener du i ældre versioner af VB, eller ?

privaten (& tdaugaard)>>

Alle ikke-fixed-strings skulle befinde sig på heapen og ikke i datasegmentet (i hvert fald i VB6), så der skulle ikke være fare for 64K segment overskridelser her.

Bortset fra dette er joern\'s teknik bestemt stadig brugbar, da han indlæser filen post for post fremfor hele filen på én gang. Lidt afhængig af filstørrelsen kan dette være fordelagtigt.

buhl:> VB 5 har heller ikke problemet med 64K ..
joerns svar kan kun fordelagtigt bruges hvis du har filer på over et par megs der skal læses..

Tak for det Buhl.  Jeg kender godt metoden med at indlæse en hel fil i én streng, men vil også mene der kan opstå problemer, hvis den er stor.
Med \"Line Input\" er det ascii-værdi 13 der skiller posterne.  Ved indlæsning af en fil i en større tekstboks med multiline=true giver det en nydelig gengivelse af det oprindeligt indtastede. Dette anvender jeg jævnligt, men det er jo en anden sag.

Jeg blev ellers forbavset over at der var 17 kommentarer i timen på spørgsmålet her.

M.v.h.  Jørn

tdaugaard> Det var noget jeg læste i msdn for nogen tid siden. Og så vidt jeg husker stod der noget med fixed/non-fixed strings, og noget med en 64kb grænse. Det kan da godt være jeg husker galt, i så fald... damn it :-)

privaten:> hæ hæ .. jeg kan huske der er den grænse i QBasic meen ..