|
| VB program til at gennemløbe tekst filer o~ Fra : Mads United |
Dato : 04-04-01 12:45 |
|
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!
| |
Thomas Christiansen (04-04-2001)
| Kommentar Fra : Thomas Christiansen |
Dato : 04-04-01 18:57 |
| | |
Mads United (05-04-2001)
| Kommentar Fra : Mads United |
Dato : 05-04-01 08:14 |
|
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
>
>
| |
L. Hansen (05-04-2001)
| Kommentar Fra : L. Hansen |
Dato : 05-04-01 20:35 |
|
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
>
>
| |
L. Hansen (05-04-2001)
| Kommentar Fra : L. Hansen |
Dato : 05-04-01 20:39 |
|
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
>
>
| |
Per Madsen (06-04-2001)
| Kommentar Fra : Per Madsen |
Dato : 06-04-01 20:08 |
|
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
>
>
| |
Per Madsen (06-04-2001)
| Kommentar Fra : Per Madsen |
Dato : 06-04-01 21:19 |
|
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!
>
>
>
| |
|
|