---

Hejsa,

Jeg er ikke den store VB haj (endnu) - men jeg skal bruge et lille util til
at gennemløbe en masse asp filer, hvor den så lede efter en bestemt linie,
og så indsætte noget tekst efter den linie i hver enkelt fil.

Er der nogen der har gode råd til hvordan jeg griber det an ??

På forhånd tak!

---

Prøv på www.elemfaard.cjb.net

Thomas

---

den indeholder vist ikke noget brugbart

"Thomas Christiansen" <elmefaard@hotmail.com> wrote in message
news:9afnaq$2q8v$1@news.cybercity.dk...
> Prøv på www.elemfaard.cjb.net
>
> Thomas
>
>

---

Prøv på ....

Det lille fede svin ...
Hvad f..... bilder han sig ind ???

mvh
lennart@friis-hansen.dk

"Thomas Christiansen" <elmefaard@hotmail.com> skrev i en meddelelse
news:9afnaq$2q8v$1@news.cybercity.dk...
> Prøv på www.elemfaard.cjb.net
>
> Thomas
>
>

---

Jeg har sendt en "klage" til hans udbyder ... abuse@uni2.dk

Mvh, Lennart
webmaster@dancar.dk


"Thomas Christiansen" <elmefaard@hotmail.com> skrev i en meddelelse
news:9afnaq$2q8v$1@news.cybercity.dk...
> Prøv på www.elemfaard.cjb.net
>
> Thomas
>
>

---

Hvis du åbner den link, som Thomas Christiansen
foreslår, får du en masse ligegyldigt garbage,
og din startside bliver ændret til denne side.

"Thomas Christiansen" <elmefaard@hotmail.com> wrote in message
news:9afnaq$2q8v$1@news.cybercity.dk...
> Prøv på www.elemfaard.cjb.net
>
> Thomas
>
>

---

Hej Mads,

Først skal du finde de asp filer, der skal onduleres.
DIR-funktionen er glimrende til dette.
Sådan cirka kan du gøre:

f$=dir$("c:\MineAspFiler\*.asp")
while len(f$)
call OndulerAspFiler(f$)
f$=dir$
wend

Filerne kan du ondulere sådan her:

Sub OndulerAspFiler(f$)
'Vi laver et navn på en backup fil, som hedder .bak
'vbTextCompare gør at vi er ligeglade med store og små bogstaver i .asp

backup$ = Left$(f$, InStr(1, f$, ".ASP", vbTextCompare)) & "bak"

'Vi omdøber originalfilen fra xxxxx.asp til xxxxx.bak
Name f$ As backup$

Åben backupfilen og led efter strengen og skriv til "originalfilen"

open backup$ for input as #1
open f$ for output as #2

do until eof(1)
line input #1, a$
print #2, a$
if a$ = "Den linie vi søger efter" then
print "Det der skal stå efter"
print "den linie vi søger"
end if
loop
close #1, #2
end sub

Nu har vi den originale fil bevaret i xxxxxxx.bak
og den modificerede i xxxxxxx.asp

Hvis du vil af med backupfilen
klares det med
kill backup$

That's it


Evt. kan du bruge
if InStr(1, a$ = "Den linie vi søger efter", vbTextCompare)
istedet for
if a$ = "Den linie vi søger efter" then
hvis der kan forekomme afvigelser i store og små bogstaver
i det du søger efter...


Håber dette hjælper dig igang. Jeg har bare skrevet
det direkte i mailen, det er ikke afprøvet i VB

God fornøjelse

Per









"Mads United" <mmm@graffiti.net> wrote in message
news:9af1jf$c3g$1@sunsite.dk...
> Hejsa,
>
> Jeg er ikke den store VB haj (endnu) - men jeg skal bruge et lille util
til
> at gennemløbe en masse asp filer, hvor den så lede efter en bestemt linie,
> og så indsætte noget tekst efter den linie i hver enkelt fil.
>
> Er der nogen der har gode råd til hvordan jeg griber det an ??
>
> På forhånd tak!
>
>
>