HOLA!!!

Me agrada tu proyecto.

Me comi la cabeza y llegue a este resultado que reduce 10 o mas veces el tiempo de tu funcion.

Private Sub Form_Load()
Dim RUT(99999) As String
Dim MONTO(99999) As Integer
Dim INICIO(99999) As String
Dim MEDIO(99999) As String
Dim a  As String
    Open App.Path & "\ARCHIVO_BASE.TXT" For Input As #1
        Do Until EOF(1)
        Line Input #1, a
            Y = Y + 1
            FLAG = True
            For X = 1 To Y
                If Mid$(a, 58, 9) = RUT(X) Then
                    FLAG = False
                    MONTO(X) = MONTO(X) + Mid$(a, 35, 8)
                End If
            Next
            If FLAG = True Then
                RUT(Y) = Mid$(a, 58, 9)
                MONTO(Y) = Mid$(a, 35, 8)
                INICIO(Y) = Mid$(a, 1, 34)
                MEDIO(Y) = Mid$(a, 43, 15)
            Else
                Y = Y - 1
            End If
        Loop
'     #############################BORRO ARCHIVO_FINAL.TXT####################
            Open App.Path & "\ARCHIVO_FINAL.TXT" For Output As #2
            Close #2
'     #############################BORRO ARCHIVO_FINAL.TXT####################
            Open App.Path & "\ARCHIVO_FINAL.TXT" For Append As #2
            Dim MONTOB As String 'PARA ESCRIBIR CON LOS CEROS
               For X = 1 To ubound(RUT)
                    If RUT(X) = "" And MONTO(X) = 0 Then Exit For
                    MONTOB = Right("00000000" & MONTO(X), 8)
                    Print #2, INICIO(X) & MONTOB & MEDIO(X) & RUT(X)
                Next X
            Close #2
    Close #1
End Sub

Supuse que archivo RUTS.txt no es necesario.

Pero si lo queres, agrega este codigo entre el Close #2 y el Close #1 del final

'     #############################BORRO RUTS.TXT####################
            Open App.Path & "\RUTS.TXT" For Output As #2
            Close #2
'     #############################BORRO RUTS.TXT####################
            Open App.Path & "\RUTS.TXT" For Append As #2
               For X = 1 To ubound(RUT)
                    If RUT(X) = "" Then Exit For
                    Print #2, RUT(X)
                Next X
            Close #2
 

Espero que te sirva mucho. Igual mi codigo se puede optimizar 80 mil veces mas. pero para eso estan los Cracks de este foro. Yo hago lo que puedo por ayudar.

Pero estoy seguro que tiene que tardar mucho menos asi.

P.D: Modifica el largo de los vectores a tu gusto pero ojo que hay un par de for que usan ese largo escrito, lo vas a tener que cambiar a mano.





GRACIAS POR LEER!!!

HOLA!!!

@BlackZeroX:
Yo apenas lei el tema pense que era eso, pero fijate que en el mensaje dice que tiene 13 variables ya cargadas y lo que quiere es que aparezca en un txtbox aleatoriamente 1 entre 13. Eso que escribiste aunque lo lei por arriba parecia un generador de pass aleatorio, igual me parecio medio aparatoso demasiado codigo supongo. .

guille10000:
No hay porque, estamos para eso.

GRACIAS POR LEER!!!

HOLA!!!

Proba asi:

Dim VECTOR(12) As String
Private Sub Form_Load()
    For X = 0 To 12 '(13 VARIABLES) EN VECTOR
        VECTOR(X) = "LO QUE SEA " & X
    Next
End Sub
 
Private Sub Command1_Click()
    Randomize
    Text1.Text = VECTOR(Int(Rnd() * 13))
End Sub
 
' EN EL FORM LOAD LO UNICO QUE HAGO ES CARGAR LAS VARIABLES
' LO QUE IMPORTA ES EL COMMAND CLICK
' AHI USAS RANDOMIZE PARA QUE SEA ALEAORIO REALMENTE Y 
' INT ES PARA QUE DEVUELVA UN VALOR ENTERO, RND() DEVUELVE
' UN VALOR ALEATORIO ENTRE 0 Y 0,99999999. AL MULTIPLICARLO POR 13
' TENES UN NUMERO ENTRE 0 Y 12,99999999 ENTONCES AL CONVERTIRLO A
' ENTERO CON INT TENES UN VALOR ENTERO ENTRE 0 Y 12
 

