---

Jeg har et lille problem med replace. I kan se fejlen på
http://indexpage.dk/artikler/default.asp.

Jeg har prøvet med lidt replace, og det er - selvfølgelig - det der giver
problemet. Jeg har lagt en kopi af scriptet til udskriften fra en tekstfil
ud på nettet: http://indexpage.dk/trial.txt.

Du skal bare spørge om yderligere oplysninger.

--
David Trasbo.
Vær en god Usenet-bruger. Læs <http://usenet.dk/netikette>.

---

Du læser en ny linie fra sourcefilen for hver linie og gemmer ikke
resultatet. Lav det om til følgende, så du laver flere replace-operationer
på samme linie af sourcefilen:

Set f = fso.OpenTextFile(filespec,1)

txt = f.Readline

txt = Replace(txt , "[kategori]", "<div class='kategori'>")
txt = Replace(txt , "[/kategori]", "</div>")
txt = Replace(txt , "[id]", "<li><a href='vis.asp?id=")
txt = Replace(txt , "[/id]", "' ")
txt = Replace(txt , "[beskrivelse]", "title='")
txt = Replace(txt , "[/beskrivelse]", "' ")
txt = Replace(txt , "[overskrift]", ">")
txt = Replace(txt , "[/overskrift]", "</a></li>")

---

>
> Set f = fso.OpenTextFile(filespec,1)
>
> txt = f.Readline
>
> txt = Replace(txt , "[kategori]", "<div class='kategori'>")
> txt = Replace(txt , "[/kategori]", "</div>")
> txt = Replace(txt , "[id]", "<li><a href='vis.asp?id=")
> txt = Replace(txt , "[/id]", "' ")
> txt = Replace(txt , "[beskrivelse]", "title='")
> txt = Replace(txt , "[/beskrivelse]", "' ")
> txt = Replace(txt , "[overskrift]", ">")
> txt = Replace(txt , "[/overskrift]", "</a></li>")
>

Og så skal linierne med replace og readline selvfølgelig flyttes ind i dit
loop


--
mvh
Thomas Fagerholt
---------------------------------------------------------
profilEdit CMS - Online demo på http://demo.profiledit.dk

---

>> Set f = fso.OpenTextFile(filespec,1)
>>
>> txt = f.Readline
>>
>> txt = Replace(txt , "[kategori]", "<div class='kategori'>")
>> txt = Replace(txt , "[/kategori]", "</div>")
>> txt = Replace(txt , "[id]", "<li><a href='vis.asp?id=")
>> txt = Replace(txt , "[/id]", "' ")
>> txt = Replace(txt , "[beskrivelse]", "title='")
>> txt = Replace(txt , "[/beskrivelse]", "' ")
>> txt = Replace(txt , "[overskrift]", ">")
>> txt = Replace(txt , "[/overskrift]", "</a></li>")

Når jeg gør sådan, gentages det samme hundredevis af gange. Det er jo kun
meningen at det skal vises en gang for hver. Den loadede det stadig da jeg
gik i gang med at skrive dette indæg, og den er ikke færdig endnu. Den
fylder allerede 2 mb(!)

> Og så skal linierne med replace og readline selvfølgelig flyttes ind i dit
> loop

Klart nok.

--
David Trasbo.
Vær en god Usenet-bruger. Læs <http://usenet.dk/netikette>.

---

thomas fagerholt skrev:

> Du læser en ny linie fra sourcefilen for hver linie og gemmer
> ikke resultatet. Lav det om til følgende, så du laver flere
> replace-operationer på samme linie af sourcefilen:

Man kunne også læse hele filen først, og så lave erstatningerne
bagefter - det ville i mine øjne være mere hensigtsmæssigt.


> txt = Replace(txt , "[kategori]", "<div class='kategori'>")
> txt = Replace(txt , "[/kategori]", "</div>")

- og så er denne type erstatninger jo oplagt at lave med et
regulært udtryk. Jeg har ikke tid til at lave et lige nu, men der
er masser af eksempler at tage af.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html