/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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

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

Thomas



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!
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste