SoloCodigo

Buenas!!!!!!!!!!!,
aquí os adjunto dos .txt porque necesito que me echeis una mano.Quiero crear un codigo que extraiga del archivo prueba1 la siguiente cadena: C8120CC, es decir que limpie todos los demás caracteres y me deje esa cadena en una variable o al principio de otro .txt.Igualmente del prueba2 me debe extraer la cadena CA7432CX,es decir le pase el .txt que le pase que se quede sólo con estas cadenas y elimine el resto (estas cadenas son mátriculas os lo comento por si os sirve de ayuda).Necesito esto porque despues compararé estas cadenas con las mátriculas de una base de datos.
Una ayudilla por favor que tengo que entregar esto ya mismo,
gracias a todos.

Muchas gracias tío!!!!!!!!!,
me has dado una idea de como realizar la búsqueda.Mi programa lo que hace es lo siguiente:
1)Capturo una foto con texto
2)Reconozco las cadenas de caracteres en la foto las cuales se almacenan en un .txt (pero  aparte de las cadenas se me meten caracteres erroneos y a lo mejor mi cadena tiene un espacio en medio o alguno de estos caracteres en medio).
3)comparo la cadena del .txt con un campo de una base de datos(para ver si pertenece a mi base o no).

Entonces con tu función he pensado que puedo realizar una busqueda por cada cadena de ese campo de mi base de datos.
Se pueden usar comodines en la búsqueda?

Hola de nuevo!!!!!!!!!!!!!,

oye Brroz,muchas gracias   por la función que me mandaste pero no me dejan usarla,los datos que yo tengo que sacar de los .txt que os adjunto son matriculas,y una vez sacadas tengo que buscar si se encuentran en mi base de datos para ver si esos coches pueden acceder a mi recinto o no.Así que para usar tu función tendría que ir buscando todas las matriculas de mi base de datos en los .txt   y esto no resulta muy optimo informaticamente para mis jefes .

Más bien necesito algo de busqueda de patrones ó simplemente una función que me vaya eliminando toda la 'mierda' de mi .txt (me refiero a cualquier caracter que no puede salir en una mátricula,es decir guiones,interrogaciones,espacios en blanco...),y me deje finalmente mi matricula,
a ver si me podeis ayudar,gracias!!!!!!!!!!!!!

Hola Gandalf_malaga7.

Tal como lo cuentas, tus jefes tienen toda la razón... recorrer toda una tabla para buscar por cada registro en un archivo de texto, no es nada operativo (a no ser que tengas poquísimos registros y el archivo de texto sea pequeño, claro).

Lo que te apuntan de buscar un patrón para las matrículas y eliminar todo lo que no cuadre con ese patrón del archivo de texto, puede ser el camino, pero... ¿lo normal no sería que las matrículas aparecieran en determinadas posiciones del txt, o que incluso apareciese una sóla matrícula?¿El txt lo obtienes tú?

Por otro lado,si aparece más de una matrícula y si eliminas todos los carácteres y/o secuencias que pueden no aparecer en una matrícula, luego tendrás que identificar en lo que te quede las posibles matrículas, y se podrían dar casos como este:
PO3425ZA2332KM2344CC9999DCC2222AABC4355
(PO-3425-Z , A-2332-K , M-2344-C , C-9999-D , CC-2222-A , ABC4355)
Desde luego que no es un obstáculo insalvable, ni mucho menos, pero ve imaginando ya lo que tendría que hacer el proceso tras filtrar en el txt las posibles matrículas.

Todo esto te lo cuento sin haber descargado tus adjuntos, por lo que no sé si a lo mejor existe la posibilidad de que las matrículas aparezcan en determinadas posiciones fijas (en un campo de un registro, vaya) o que cierto/s carácter/es delimiten una matrícula. ¿Has examinado el txt para ver si se da alguna de estas posibilidades?

Suerte.

Chao.

Salu2 Gandalf_malaga7

Hola amigo lo que puedes hacer es lo siguiente es solo una idea ojala y me alcance el tiempo te pongo el codigo del programa pero mientras va la sugerencia.

Lee cada uno de los archivos y lo abres con la instruccion Open
Luego extrae la cadena en una variable y empieza a hacer una busqueda utilizando el patron que ya lo tienes bueno usa la funcion Instr(<desde que caracterer de la cadena empieza la busqueda>,<Cadena donde se busca>, <cadena buscada> ), esta funcion te devuelve >0 cuando encontro lo que buscas sino devuelve <=0, una vez que encontraste todos los patrones en el primer archivo pues lo separas y lo guardas donde sea necesario y sigues adelante con los demas archivos hasta que termines.

Ejemplo de Instr

Dim strCadena As String
Dim strCadBuscar As String
Dim Pos as Integer
strCadena = "ASdkashdkaHola amigosasdi54654"
strCadenaBuscar = "Hola amigos"
'//Esto te devuelve la posicion en donde se encuentra la cadena en este caso 11
Pos = Instr(1,strCadena, strCadenaBuscar)
'//Aki sacamos la cadena Hola aamigo
msgbox Mid(strcadena, pos, len(strCadenaBuscar))

Espero que la info ayude

