Herligt!!
Tak for det Erlend.. Kanon forklaring. Jeg vil eksperimentere lidt med det..
Har du tid og lyst skal du være mere end velkommen til at forklare en VB
newbie lidt mere..
Mvh
Thomas
"Erlend Klakegg Bergheim" <erlendkb@online.noNOSPAM> skrev i en meddelelse
news:IjIY7.16602$KQ3.240358@news1.oke.nextra.no...
> "Thomas" <thomas@kenshi.dk> skrev i melding
> news:3c334e6b$0$5492$edfadb0f@dspool01.news.tele.dk...
> > Hej Erlend,
> >
> > Hvis du har tid, må du meget gerne forklare lidt nærmere hvad der
> sker i den
> > kode du har skrevet.
> >
> > Jeg har ofte forsøgt at gøre noget lignende, men mine forsøg har
> været
> > laaaangt mere kluntede.
>
> Se da :
>
> Fjerne linje nummer 3 :
>
>
> DeleteLine = 3 'Jeg forteller hvilken linje jeg ønsker å slette.
> a = 0 'Jeg bruker variabelen a til å telle hvilken linje jeg er kommet
> til
> MyFile = "c:\autoexec.bat" 'Jeg forteller hvilken fil det gjelder
>
> Open "file.txt" For Input As #1 'Åpner filen
>
> Do Until EOF(1) 'Forteller at det som står mellom Do og Loop skal
> gjøres til det ikke er mer igjen i filen
>
> a = a + 1 'Forteller at jeg har kommet til linje nummer a + 1
> (en linje videre)
> Input #1, Temp 'Henter data fra filen
>
> If Not a = DeleteLine Then NewFile = NewFile & vbNewLine &
> Temp
> 'Oversatt : Hvis a og DeletLine ikke er like, så skal den
> siste linjen legges til innholdet som er hentet fra før med en
> vbNewLine foran det nye innholdet. (Uansett om det er første linjen.)
>
> Loop 'Går tilbake til Do ...
>
> Close #1 'Lukker filen
>
> Open MyFile For Output As #1 'Åper filen på nytt, denne gangen for
> lesing
>
> Print Mid(NewFile, Len(vbNewLine) + 1)) 'Skriver det nye innholdet
> inn i filen. Det som står med Mid()-funksjonen fjerner den første
> vbNewLine'en slik at det som var opprinnelig på linje nymmer en
> fortsatt er på linje nummer en. Uten det tillegget ville den originale
> linje nummer en blir den nye linje nummer to.
>
> Close #1 'Lukker filen
>
> 'Finito :)
>
> >
>
> På den linjen som finner ut om det er den linjen som skal slettes, så
> kan man gjøre den mer avansert ved å si at hvis filen inneholden den
> eller den frasen så skal den ikke være med. Jeg kan vise det også hvis
> det er interessant ... :)
>
> --
>
> Vennlig hilsen Erlend
> erlendkb@online.no
> ICQ 42053660
>
http://www.kleggen.com/
>
>