Obtener datos con expresiones regulares

[zafio]

Hola a todos, llebo varias semanas intentando sacar los datos de un listado y pasarlos a una array para posteriormente pasarlos a una base de datos y no consigo sacar los datos ni con bucles ni con expresiones regulares...

El texto a analizar searia:

<EOH>
<CALL:5>Dato1 <QSO_DATE:8>20060601
<EOR>
<CALL:5>Dato2 <QSO_DATE:8>20060602
<EOR>
<CALL:5>Dato3 <QSO_DATE:8>20060603
<EOR>
<CALL:5>Dato4 <QSO_DATE:8>20060604
<EOR>

--
<EOH> indica que aquí empieza el texto a analizar
<EOR> indica que aquí termina el campo anterior
<CALL:5><QSO_DATE:8> los datos que están entre estas flechas "CALL y QSO_DATE"
pueden variar

y lo que quiero lograr algo así o similar, para poder analizar el texto guardado y mandarlo a una base de datos:
$linea = array('CALL:5', 'Dato1', 'QSO_DATE:8', '20060601');

Gracias de antemano, espero que me echéis una mano.

[abimaelrc]

¿Que has tratado de hacer (me refiero al codigo escribelo) y que resultado te ha dado?

[zafio]

Hola abimaelrc, esta noche he conseguido sacar lo que queria, pero mediante bucles. Lo que yo hago aqui con no se cuantos bucles, se que se puede hacer con una sola "expresión regular".

Codigo PHP:

<?php

//Cadena a analizar.
$eestring = '<dato1:16>contenido dato 1<dato2:16>contenido dato 2';

//tamaño de la cadena
$longitud = strlen($eestring);

//contadores
$n_buffer01 = 0;
$n_buffer02 = 0;

$n_reg01 = 0;
$n_reg02 = 2;

//bucle que analiza la cadena
for ($n = 0; $n <= $longitud; $n++)
{

//si detecta < ponemos contenido y $etiqueta en 'ok' (ya se que con expresiones boolean queda mejor)
//con $contenido le indicamos que contiene datos o un campo a analizar
//$n_reg01 es un contador y cada vez que detecta una < suma 1 y asi mas adelante podemos compararlo con $n_reg02.
if ($eestring[$n] == '<'){$contenido = 'ok'; $etiqueta = 'ok'; $n_reg01++;}

//si detecta > le indicamos que hemos cerrado la $etiqueta con 'no'
if ($eestring[$n] == '>'){$etiqueta = 'no'; $procesar = 'ok';}

//Si $etiqueta es 'ok' almacenamos los datos en el $buffer01
if ($etiqueta == 'ok')
{
if ($eestring[$n] != '<') //con este if evitamos que se nos meta el caracter < en el $buffer01
{
$buffer01[$n_buffer01] = $eestring[$n];
//vemos que hace todo bien...
//echo "[$n_buffer01] --> $buffer01[$n_buffer01] <---> n_reg01 = $n_reg01 n_reg02 = $n_reg02<br />";
$n_buffer01++;
}
}

//si hemos detectado > y hemos cerrado la $etiqueta con un 'no' pero contiene datos = $contenido almacenamos
//el texto en el $buffer02
if (($etiqueta == 'no') and ($contenido == 'ok'))
{
if ($eestring[$n] != '>')
{
$buffer02[$n_buffer02] = $eestring[$n];
//vemos que hace todo bien...
//echo "$n_buffer02 --> $buffer02[$n_buffer02] <br />";
$n_buffer02++;
}
}

//si hemos empezado a analizar un registro nuevo o es el final del string, muestra los datos
if (($n_reg01 >= $n_reg02) or ($n >= $longitud))
{
//pasamos los datos de array a string
$el_buffer01 = arraytostr ($buffer01);
$el_buffer02 = arraytostr ($buffer02);
//mostramos los datos
echo "----------------------<br />";
echo "Buffer01: $el_buffer01<br />";
echo "Buffer02: $el_buffer02<br />";
echo "----------------------<br />";
//ponemos los 2 contadores a 0
$n_buffer01 = 0;
$n_buffer02 = 0;
//baciamos los arrays.
unset($buffer01);
unset($buffer02);
$n_reg02++;
}

}
?>

P.Data ya se que tengo que sustituir $contenido, $etiqueta... por expresiones boolean...

Gracias de antemano a todos.

[ronnieb]

No tuve tiempo de probarlo, se me ocurrió que podría ser así la expresión regular:

Código PHP:

  $matches = array(); 
preg_match_all('|(<([A-Z_]*):[0-9]*>([^<]*))*<EOR>|Umsi',$texto,$matches,PREG_SET_ORDER);  
   

Luego en $matches[0] te quedaria un array con todo lo que ubicó para el primer registro, puedes hacer un print_r($matches[0]) para ver que encuentra.