Bucle incremental y StringSplit
Publicado: 26 Abr 2011, 11:00
Buenas, Otra vez a preguntar mas cosas.
Ahora lo que me perturva es lo siguiente:
Uso la fuccion StringSplit
Con esto ya me separo cada caracter
1 0 0 1 0 .......
Bien y lo puedo monstrar asi
Que me devolveria "0"
Bien tambien puedo hacer esto.
Tambien me devolveria "0"
vale ahora donde entra mi problema es lo siguiente.
Esto lo encierro en un while o en cualquier cosa que me cree un bucle.
con esto lo que consigo es que balla comprovando cada caracter de $cadenatxt
pero me da un error que es el siguiente.
Si lo quito el error no me lo da.
Espero que me podais ayudar. Gracias.
Ahora lo que me perturva es lo siguiente:
Uso la fuccion StringSplit
Código: Seleccionar todo
$cadenatxt= "000101101001011001"
$condicion= ""
$uno= StringSplit($texto, $condi)
1 0 0 1 0 .......
Bien y lo puedo monstrar asi
Código: Seleccionar todo
MsgBox(0,"",$uno[1])
Bien tambien puedo hacer esto.
Código: Seleccionar todo
$sumar= 1
Msbox(0,"",$uno[$sumar])
vale ahora donde entra mi problema es lo siguiente.
Código: Seleccionar todo
Func x0()
Select
Case $uno[$a] = 0
$a= $a + 1
Hacer algo
Case $uno[$a] = 1
$a= $a + 1
Hacer algo
EndSelect
EndFunc
con esto lo que consigo es que balla comprovando cada caracter de $cadenatxt
pero me da un error que es el siguiente.
Y esto solo me pasa al ponerline49...... (file".....
Case $uno[$a]=0
Case ^ ERROR
Error: Array variable has incorrect number of subcripts or subcript dimension range exceeded.
Código: Seleccionar todo
$a= $a + 1
Espero que me podais ayudar. Gracias.