Toon posts:

[ASP] tekst tussen 2 tags vervangen

Pagina: 1

Acties:

63 views sinds 30-01-2008
Reageer

vrijdag 26 april 2002 16:24

Acties:

Dr.Dokter

Topicstarter

Hoe vervang je in een string zoals deze
xxx = "<title>boe!</title>"
de tekst 'boe!' met 'bah!'?
(ook wanneer er 20 title-tags zijn)

Ik heb al een beetje zitten klooien met Instr en Left, maar krijg het niet voor mekaar.

vrijdag 26 april 2002 16:55

Acties:

Crazy D

I think we should take a look.

[topic=469314] ?
Met InStr en Left kan het ook wel, alleen iets lastiger.

Exact expert nodig?

vrijdag 26 april 2002 17:36

Acties:

Verwijderd

In tegenstelling tot je andere post is wel een RTFM vraag

code:

1 2	test = "<title>Boe!</title>" test = replace(test,"Boe!","Bah!")

/Edit:
Dit is dus niet een tekst tussen 2 tags veranderen maar gewoon een string in een string vervangen.

vrijdag 26 april 2002 17:51

Acties:

Dr.Dokter

Topicstarter

Dat bedoelde ik niet helemaal....mijn fout.

Ik bedoelde eigenlijk meer zoeits:

<titel> variabele </titel>
<titel>vaaariaaabele</titel>

Hoe vervang ik nu alles tussen (en inclusief) t\de titel-tags met ""?

vrijdag 26 april 2002 17:53

Acties:

Verwijderd

Op vrijdag 26 april 2002 17:51 schreef Dr.Dokter het volgende:
Dat bedoelde ik niet helemaal....mijn fout.

Ik bedoelde eigenlijk meer zoeits:

<titel> variabele </titel>
<titel>vaaariaaabele</titel>

Hoe vervang ik nu alles tussen (en inclusief) t\de titel-tags met ""?

Op vrijdag 26 april 2002 16:55 schreef Crazy_D het volgende:
[topic=469314] ?
Met InStr en Left kan het ook wel, alleen iets lastiger.

vrijdag 26 april 2002 18:15

Acties:

Vampier

poke-1,170

Op vrijdag 26 april 2002 16:24 schreef Dr.Dokter het volgende:
Hoe vervang je in een string zoals deze
xxx = "<title>boe!</title>"
de tekst 'boe!' met 'bah!'?
(ook wanneer er 20 title-tags zijn)

Ik heb al een beetje zitten klooien met Instr en Left, maar krijg het niet voor mekaar.

scrijf zelf een functie die kijkt waar de eerste > staat en waar de laatste < staat... lees daar tussen de tekst uit met mid(stringnaam,post eerste > +1 pos, 2de positie van < -1 post)

zet dit in een string.

dus

code:

1
2
3

strTextDieVeranderenMoet=mid(orginelestring,pos1,pos2)

strNieuw=replace(OrgineleString,strTextDieVeranderenMoet,strNieuweTekst)

Succes

vrijdag 26 april 2002 18:18

Acties:

Dr.Dokter

Topicstarter

thanx
zover ben ik inmiddels. Het lukt mij om dit 1 keer in een string te doen alleen krijg ik de loop niet goed om het zo vak te doen als dat er zo'n string in staan.

code:

links = 1
aantal = 0
For i = 0 To Len(nieuws)
   If mid(nieuws,i,1) = "<reacties>" Then
    aantal = aantal + 1
   end if
Next

For j = 1 to aantal
links = Instr(nieuws,"<tag>",1)
rechts = Instr(nieuws,"</tag>",1)
verschil = rechts - links + 11
tmp = mid(nieuws,links,verschil)
nieuws = replace(nieuws,tmp,"")
next

maar dan krijg ik:
Runtimefout Microsoft VBScript (0x800A0005)
Ongeldige procedure-aanroep of ongeldig argument: 'mid'

vrijdag 26 april 2002 18:21

Acties:

paragon

xxx = "<title>boe!</title>"

waarom ook de title tags? Je kan tog ook gewoon het volgende doen:

xxx = "boe!"

en dan in je html het volgende:

<html>
<head>
<title><%=xxx%></title>
</head>

vrijdag 26 april 2002 18:23

Acties:

Dr.Dokter

Topicstarter

De string staat vast. In het origineel kan ik niks aanpassen. Vandaar zo omslachtig.
Ik ga nu even op msdn.microsoft.com de RegExp bekijken. Heerlijk om nieuwe dingen te leren

vrijdag 26 april 2002 18:35

Acties:

Vampier

poke-1,170

Moet ik nog een functie schrijven?

vrijdag 26 april 2002 18:36

Acties:

Dr.Dokter

Topicstarter

Een geweldig aanbod. Ik ben zelf nu op http://www.15seconds.com/issue/010301.htm eenhoop aan het leren, maar als het niet veel moeite is graag. Dan kan ik mijn lessen meteen toetsen.

vrijdag 26 april 2002 18:43

Acties:

Fiets

A.K.A. Bambi

Het is mogelijk om tussen <div></div> tags tekst aan te passen.

In html:
<div id="Naam"></div>

In Javascript:
Naam.innerHTML = sContent;

Javascript kun je gewoon genereren met ASP.

Maar 2 DPC'ers op DHEP! Ahum, nu nog maar 0 aktieve leden...

vrijdag 26 april 2002 18:48

Acties:

Dr.Dokter

Topicstarter

Ik heb nu:

code:

Set regEx = New RegExp
regEx.IgnoreCase = True    
regEx.Pattern = "<tag>"
patt = regEx.Pattern
nieuws = regEx.Replace (nieuws,"")
set rexEx = nothing

maar die vervangt maar 1x <tag> met niks

vrijdag 26 april 2002 19:44

Acties:

Dr.Dokter

Topicstarter

Ik heb mijn huiswerk gedaan. Hier is m'n code:

code:

Set regEx = New RegExp
regEx.IgnoreCase = True    
regEx.Global = True 
regEx.Pattern = "<tag>(.)*</tag>"        
patt = regEx.Pattern
nieuws = regEx.Replace (nieuws,"")
set rexEx = nothing

Pagina: 1

Reageer