Alejandro Rivas Morán escribió:
Saludos.
He buscado información sobre limpiar variables (clear
variable), pero aún no encuentro.
parece que te faltó buscar en el lugar más obvio: la Ayuda de OOo
* Erase, función
* UBound, función
Ej.
Dim NOMBRES(1000)
Durante el proceso se llenan los nombres, No siempre
son los 1000.
a) ¿Como limpio de una vez NOMBRES() ?
varias posibilidades, por ejemplo
* Erase: Erase aMatriz
* ReDim, sin Preserve: ReDim aMatriz(0)
b) ¿ Hay manera de saber cuantas de las 1000 tienen
nombres ?
Lo mejor es emplear una matriz sin dimensionar, la redimensionas a
medida que la usas. Luego sabes cuántos elementos tiene empleando UBound
Un simple ejemplo:
Sub Main
Dim aMatrix#()
Dim n%, nRandom%
nRandom = CInt(Rnd * 35)
For n = 0 To nRandom
AddItemToArray(aMatrix, Rnd*10)
Next
MsgBox UBound(aMatrix)
End Sub
Sub AddItemToArray(anArray, aItem)
On Error Resume Next
Dim n&
n = UBound(anArray)
ReDim Preserve anArray(n + 1)
anArray(n + 1) = aItem
End Sub
Por ahora tengo un ciclo 'for' para igualarlas a "" (
NOMBRES(i)="" ) y con eso digo que las limpio pero
supongo que no es así.
Gracias anticipadas.
Alejandro.
______________________________________________
Enviado desde Correo Yahoo! La bandeja de entrada más inteligente.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Ariel Constenla-Haile
La Plata, Argentina
[EMAIL PROTECTED]
[EMAIL PROTECTED]
http://www.ArielConstenlaHaile.com.ar/ooo/
"Aus der Kriegsschule des Lebens
- Was mich nicht umbringt,
macht mich härter."
Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
