RegExp och include

6 svar · 238 visningar · startad av roady 16 okt. 2002

roadyMedlem sedan jan. 2002473 inlägg

Frågan16 okt. 2002 17:55#1

Har en RegExp där jag bytar ut en massa saker som vanligt (ex. textfärg, url-länkar osv.)
Men jag vill att när exempelvis användaren skriver: [news] så vill jag lägga in en kod där jag hämtar info från en databas och skriver ut.

Hur löser jag detta, det som jag "Replacear" blir text som inte genereras av servern???

PoffeMedlem sedan apr. 20022 743 inlägg

16 okt. 2002 18:47#2

du får lägga in det du vill ha från databasen i en variabel och sedan byta ut [news] till den variabeln:

Replase(str, "[news]", sVariabel)

RED/
Oj, tänkte inte på att det var RegExp, sorry

roadyMedlem sedan jan. 2002473 inlägg

16 okt. 2002 18:54#3

så man kan inte göra så eller???

finns det något annat sätt att lösa det på?

Eftersom jag vill att användaren skall kunna skriva sin text och där han/hon vill lägga in lite databas genererad kod så behöver man bara skriva [news]...

roadyMedlem sedan jan. 2002473 inlägg

16 okt. 2002 23:38#4

ingen som kan någon lösning???

Sedan har jag ett problem till som jag behöver hjälp me i RegExp...

Kan man få som så att ifall man skriver en massa text och vill ha styckes indrag på vissa...

ex:

[indrag]fin n nsd dpsasidf sifns fsdfnosn d
f isod fis f sf ansf nds
fiaosd fisdf

dsfhioa hsdofhsdf
sfjfd aspdfsdfd
f sjdfp

[indrag]jfisnf sdfasodfhoisadf
sfhisd foisihfhds
fjsdop fasdfa

Då skall det bara bli textindrag på dem som jag valt???

roadyMedlem sedan jan. 2002473 inlägg

18 okt. 2002 12:32#5

någon som har en idé???

förstår ni hur jag menar eller förklarar jag för dåligt???
*börjar bli desperat*

PaceMedlem sedan juni 20019 024 inlägg

18 okt. 2002 15:05#6

Menar du något i den här stilen?

If InStr(Lcase(strText), "[news]") Then
   ' Hämta info från db, retunera recordset.
   set rs = objConn.Execute(strSql)
   
   ' reg exp
   objRegExp.Global = True
   objRegExp.IgnoreCase = True
   objRegExp.Pattern = "(\[news\])"
   strText = objRegExp.Replace(strText, "$1")

   ' via replace-funktionen
   strText = Replace(strText, "[news]", rs(0))
End If

' printa ut till webbläsaren

[Indrag] kan du lösa på liknande sätt.

roadyMedlem sedan jan. 2002473 inlägg

18 okt. 2002 16:51#7

tackar pace....
det blir ju superkanon det här =)