Replace [résolut]

Marsh Posté le 01-02-2004 à 14:18:38

Bonjour,

je code un site en ASP/Access pour une association et j'ai besoin de remplacer :

des retour chariot par des 
le code [img] par <img src="
et le code [/img] par " heigth=" " width=" " alt=" " title=" " />

Et bien entendu je ne sais pas comment m'y prendre

Si quelqu'un à une idée ça me rendrait un très grand service.

pour les retour chariot je fait ça qui fonctionne
<%=replace((News.Fields.Item("News" ).Value),chr(10)," " )%>

Message édité par Flyman30 le 06-02-2004 à 09:07:47

Reply

Marsh Posté le 01-02-2004 à 14:18:38

Reply

Marsh Posté le 01-02-2004 à 15:46:16

oriente-toi plutot du coté des expressions régulières à mon avis

Reply

Marsh Posté le 01-02-2004 à 16:30:51

urd-sama a écrit :

oriente-toi plutot du coté des expressions régulières à mon avis

C'est mon avis aussi d'après ce que j'ai lu mais je n'y connais encore rien en regEx [:airforceone]

Reply

Marsh Posté le 01-02-2004 à 18:02:20

J'ai essayé ça mais ça ne fonctionne pas pour [img][/img]

<%
function repl(str)
Dim regEx,temp
Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "\[img\]"
temp = regEx.REPLACE(temp,"<img = src'" )
regEx.Pattern = "\[\/img\]"
temp = regEx.REPLACE(temp,"' />" )
temp = replace(str,VbCrLf," " )
repl = temp
end function
%>

Ou est-ce que je me trompe ? :cry:

Reply

Marsh Posté le 01-02-2004 à 23:30:48

Bon j'ai réussi, j'ai abandonné regEx et j'ai fait une fonction replace

<%
function replac(texte)
Dim temp
temp = texte
temp = replace(temp ,VbCrLf," " )
temp = replace(temp ,"[img]","<img scr=" )
temp = replace(temp ,"[/img]","' />" )
replac = temp
end function
%>

Reply

Marsh Posté le 03-02-2004 à 12:57:36

la même fonction mais via regEx

Code :

<%
function remplace(txt)
Dim sPath, temp, regEx
sPath = "Images"
temp = txt
Set regEx = New RegExp
regEx.IgnoreCase = False
regEx.Global = true
regEx.Pattern = "\[img\](.*?)\[/img\]"
'OutputString = regEx.Replace(InputString, "<img class='image' src='" & sPath & "/$1' alt='' />" )
temp = regEx.REPLACE(temp,"<img class='image' src='" & sPath & "/$1' alt='' title='' />" )
temp = replace(temp,VbCrLf," " )
remplace = temp
Set regEx = Nothing
end function
%>

Reply

Marsh Posté le 04-02-2004 à 13:29:37

Bonjour,

En ASP j'ai ça dans la base Access : [img]image.gif[/img] (les codes [img][/img] sont généré par un clic sur une icone et JVScript)

Avec cette fonction:

Code :

<%
function remplace(txt)
Dim sPath, temp, regEx
sPath = "Images"
temp = txt
nom = txt
Set regEx = New RegExp
regEx.IgnoreCase = False
regEx.Global = true
regEx.Pattern = "\[img\](.*?)\[/img\]"
temp = regEx.REPLACE(temp,"<img class='image' src='" & sPath & "/$1' />" )
temp = replace(temp,VbCrLf," " )
remplace = temp
Set regEx = Nothing
end function
%>

je récupère l'image par

Code :

<%=remplace(essais.Fields.Item("articles" ).Value)%>

mais j'obtient :

Code :

<img scr="Images/image.gif" />

et je voudrais obtenir:

Code :

<img scr="Images/image.gif" alt="image.gif" title="image.gif" />

une idée ? je deviens fou !

Message édité par Flyman30 le 04-02-2004 à 13:40:51

Reply

Marsh Posté le 06-02-2004 à 09:07:09

En fiat c'était tout con, et je m'énerve depuis pour rien :

Code :

<%
function remplace(txt)
Dim sPath, temp, regEx, alt_title, temp2
sPath = "Images"
temp = txt
nom = txt
Set regEx = New RegExp
regEx.IgnoreCase = False
regEx.Global = true
regEx.Pattern = "\[img\](.*?)\[/img\]"
temp = regEx.REPLACE(temp,"<img class='image' src='" & sPath & "/$1' alt='$1' title='$1' />" )
temp = replace(temp,VbCrLf," " )
remplace = temp
Set regEx = Nothing
end function
%>

Reply

Replace [résolut]

Sujets relatifs:

Leave a Replay