visualizzazione testo [problema di logica]

[santino83_11_04]

una cosa del tipo:

objRegExp.Pattern = "\[codice\]"
argStrText = objRegExp.Replace(argStrText ,"<div>")


objRegExp.Pattern = "\[/codice\]"
argStrText = objRegExp.Replace(argStrText ,"</div>")

solo non so come si fa ad ottenere per poter essere gestito il $1,$2,etc che generano le reg exp...qualcuno lo sa?

[santino83_11_04]

ROZZAMENTE:

<%

function bbcode_new(argStrText)
	Dim objRegExp
	Set objRegExp = New Regexp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	
	objRegExp.Pattern = "\[codice\]([A-Za-z0-9_<>\s]*)\[/codice\]"
	set matches=objregexp.execute(argStrText)
	
	argstrText="<div style=""border:solid 1px"">" & server.htmlencode(matches(0).submatches(0)) & "</div>"

	
	set objRegExp = Nothing
	bbcode_new = argStrText
End Function
%>
<% response.write bbcode_new("[codice]Hello
ciao[/codice]")%>

sottolineo il rozzamente

[ThePenguin]

io non di sicuro anche perchè nel mio caso specifico poi il codice a livello di pagina asp sarebbe:

      <div class="codicescript">
	   <%Stringa=""
	   Stringa1=""
	   Stringa = Replace(Replace(Scripting1, "<", "&lt;"), ">", "&gt;")
	   Stringa1= Replace(Stringa, vbCrLf, "
")
	   response.write(stringa1) %>
	  </div>

infatti il div deve venir interpretato è solo ciò che ci sta dentro che va preso e visualizzato così com'è però ribadisco è una soluzione con cui non ho confidenza quindi se qualcuno sa qualcosa di più preciso please lo dica...

[santino83_11_04]

leggi sopra che ho ripostato

[ThePenguin]

Originariamente inviato da santino83_11_04
ROZZAMENTE:

<%

function bbcode_new(argStrText)
	Dim objRegExp
	Set objRegExp = New Regexp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	
	objRegExp.Pattern = "\[codice\]([A-Za-z0-9_<>\s\d]*)\[/codice\]"
	set matches=objregexp.execute(argStrText)
	
	argstrText="<div style=""border:solid 1px"">" & server.htmlencode(matches(0).submatches(0)) & "</div>"

	
	set objRegExp = Nothing
	bbcode_new = argStrText
End Function
%>
<% response.write bbcode_new("[codice]Hello
ciao[/codice]")%>

sottolineo il rozzamente

portebbe essere ma un'altra cosa che non capisco è: qui usa un response.write("[codice]aaaa[/codide]")

ma nel mio caso io mica so dove sta il codice :master:

io prendo apro word e inserisco del testo poi dopo ad un certo punto inserisco [codice] al che incollo il codice e chiudo con [/codide].. altro testo e la solfa si ripete.
A questo punto incollo nel campo memo del db ma questo dovrà analizzare il campo memo no?
e soprattutto <% response.write bbcode_new("myrs("testo")")%>

immagino....

[santino83_11_04]

<%

function bbcode_new(argStrText)
	Dim objRegExp
	Set objRegExp = New Regexp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	
	objRegExp.Pattern = "\[codice\]([A-Za-z0-9_<>\s\d]*)\[/codice\]"
	set matches=objregexp.execute(argStrText)
	
if matches.count>0 then
	argstrText="<div style=""border:solid 1px"">" & server.htmlencode(matches(0).submatches(0)) & "</div>"
end if


	
	set objRegExp = Nothing
	bbcode_new = argStrText
End Function
%>
<% response.write bbcode_new(testo_nel_db)%>

prova e poi dicci no?

[ThePenguin]

dunque concettualmente funziona però e qui ci sono i però...
allora il testo prima di [codice] non fa i ritorni a capo che io facevo con

<%=replace(Testo,chr(13)&chr(10),"
")%>

dentro al div che contiene il codice non interpretato anche in questo caso il codice è tutto di filato e non va a capo... ed in più sempre dentro al div viene scritto all'inzio e alla fine [codice] e [/codice]

[santino83_11_04]

allora,

dim txt_db

txt_db=testo_del_database

'aggiungo il div che contiene il testo non interpretato

txt_db=bbcode_new(txt_db

'replace degli spazi

txt_db=replace(txt_db,vbcrl,"
")

naturalmente, avendoti detto che è una cosa molto rozza, è normale che non funzioni bene

prova a togliere il server.htmlencode nella funzione e vedi che succede...insomma non è banale fare quello che chiedi o almeno io di pronto onn ho nulla, ci vorrebbe imente in questi casi

[ThePenguin]

Originariamente inviato da santino83_11_04
allora,

dim txt_db

txt_db=testo_del_database

'aggiungo il div che contiene il testo non interpretato

txt_db=bbcode_new(txt_db

'replace degli spazi

txt_db=replace(txt_db,vbcrl,"
")

naturalmente, avendoti detto che è una cosa molto rozza, è normale che non funzioni bene

prova a togliere il server.htmlencode nella funzione e vedi che succede...insomma non è banale fare quello che chiedi o almeno io di pronto onn ho nulla, ci vorrebbe imente in questi casi

certo
però credo che si sia una falla nel ragionamento e cioè se ho ben interpretato il codice tu hai fatto l'aggiuta del div che contiene il codice non iterpratato da fuori..? ma il div è dentro al campo del db?
o sto sbagliando ad interpretare il codice?

io nel db x capirci avrò:

testo testo <div class="codice">[codice] il codice [/codice]</div>

[santino83_11_04]

guarda, sono nuovo dell'argomento e lo stavo studiando giusto ora...

<%

function bbcode_new(argStrText)
	Dim objRegExp
	Set objRegExp = New Regexp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	
	objRegExp.Pattern = "\[codice\]([\S\s]*)\[/codice\]"
	argstrText=objRegExp.replace(argstrText,"<div style=""border:solid 1px"">$1</div>")
	
	objRegExp.Pattern="\[(/{0,})(B)\]"
	argstrText=objRegExp.replace(argstrText,"<$1$2>")
	
	
	set objRegExp = Nothing
	bbcode_new = argStrText
End Function
%>
<% 
dim testo

testo="ciao a tutti si dice [codice] [ b ]Hello
ciao[ /b ][/codice] capito?"

response.write bbcode_new(testo)%>

dove [ b ] e [ /b ] li devi scrivere attaccati