Generador de numeros

Iniciado por pedro004, 26 Mayo 2007, 22:01 PM

0 Miembros y 1 Visitante están viendo este tema.

pedro004

Buenas!Miren estoy tratndo de encontrar un programa que automaticamente me rellene los numeros intermedios.Ej: del 100000 al 1000000000000000 y que me haga un txt con todos los numeros intermedios, no se si me explico pretendo tener algun programa que haga como el wlandescrypter de generar las letras pero esto con numeros. Esto es lo que me han ayudado y ahora me dejaron tirado:

Private Sub Command1_Click()
Dim i As Double
Dim start As Double, fin As Double, siguiente As Double

Open "C:\prueba.txt" For Append As #1

start = Int(Text1.Text)
fin = Int(Text2.Text)

For i = start To fin
   siguiente = i
 ' MsgBox "numero" & siguiente
Print #1, siguiente
 '  Print #1, "esta es una línea"

Next i
MsgBox "fin"
Close #1
End Sub

PD: Son para las wep de r-wlanXX.. gracias

pedro004

Ahhhh....el de arriba funciona pero me genera tambien los ultimos cinco digitos y yo quiero que los ultimos 5 digitos sean 0 (ceros) y que no cambien solo los del medio ejemplo:
203XXXX00000 asi gracias

pedro004

pues he buskado muxo y nada.no encuentro nada para hacerlo ( :-[

GrTk

Dim i As Double

Open "C:\prueba.txt" For Output As #1

start = Val(Text1.Text)
fin = Val(Text2.Text)

For i = 0 To 9999


Write #1, Val("203" + Format(Str(siguiente), "0000") + "00000")


Next i
MsgBox "fin"
Close #1


me genera
esto

203000000000
203000100000
203000200000
203000300000
203000400000
203000500000
203000600000
203000700000
203000800000
203000900000
203001000000
203001100000
203001200000
203001300000
203001400000
(...)
203998800000
203998900000
203999000000
203999100000
203999200000
203999300000
203999400000
203999500000
203999600000
203999700000
203999800000
203999900000

es eso lo que queres?

Ferсhu

O podes generar numeros del 0 al 9999 y al resultado multiplicarlo por 100.000, le sumas 203.000.000.000 y listo te genera los numeros q querias.

pedro004

Muchas gracias ferchu me sirvio mucho...con lo simple que es el programa no se por que no hay mas... :-\