GRACIAS POR LEER!!!

HOLA!!!

Proba asi:

Private Sub Command1_Click()
    VARIABLE1 = "HOLA"
    VARIABLE2 = "CHAU"
    Randomize
    If Rnd() > 0.5 Then
        Text1.Text = VARIABLE1
    Else
        Text1.Text = VARIABLE2
    End If
End Sub
 

GRACIAS POR LEER!!!

HOLA!!!

Como andan, la verdad no me gusta ni c ni c++ y todo eso. Asi que decidi empezar a aprender Pascal o Delphi como quieran llamarlo. Me parece que hay mucha mas info que para Cpp.

No digo esto para que se arme un debate si Cpp C#/.Net VB6 o Pascal.

Segun lo que anduve leyendo el compilador de Delphi se equipara con la velocidad de el de Cpp asi que como prefiero la sintaxis de Delphi arranco con ese.

Me falta mucho aun, pero escribo esto para que sepan que camino tome.

GRACIAS POR LEER!!!

HOLA!!!

Si, es cierto, me puse a leer de ASM y , la verdad es un Quilombo, no es un quilombo hacer rutinas simples. Pero llamar a un hardware, despues comparar imagenes, Pufff me parecio mucho.

Me gusto la idea de APOKLIPTICO, me voy a concentrar para hacer una libreria en Cpp y despues usarla desde el VB6.

Este tema me quedo un poco grande pero igual voy a intentarlo.

GRACIAS A TODOS!!!!

HOLA!!!

Genial, entonces a aprender Ensamblador se ha dicho.

Gracias Drinky94 y un rostro es una Cara.

GRACIAS POR LEER!!!

HOLA!!!

Hoy vengo con algo medio ambicioso para vb6, creo que el programa no da para hacer una rutina rápida y a la vez fiable de reconocimiento de Rostros.

Ni empece con el código, es solo un proyecto que quisiera hacer, pero no se ni por donde empezar.

Según lo que tengo visto tendría que hacerlo en C pelado por su velocidad pero el tema es que este lenguaje lo se leer y programar cosas muy simples, ni hablar hacer un llamado a la webcam y demás.

Si alguien quiere sumarse por favor avise y vemos como hacemos.

Lo que se me había ocurrido era un programa en VB6 que maneje las bases de datos y que cada vez que quiera hacer un reconocimiento envié un comando a un programa en C el cual analizaría el Rostro y enviaría un integer que correspondería al numero del rostro analizado al programa en VB6 que mostraría todo lindo.

En definitiva donde buscar info, lo que hay en Google es o muy complejo o muy basico; y por supuesto si alguien quiere ayudar con el tema.

Espero respuestas y opiniones.

GRACIAS POR LEER!!!

HOLA!!!

Suponiendo que uses una bd con sql.

http://www.w3schools.com/sql/default.asp

Ahi tenes todo lo que podes necesitar para aprender sql.

Si te cuesta tanto leer, hace un select * form *, volcalo en una matriz y filtralo manualmente vos.

GRACIAS POR LEER!!!

HOLA!!!

Dejaria el code pero no es mio, solo tengo el ejecutable.

Este programa por lo menos yo lo uso para saber cuanto cobrar por programa y por modificacion que pida el cliente.

Lo unico que tienen que pensar es cuanto vale una linea de Su codigo.

(No hagan if de una linea )

Jajaja. en definitiva sirve para poder cobrar bien los trabajos y con fundamento.

P.D: No soporta Grupos de proyectos. hay que hacer por cada proyecto por separado.

Descargar URL:
http://www.gigasize.com/get.php?d=m056othh8vf

Mirror:
http://hotfile.com/dl/74175182/4b2e896/CONTADOR_DE_LINEAS_LOGICAS.rar.html

GRACIAS POR LEER!!!