Ayuda.. Leer 3 Archivos CSV y Visualizar si el Valor buscado se encuentra.

[gregster]

Buen día..

Soy nuevo en este mundo del AutoHotKey.. he estado Intentando hacer una pequeña rutina en la aplicación la cual debería funcionar de la siguiente forma.

En el Recuadro CP se deber ingresar un valor..., este valor debe ser buscado en 3 archivos CSV que se encuentran en C:\CP\codigo1.csv, C:\CP\codigo2.csv y C:\CP\codigo3.csv,
después presionar el botón Validar Código Postal...

En Caso de Existir el Código postal en cualquier archivo... ( Existen 3 Botones llamados "Lista1, Lista2, Lista3"), Deberán cambiar Color a rojo... Antes su color es Gris Original de la Ventana.

Para finalizar existe un Botón llamado ("Limpiar"), este debería ser capas de borrar el color de los Botones ("Lista1,Lista2,Lista32). y Dejar en Blanco el Textbox Donde se Ingresa el Código Postal.


De antemano agradezco su atención y asesoría, espero muy pronto aprender para poder colaborar en este grupo...


Anexo mi código que estoy elaborando.

Code: Select all

; Aqui creamos el UserForm
Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades

; Definimos una Fuentes y Agregamos un Texto de Titulo interior
Gui, Font, S20 CBlack, Arial
Gui, Add, Text, x12 y9 w470 h30 +Center, ================================

; Aqui agregamos el Titulo del Campo
Gui, Font, S16 CBlack, Arial
Gui, Add, Text, x22 y79 w160 h40 , Ingresar CP :

; Aqui agregamos el Textbox para ingresara  el CP a Ingresar
Gui, Font, S26 CBlack Bold, Arial
Gui, Add, Edit, x192 y79 w290 h40 ,

; Aqui Asignamos los Botones
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Button, x12 y149 w230 h60 , Valida Codigo Postal
Gui, Add, Button, x330 y320 w160 h60 , Limpiar
Gui, Add, Button, x252 y149 w230 h60 , Actualiza Base



Gui, Add, Button, x10 y249 w160 h60 ,  Lista 1
Gui, Add, Button, x170 y249 w160 h60 , Lista 2
Gui, Add, Button, x330 y249 w160 h60 , Lista 3


Return


; Aqui salimos de la Rutina
GuiClose:
ExitApp

[Mod edit: [code][/code] tags added.]

[flyingDman]

Prueba esto. Tenga en cuenta que cambiar el color de los botones no es sencillo. Lo cambié a controles de texto simples. No se cual es su intencion con el boton "Actualiza Base". No sé cuál es la estructura de los archivos .csv. Entonces, asumí que si el código está en algún lugar en el archivo, cambia el color.

Code: Select all

fileread, cod1, codigo1.csv
fileread, cod2, codigo2.csv
fileread, cod3, codigo3.csv

Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades
Gui, Font, S20 CBlack, Arial
Gui, Add, Text, x12 y9 w470 h30 +Center, ================================
Gui, Font, S16 CBlack, Arial
Gui, Add, Text, x22 y79 w160 h40 , Ingresar CP :
Gui, Font, S26 CBlack Bold, Arial
Gui, Add, Edit, x192 y79 w290 h45 vCP,
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Button, x12 y149 w230 h60 gVal, Valida Codigo Postal
Gui, Add, Button, x330 y320 w160 h60 gLimp, Limpiar
Gui, Add, Button, x252 y149 w230 h60 , Actualiza Base
Gui, Add, text, x10 y249 w160 h60 -VScroll center vL1 , Lista 1
Gui, Add, text, x170 y249 w160 h60 -VScroll center vL2 , Lista 2
Gui, Add, text, x330 y249 w160 h60 -VScroll center vL3 , Lista 3
Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades
Return

Val:
gui, submit, nohide
Gui, Font, cRed
if instr(cod1,CP)
	GuiControl, Font, L1
if instr(cod2,CP)
	GuiControl, Font, L2
if instr(cod3,CP)
	GuiControl, Font, L3
return

Limp:
Gui, Font, cBlack
GuiControl, Font, L1
GuiControl, Font, L2
GuiControl, Font, L3
GuiControl,,CP
return

GuiClose:
ExitApp

[nelsonver22]

Agradezco tu rápida respuesta.

El cambio a controles de texto simples es una excelente solución, el efecto es el mismo.

Con respecto al Botón "Actualizar Base" ese lo utilizare para ejecutar scrip para extraer la información de sql y crear los 3 archivos. ( este tema ya esta solucionado )

Los Archivos CSV son archivos planos su contenido son varias líneas, cada línea contiene códigos postales separados por coma, (98654,62347,91600)

Tu apreciación referente que el código buscado se encuentra en cualquier lugar del archivo es correcto.


Solo tengo una duda, como puedo hacer para que el SetFocus siempre sea el TextBox al iniciar la aplicación.

Nuevamente agradezco tu apoyo.. me funciono al 100%

Gracias

[flyingDman]

Puedes usar ControlFocus tambien despues de "Limpiar".

Code: Select all

fileread, cod1, codigo1.csv
fileread, cod2, codigo2.csv
fileread, cod3, codigo3.csv

Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades
Gui, Font, S20 CBlack, Arial
Gui, Add, Text, x12 y9 w470 h30 +Center, ================================
Gui, Font, S16 CBlack, Arial
Gui, Add, Text, x22 y79 w160 h40 , Ingresar CP :
Gui, Font, S26 CBlack Bold, Arial
Gui, Add, Edit, x192 y79 w290 h45 vCP,
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Button, x12 y149 w230 h60 gVal, Valida Codigo Postal
Gui, Add, Button, x330 y320 w160 h60 gLimp, Limpiar
Gui, Add, Button, x252 y149 w230 h60 , Actualiza Base
Gui, Add, text, x10 y249 w160 h60 -VScroll center vL1 , Lista 1
Gui, Add, text, x170 y249 w160 h60 -VScroll center vL2 , Lista 2
Gui, Add, text, x330 y249 w160 h60 -VScroll center vL3 , Lista 3
Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades
ControlFocus, Edit1, Verificador de Codigos postales y Ciudades               ;<<<<<
Return

Val:
gui, submit, nohide
Gui, Font, cRed
if instr(cod1,CP)
	GuiControl, Font, L1
if instr(cod2,CP)
	GuiControl, Font, L2
if instr(cod3,CP)
	GuiControl, Font, L3
return

Limp:
Gui, Font, cBlack
GuiControl, Font, L1
GuiControl, Font, L2
GuiControl, Font, L3
GuiControl,,CP
ControlFocus, Edit1, Verificador de Codigos postales y Ciudades               ;<<<<<
return

GuiClose:
ExitApp

[nelsonver22]

Me surgió otra duda, como el puedo asignar al botón "Actualizar Base" que haga una acción, por ejemplo borrar o copiar un archivo?