Buscar referencia en fichero txt

Podrias dar mas detalles de la estrutura del archivo en cuestion
( referencias)



On 15 ago, 04:16, wrote:

Hola

Me gustaría saber la forma más rápida de buscar una referencia en un
archivo txt.

Se trata de un archivo con más de cien mil referencias, cada
referencia en una línea y cada referencia con 15 letras y/o números.

La macro debe recorrer el archivo hasta encontrar la referencia.

Gracias

Pues la verdad es que no sé qué añadir.

Son referencias de artículos de una tienda.

Del tipo XX111AAA101BBBB

Miles de referencias, una debajo de otra en un fichero txt.


Gracias

escribió

Pues la verdad es que no sé qué añadir.

Son referencias de artículos de una tienda.

Del tipo XX111AAA101BBBB

Miles de referencias, una debajo de otra en un fichero txt.


Gracias

Hola,

Aparte de las referencias una debajo de otra, sería interesante saber si
solo está la referencia o alguna otra cosa en la misma línea del archivo de
texto. Y que es lo que tiene que hacer una vez encuentre o no encuentre la
referencia buscada.

Si tienes el excel 2007 podrías importar el archivo y efectuar la búsqueda
con las herramientas de búsqueda habituales.

Bueno, te paso una macro que hace lo que quieres. El archivo donde busca las
referencias esta en la variable MiArchivo, modifícalo para ajustarse a tus
necesidades, suponiendo que sólo existen las referencias en cada línea del
archivo.

Un saludo,
Juan

=Inicio Código

Sub BuscarEnTXT()
Dim NArchivo As Integer
Dim EntradaDatos As String
Dim Producto As String
Dim Encontrado As Boolean
Dim MiArchivo As String

MiArchivo = "C:\prueba.txt"

Encontrado = False
Producto = InputBox("Introduce el código del producto", _
"BUSQUEDA DE PRODUCTOS")
NArchivo = FreeFile
Open MiArchivo For Input As #NArchivo
Do While (Not EOF(NArchivo) And Not (Encontrado))
Line Input #NArchivo, EntradaDatos
Encontrado = (Producto = Trim(EntradaDatos))
Loop
Close #1
If Encontrado Then
MsgBox "Referencia encontrada", vbInformation, "RESULTADO"
Else
MsgBox "No se encontro la referencia", vbInformation, "RESULTADO"
End If
End Sub

Fin Código

Gracias Juan, es rapidísimo. Intentaré adaptarlo a lo que ya tengo.

Muchas gracias.