Cargar solo cuentas con cierto numero de cifras.

[ernestoelunico]

Pregunta 2
Si yo tengo un combobox y para llenarlo utilizo un archivo de excel que contiene un catalogo de cuentas como puedo hacer un filtro para que solo las cuentas con codigos de 5 o de determinada cifras aparezcan en el combo box si necesidad de estar haciendo un archivo para cada combox y estar utilizando un solo archivo admas estoy utilizando vb6

[vlad]

Este sub-foro da lugar a confusiones, asi que espero que nos estemos refiriendo a VB 6.0 en este tema 

Con respecto a tu pregunta, ahi depende mucho de como llenes el Combo Box, pero si agregas dato por dato, lo que podes hacer es que antes de agregar el dato hagas algo parecido a los siguiente:

(nota: lo de "Excel." es a modo de ejemplo)


For i = 0 to Excel.NumeroDeCuentas
'Obtenemos la cuenta
MiVariable = Excel.ObtenerCuenta(i)
'Verificamos si es par:
If MiVariable MOD 2 = 0 Then
MiComboBox.add MiVariable
End if
next

El operador "MOD" lo que hace es devolverte el residuo de una división, por lo tanto solo los numeros pares darán una división exacta (osea, residuo = 0).

Espero haber comprendido tu pregunta.

[vlad]

Veo que cambiaste la pregunta... ¿hoy ya no es sobre las cuentas pares si no sobre las que tengan cierta cantidad de digitios?.

Bueno, igual, la respuesta es similar:
Sigue siendo igual, ahi depende mucho de como llenes el Combo Box, pero si agregas dato por dato, lo que podes hacer es que antes de agregar el dato hagas algo parecido a los siguiente:

(nota: lo de "Excel." es a modo de ejemplo)


For i = 0 to Excel.NumeroDeCuentas
'Obtenemos la cuenta
MiVariable = Excel.ObtenerCuenta(i)
'Verificamos si tiene el número de digitos que queremos:
If len(MiVariable) = 5 Then
MiComboBox.add MiVariable
End if
next

El operador "len()" lo que hace es devolverte el número de caracteres de una cadena de texto, por lo tanto solo las cadenas con un len(MiVariable) = 5 serian agregadas.

Si queres que se agreguen las mayores o iguales a 5 caracteres: len(MiVariable) >= 5

[Juancho]

SAbes, leyendo la respuesta de Vlad tiene razon, esa seria una forma bn facil y sin complicarte tanto, eso lo podes poner en una funcion q tenga como parametro la cantidad d digitos de la cuenta, entonces la validacion en vez del 5 q c apuesto pondrias tu variable o parametro:

len(MiVariable) >= Parametro