Estoy pensando en agregar una opcion para excluir los archivos o carpetas a los cuales no les voy analizar de acuerdo a lo que especifique el usuario y los que yo los ubique por defecto en la lista de exclusiones.
A continuación el código solo es un ejemplo, el listado es solo un ejemplo de lista, lo que en si mi consulta es;
¿Como Puedo hacer para que cuando escriba en el Input con solo pulsar enter este se agregue al listado?
¿Como puedo hacer para que cuando se haya eliminado un item la selección oscura continúe en el listado?
¿Como se restringe para que no esté permitido el tecleo de estos caracteres \ / : * ? " < > | y salga un Tip de aviso?
Desde ya muy agradecido, saludos
EDITADO...
Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
Global $listado, $btnAgregar, $ingreso, $btnBuscar, $valorBusqueda
$guiExclusiones = GUICreate("Ejemplo de exclusiones", 420, 288, 360, 124)
$listado = GUICtrlCreateList("", 16, 103, 383, 136, -1, $LBS_EXTENDEDSEL)
$ingreso = GUICtrlCreateInput("", 16, 72, 297, 21)
GUICtrlSetState($ingreso, $GUI_FOCUS)
$btnAgregar = GUICtrlCreateButton("Agregar", 320, 72, 83, 25)
$titulo = GUICtrlCreateLabel("Exclusiones", 16, 32, 60, 17)
$texto1 = GUICtrlCreateLabel("Escriba el nombre de los archivos o carpetas que desea excluir en el analisis", 16, 48, 364, 17)
$btnSalir = GUICtrlCreateButton("Salir", 328, 248, 75, 25)
$btnElimniar = GUICtrlCreateButton("Eliminar", 250, 248, 75, 25)
$btnBuscar = GUICtrlCreateButton("Buscar", 173, 248, 75, 25)
listaDeRegistro()
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnAgregar
agregarRegistro()
Case $btnElimniar
eliminarRegistro()
Case $btnBuscar
buscarEnListado()
Case $btnSalir
Exit
Case $listado
GUICtrlSetState($btnElimniar, $GUI_FOCUS)
EndSwitch
WEnd
Func agregarRegistro()
If GUICtrlRead($ingreso) = "" Then
GUICtrlSetState($ingreso, $GUI_FOCUS)
ElseIf _GUICtrlListBox_FindString($listado, GUICtrlRead($ingreso), True) <> -1 Then
MsgBox(64, "Mensaje", "Ya existe este nombre", -1, $guiExclusiones)
GUICtrlSetState($ingreso, $GUI_FOCUS)
Else
GUICtrlSetData($listado, GUICtrlRead($ingreso))
GUICtrlSetData($ingreso, "")
GUICtrlSetState($ingreso, $GUI_FOCUS)
EndIf
EndFunc ;==>agregarRegistro
Func eliminarRegistro()
Local $iIndex
$iIndex = _GUICtrlListBox_FindString($listado, GUICtrlRead($listado), True)
_GUICtrlListBox_DeleteString($listado, $iIndex)
GUICtrlSetState($listado, $GUI_FOCUS)
EndFunc ;==>eliminarRegistro
Func buscarEnListado()
If GUICtrlRead($ingreso) = "" Then
MsgBox(64, "Mensaje", "Escriba el texto que desea Encontrar", -1, $guiExclusiones)
GUICtrlSetState($ingreso, $GUI_FOCUS)
Else
If _GUICtrlListBox_FindString($listado, GUICtrlRead($ingreso), True) <> -1 Then
MsgBox(64, "Mensaje", "Encontrado", -1, $guiExclusiones)
Else
MsgBox(16, "Mensaje", "No Encontrado", -1, $guiExclusiones)
EndIf
EndIf
EndFunc ;==>buscarEnListado
Func listaDeRegistro()
GUICtrlSetData($listado, "abc")
GUICtrlSetData($listado, "123")
GUICtrlSetData($listado, "xyz")
GUICtrlSetData($listado, "opq")
GUICtrlSetData($listado, "lmn")
GUICtrlSetData($listado, "aeiou")
GUICtrlSetData($listado, "bbb")
GUICtrlSetData($listado, "mlnpñgh")
GUICtrlSetData($listado, "vbxcxd")
GUICtrlSetData($listado, "qwqwses")
GUICtrlSetData($listado, "ererrerer")
GUICtrlSetData($listado, "tytyty")
EndFunc ;==>listaDeRegistro
. Busca en el foro que hace años se habló de eso. Yo personalmente tengo muchos códigos dedicados a estos temas (
.
.