Extraer texto encerrado entre indentificadores

[virla]

Quisiera saber como puedo hacer para obtener el texto que esta rodeado entre indentificadores.
ejemplo
[texto][/texto]
pero que lo pueda extraer de un archivo txt
gracias por la ayuda que puedan brindarme

[JuanRAPerez]

virla

+ busca en el foro la opción de leer un archivo de texto hay varios post yo no tengo uno al alcance

+para extraer porciones entre etiquetas puedes leerte este post
http://www.forosdelweb.com/f15/tipo-...xicano-271010/

hay una muy buena función que podrías tratar de utilizar


suerte

[virla]

te cuento que no estoy buscando robar info de otra pagina sino que cuando yo edito le voy poniendo unas etiquetas y quiero que al momento de armar la pagina poder leer las etiquetas y mostrar la info con los estilos que yo utilizo, la cosa es que la mismo info se pueden ver en diferentes partes y los estilos no son el mismo
igual esa funcion ya la utilice en algun momento
de cualquier manera gracias por la ayuda

[JuanRAPerez]

igual, nadie hablo re robar o si?

+ es el hecho que lees tu archivo txt
+ usas la función para posicionarte en el inicio de tu etiqueta [texto]
+ usas la función para posicionarte en el final de tu etiqueta [/texto]
+ formateas como tu desees

no es eso lo que deseas??????

[virla]

no dije que vos hablaras de robar amigo pero en el post trata un poco de eso, ahora esto no es para xml?
y perdona si te parecio que fue agresivo lo que dije pero no era la intencion, sino el explicar lo que necesito

[virla]

alcaro que yo hice algo asi pero en ie no funciona

.texto { width: 700px; margin: 0px auto 0px auto; left: 50%; right: 50%; }
.texto texto { font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 14px; line-height: 16px; padding-bottom: 5px; }

<div class="texto"><texto>aqui el texto que quiero ver</texto></div>
digamos que en firefox toma bien los estilos
pero en ie el estilo texto solo no me lo toma
quizas haya alguna otra forma de hacer esto mas facil y yo no lo conozco, asique escucho propuestas

desde ya agradecido por lo que puedan hacer por mi

[Shiryu_Libra]

Virla, Juan

algo similar a esto podria servirte???

<%
function Con_BBcode(raw_txt,BB_Code)
temp = split(raw_txt,"]")
if isarray(temp) then
'response.Write ubound(temp)&"<br />"
con_bbcode=left(temp(1),(len(temp(1))-len(bb_code))-1)&"<br />"
end if
end function

bbcode = "[text]"
texto = "[texto]Esto es una prueba de extraccion[/texto]"

response.Write "BBCode: "&bbcode &"<br />"
response.Write "texto: "&texto &"<br />"
response.Write "resultado: "& con_bbcode(texto,bbcode)&"<br />"
%>

logicamente lo puse para un enunciado, lo que tendrias que hacer en este caso para multiples BBcode, seria implementar el for... next, y listo

[virla]

perfecto amigo eso es lo que estaba buscando, lo probe y todo bien ahora me queda adaptarlo
mil gracias por tu ayuda

[Shiryu_Libra]

[JuanRAPerez]

oki

suerte

[virla]

estoy realizando esta prueba pero no sale como espero, alguien puede decirme el porque?

Código:

<%
dim MyTexto

function Con_BBcode(raw_txt,BB_Code)
 temp = ""
 temp = split(raw_txt,"]")
 if isarray(temp) then
  'response.Write ubound(temp)&"<br />"
  con_bbcode=left(temp(1),(len(temp(1))-len(bb_code))-1)
 end if
end function
MyTexto="[volanta]Novedades[/volanta][titulo]Equipos ultraportátiles: Sony VAIO TZ-31WN[/titulo][copete]Esta máquina de la serie TZ es de auténtico lujo tanto a nivel estético como tecnológico, pues es impresionante todo lo que Sony ha sido capaz de reunir en el interior de un chasis de dimensiones realmente mínimas y sólo 1,2 kilos de peso.[/copete]"
%>
<table width="400" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=con_bbcode(MyTexto,"[volanta]")%></td>
  </tr>
  <tr>
    <td><%=con_bbcode(MyTexto,"[titulo]")%></td>
  </tr>
  <tr>
    <td><%=con_bbcode(MyTexto,"[copete]")%></td>
  </tr>
</table>

gracias

[Adler]

Hola

¿No has pensado en usar Expresiones Regulares?

Prueba así

Código PHP:

   <%
Function EditaLosBBCODE(txt) 

Dim objRegExp

    Set objRegExp= New RegExp 
objRegExp.IgnoreCase = True
objRegExp.Global = True

objRegExp.Pattern = "([\[])([^\]]*)([\]])([^\]]*)([\[])(/)*([^\]]*)([\]])"
texto = objRegExp.Replace(txt, "<tr><td>$4</td></tr>") 

    Set objRegExp = Nothing

    EditaLosBBCODE = txt

End Function

texto = "[volanta]Novedades[/volanta][titulo]Equipos ultraportátiles: Sony VAIO TZ-31WN[/titulo][copete]Esta máquina de la serie TZ es de auténtico lujo tanto a nivel estético como tecnológico, pues es impresionante todo lo que Sony ha sido capaz de reunir en el interior de un chasis de dimensiones realmente mínimas y sólo 1,2 kilos de peso.[/copete]"

response.write "<table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & EditaLosBBCODE(texto) &"</table>"
%> 
   

Suerte

[virla]

ok pero eso no me deja poder poner link ni estilos lo que necesitaria es que funcione el que me pasaron, lo raro es que lo pruebo en el ejemplo que me dieron y funciona pero al adaptarlo no

[Adler]

Hola

Lo hice para darte otra opción

Si quieres usar el Shiryu entonces

Iniciado por Shiryu_Libra

logicamente lo puse para un enunciado, lo que tendrias que hacer en este caso para multiples BBcode, seria implementar el for... next, y listo

Hay trabajar un poco...

[virla]

si amigo y la verdad te lo agradezco, perdona si parecio que no fue asi
mil gracias por tu aporte

[Adler]

Hola

¿Será esto lo que buscas? Con permiso Shiryu

Código PHP:

   <%
dim MyTexto

function Con_BBcode(raw_txt,BB_Code, arr)
 temp = ""
 temp = split(raw_txt,"]")
 if isarray(temp) then
  response.Write ubound(temp)&"<br />"
  con_bbcode=left(temp(arr),(len(temp(arr))-len(bb_code))-1)
 end if
end function

MyTexto="[volanta]Novedades[/volanta][titulo]Equipos ultraportátiles: Sony VAIO TZ-31WN[/titulo][copete]Esta máquina de la serie TZ es de auténtico lujo tanto a nivel estético como tecnológico, pues es impresionante todo lo que Sony ha sido capaz de reunir en el interior de un chasis de dimensiones realmente mínimas y sólo 1,2 kilos de peso.[/copete]"
%>

<table width="400" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=con_bbcode(MyTexto,"[volanta]",1)%></td>
  </tr>
  <tr>
    <td><%=con_bbcode(MyTexto,"[titulo]", 3)%></td>
  </tr>
  <tr>
    <td><%=con_bbcode(MyTexto,"[copete]" ,5)%></td>
  </tr>
</table> 
   

Suerte

[virla]

gracias amigo eso me funciono de 10 te lo agradezco de corazon tu ayuda