Mange tak, lige hvad jeg havde brug for!
Det bliver ikke et problem med størrelsen af filerne, da de kun er på
omkring 50-60 linier. Tak for hjælpen!
"Bjarke Walling Petersen" <bwp@bwp.dk> skrev i en meddelelse
news:9ipble$2ro2$1@news.cybercity.dk...
> Niels skrev:
> > Det ser rigtigt godt ud. Det er nok den løsning man bør bruge.
> > Men bemærk den også har den forudsætning, at filerne må ikke være
> > kæmpe store, da hele filen læser ind i hukommelsen.
>
> Ja, det er selvfølgelig rigtigt... det havde jeg ikke lige tænkt på.
>
> - Bjarke Walling Petersen
>
> > - Niels
> >
> > "Bjarke Walling Petersen" <bwp@bwp.dk> wrote in message
> > news:9il0a2$huv$1@news.cybercity.dk...
> > > Man kan også gøre sådan her... den anvender ingen temp. fil.
> > > Det skulle gerne virke ved alle filer - dog ikke binære
> > >
> > > Private Sub ChangeFirstLine(Filename As String, NewFirstLine As
String)
> > > Dim File As String
> > > Dim Pos As Long
> > > ' Åben filen til læsning:
> > > Open Filename For Input As #1
> > > ' Indlæs hele filen i variablen File:
> > > File = Input(LOF(1), #1)
> > > Close #1
> > > ' Find positionen for det første linieskift:
> > > Pos = InStr(File, vbCrLf)
> > > ' Find ud af om der overhovedet er linieskift:
> > > If Pos = 0 Then
> > > ' Der er ikke linieskift.
> > > ' Det nye filinhold bliver NewFirstLine:
> > > File = NewFirstLine
> > > Else
> > > ' Der er linieskift.
> > > ' Den første linie bliver skiftet ud
> > > ' med NewFirstLine:
> > > File = NewFirstLine & Mid(File, Pos)
> > > End If
> > > ' Overskriv den gamle fil med det nye indhold:
> > > Open Filename For Output As #1
> > > ' Semikolon sørger for at der ikke kommer en
> > > ' ekstra linie i bunden af den nye fil:
> > > Print #1, File;
> > > Close #1
> > > End Sub
> > >
> > > - Bjarke Walling Petersen
> > >
> > > Niels skrev:
> > > > Her er noget kode der kan gøre det.
> > > >
> > > > Public Sub ChangeFirstLineInFile(sFileName as string, sTekst as
> string)
> > > >
> > > > Dim sLine as String
> > > >
> > > > Name sFileName As sFileName & ".old" ' Vi ændre lige navnet på
> filen.
> > > >
> > > > Open sFileName & ".old" For Input As 1 ' Læser fra den gamle
> > > > Open sFileName For Output As 2 ' Opretter en ny fil
> > > >
> > > > Line Input #1, sLine ' Her læses den linie der skal ændres
> > > > Print #2, sTekst ' Her skrives den nye tekst
> > > >
> > > > While Not Eof(1) ' Løb resten af filen igennem
> > > > Line Input #1, sLine ' læs linierne
> > > > Print #2, sLine ' og skriv dem i den nye fil'
> > > > Wend
> > > >
> > > > Close #2
> > > > Close #1 ' Luk filerne
> > > >
> > > > Kill sFileName & ".old" ' Slet den gamle fil.
> > > >
> > > > End Sub
> > > >
> > > > Men bemærk der er ikke taget forbehold for at filen kan være tom,
> > > > ej heller at filen kan være skrive beskyttet. - Når ja, jeg har ikke
> > test
> > > > koden.
> > > >
> > > > Mvh
> > > > - Niels G.
> > > >
> > > > "Franz Jäger" <freakazoid@superheros.as> wrote in message
> > > > news:9ih9ot$1bpb$1@news.cybercity.dk...
> > > > > Nogen der kan hjælpe mig med hvordan jeg nemmest kan ændre den
> første
> > > > linie
> > > > > i en tekst-fil?? (jeg er helt nybegynder!!)
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>