CEROS
Publicado por losiram (1 intervención) el 30/06/2006 19:58:56
Hola
necesito su ayuda
lo que pasa es que estoy haciendo una aplicacion en donde en 2 cuadros de textos coloco una serie de numeros por ejemplo que pase de txt a hyd desde 10025 a 010075 y lo que me hace es que cambia el primer 01002 y los demas ya no los hace .... yo digo que es por que no reconoce el cero ya hize la prueba y no me reconoce lo ceros sigientes.
hize alguna para que me reconociera el primer cero por ejemplo 010022 y si lo hace pero no se como hacer que me lo reconosca en la segunda pocicion.
Si tiene una intruccion de como hacer que los reconosca me la hacen saber por favor.
este es el codigo.
Do While Not n = val2.Substring(1, 4) + 1
If Dir(txt3.Text & "\00" & cero & n & ".txt") <> "" Then
a = rutahydrotel & "\00" & cero & n & ".hyd"
b = txt3.Text & "\00" & cero & n & ".txt"
File.Copy(b, a)
End If
n = n + 1
necesito su ayuda
lo que pasa es que estoy haciendo una aplicacion en donde en 2 cuadros de textos coloco una serie de numeros por ejemplo que pase de txt a hyd desde 10025 a 010075 y lo que me hace es que cambia el primer 01002 y los demas ya no los hace .... yo digo que es por que no reconoce el cero ya hize la prueba y no me reconoce lo ceros sigientes.
hize alguna para que me reconociera el primer cero por ejemplo 010022 y si lo hace pero no se como hacer que me lo reconosca en la segunda pocicion.
Si tiene una intruccion de como hacer que los reconosca me la hacen saber por favor.
este es el codigo.
Do While Not n = val2.Substring(1, 4) + 1
If Dir(txt3.Text & "\00" & cero & n & ".txt") <> "" Then
a = rutahydrotel & "\00" & cero & n & ".hyd"
b = txt3.Text & "\00" & cero & n & ".txt"
File.Copy(b, a)
End If
n = n + 1
Valora esta pregunta
0