Problema con Cadenas de Texto

[oskarrr]

Tengo que resolver un problema y no estoy muy ducho con el uso de cadenas en vb6, así que a ver si me podéis ayudar.

Tengo un txt (que es un índice de códigos) con el siguiente formato:

TEXTO QUE NO INTERESA.......
XXXXX-13 TEXTO QUE NO INTERESA....................................... X
TEXTO QUE NO INTERESA
TEXTO QUE NO INTERESA
XXXXX-13 TEXTO QUE NO INTERESA....................................... XX
...

Donde X son dígitos de 0 a 9. Es decir, que tengo que extraer los 5 números que van anterior a "-13" y luego el número de página que sería la "X" que va suelta, algo así:
XXXXX-13=Matriz[0][0]
X=Variable[0][1]
XXXXX-13=Matriz[1][0]
X-13=Variable[1][1]
XXXXX-13=Matriz[2][0]
X=Variable[2][1]
XXXXX-13=Matriz[3][0]
X-13=Variable[3][1]
XXXXX-13=Matriz[4][0]
X=Variable[4][1]
...

Para sacar el número de página podría ser que buscase "dos puntos" o más (".."), un espacio, y cogiese el dígito que hay después.
Y para el código que buscase un formato XXXXX-13 donde XXXXX son números.

Puede haber varías líneas de texto entre los códigos.
No sé si me he explicado con claridad...

[XDMerinoM]

Saludos forero. Mira hay una funcion en vb que te ayuda con manejo de pedazos de cadenas:

mid(cadena, inicio, longitud)

Lo que te tocaria es recorrer toda la cadena letra por letra hasta que llegues a la primera "X" y almacenes hasta llegar al "-" luego continues hasta llegar a la X del final y almacenarla y asi hasta terminar con la cadena.

Espero haberte ayudado.

[Carlangueitor]

No uso VB, pero te serviría usar expresiones regulares, algo como /\d{5}\-13/

Saludos

[oskarrr]

Si, lo estaba haciendo con Mid encadenando con if y for, y aunque salen un montón de líneas de código al ir comparando caracter por caracter funciona.
Miraré el uso de expresiones regulares que ahorraría muchas líneas de código.

Saludos!

[pkj]

Lee linea por linea. Utiliza instr para localizar la posicion de los "-13" y los corchetes "[" y usa esa posicion con left, mid y right para extraer lo que precede al -13 y lo que hay entre los corchetes. No creo que sea muy complicado.

Saludos

PD: Creo que me he equivocado con lo de los corchetes. Si lo que buscas es los "...." puedes usar instrrev en las lineas que encuentres el "-13" para encontrar el ultimo punto y extraer el numero que lo sigue. Es realmente simple.

[oskarrr]

Si, con mid, left o right se hace sin problema. El problema es que esos códigos del tipo XXXXX-13 están dentro de muucho texto y tengo que verificar que antes del -13 vayan 5 dígitos numéricos para que por ejemplo no se confunda con una fecha (10-10-13). Por ahora lo estaba haciendo con mid, viendo si la posición anterior es >0 y <9 y así anidando if hasta cinco veces para ver si los dígitos que preceden a -13 son 5 números y el sexto dígito que lo precede es un espacio. Funciona aunque el código no este optimizado y quizás con expresiones regulares (que aún desconozco) se pueda verificar si antes del -13 van 5 dígitos numéricos y un espacio