Un saludo zeekel ®
[KGT]

Hey colegas,muchas gracias ,
Brroz,he provado tu función llamandola de la siguiente forma:

Private Sub Command1_Click()

    ProcesarTxt "C:\Prueba3.txt"

End Sub

pero cuando abro el Prueba3.txt despues de ejcutarlo no esta modificado,esta igual que antes,que puede fallar?

el dia que funcione esto  os invito a todos a la feria de Malaga,ole !!!!!!!!!!!!!!!!!!

Gracias tio,
ahora funciona perfect,ojala tuviera yo ese facilidad pa crear codigo ,
bueno esto es solo el principio ya os ire contando como va la aplicacion,
mil gracias

Hola chicos

Genial Genial, todo sea por amor al soft y al desarrollo jejeje xDDD
FELICIDADES Gandalf_malaga7

un saludo Brroz
un saludo Gandalf_malaga7
un saludo elmango80

zeekel ®
[KGT]

Hola Gandalf_malaga7.

Tal vez ya hayas resuelto tu problema, pero por si acaso, te cuento:

Con la cadena resultante de la función, yo establecería otro filtro, obteniendo una cadena formada sólo por números, luego con el resultado ejecutaría una selección de registros en tu bd con un SQL de este estilo:


Recorrería el recordset resultante, buscando la mejor coincidencia...
Podrías sofisticar más la última función para que por ejemplo buscase una cadena de números con una letra a izquierda y otra a derecha, o con tres letras a la izquierda de los cuatro números...

No sé si me habré explicado muy bien, pero tú pregunta, pregunta.

Abur.

Hola.

Con 'LlamadaAFunciónSoloNumeros' me refiero a una nueva función que realice un nuevo filtro sobre la anterior que te envié.

En este ejemplo, el método recibirá como entrada el resultado de la función ProcesarTxt("C:\ruta\archivo.txt") y una matriz por referencia que será modificada para que devuelva los elementos de grupos de 4 dígitos encontrados en la cadena. Fíjate:

Recorre los elementos de la matriz que contiene los números, busca en la tabla de la bd las posibles correspondencias, recorre la selección intentando indentificar el valor del campo con la matricula completa en la cadena resultado de la función 'ProcesarTxt' (en el ejemplo str1). Es decir, algo así:

Espero que me haya explicado bien...
Suerte.

Gracias Brroz ,
me parece buena idea,es que no estaba seguro si tu algoritmo iba a probar todas las posibles cadenas de 4 números pero parece ser que sí,lo único es que si tuviera 2 coches con los mismos números en mi parking ( ya seria mala suerte pero ya sabemos que las leyes de Murphy tambien se aplican a la programación) tendria que buscar otra coincidencia y mostrar las 2 por pantalla para permitir el acceso o no de forma manual.Si lo hay una coincidencia no hay problema,se deja pasar el coche y punto.

Voy a intentar integrarlo y ya te cuento ,tambien estaría bien tener un algoritmo que paralelamente solo deje las letras del .txt,y que busque de la misma manera en la base de datos las coincidencias,y si las letras coinciden en la misma mátricula en la que coinciden los números ya es seguro nuestro coche,
sería posible hacer esto? ,

bueno un millón de gracias!!!!!!!!!!!!

Creo que ya esta claro,perdona por la tardanza pero soy novato por algo,
vamos a ver,tu idea es,coger todas las combinaciones de 4 números que haya en el .txt y meterlas en una matriz.Se busca en la base de datos si coincide alguna de estas combinaciones con los números de las mátriculas que yo tengo guardadas,y una vez encontrada alguna coincidencia,se toma esta mátricula entera (con letras y todo) y con la función que teníamos BuscarCadenaEnArchivo buscamos la mátricula completa en el .txt y si este nos devuelve una posición,es que la ha encontrado y todo perfecto,y si nos devuelve un 0 es uqe no ha encontrado la mátricula perfecta,creo que es esto lo que me estas diciendo ,

un último favor,tengo las siguientes funciones:

1)Function BuscarCadenaEnArchivo(ByVal FilePathFileName As String, ByVal Cadena As String, Optional ByVal Desde As Long, Optional ByVal CaseSens As Boolean) As Long

2)Function ProcesarTxt(ByVal InputFile As String) As String
(modificada ya para que solo me devuelva la cadena con los números,sin letras)

si no es mucho pedir me podrias escribir en un mensaje como quedaría el programa completo   ,es que tengo claro lo que hace pero no se bien como integrarlo y estoy deseando provarlo porque me parece muy buena idea.Las dos funciones de arriba no hace falta que las escribas,solo cuando las llamas.
Si estas muy liado    no te preocupes ya lo intentaré probar yo mas adelante,de todas formas muchas gracias Brroz me estas solucionando una buena papeleta,
un saludo

Que tal Brroz,estoy aqui integrando el código que me has pasao y todo va bien exepto que creo que el objeto command (cmd1) es sólo utilizable en base de datos ADO y yo estoy usando una DAO   ,quiere decir esto que no puedo usar el código que me has pasado?,me recomiendas que cambie mi base de datos y la haga en ADO?

Ya lo tengo casi...