Concatenar Strings Super Rapido (StringBuilder)

[seba123neo]

Hola, este post es simplemente para mostrarles algo que seguro muchos ya saben, pero para los que no pues aca lo tienen.

El tema de la concatenacion de Strings saben que al concatenar los strings en un bucle haciendo algo como:

Código: [Seleccionar]

    For i = 0 To 100000
        vSQL = vSQL & "a"
    Next i
la performance en bucles largos se pierde ya que este metodo crea una nueva string en cada iteracion y el tiempo que tarda en terminar es mucho.

esto como sabran en .NET se soluciona usando la clase StringBuilder() que es rapidisima.

y bueno si estan buscando algo como el StringBuilder() de .NET en visual basic 6, tenemos la clase cStringBuilder de vbAccelerator

Link descarga cStringBuilder: StringBuilder Class for VB

tiene los mismo metodos clasicos de .NET, como Append() para agregar el string, .Clear y ToString para mostrar el string final, mas algunos metodos mas. usa la api CopyMemory para realizar el trabajo.

y el resultado es abismalmente mejor que la con la concatenacion con &.

aca un ejemplo simple usando un bucle de 100 mil iteraciones. y con la clase cTiming se toma el tiempo.

Código: [Seleccionar]

Dim oSQL As cStringBuilder
Dim oTiming As CTiming
Dim i As Long
Dim vSQL As String

Private Sub Command1_Click()
    oTiming.Reset
   
    For i = 0 To 100000
        oSQL.Append "a"
    Next i
   
    Text1.Text = Text1.Text & oTiming.Elapsed & vbNewLine
    oSQL.Clear
End Sub

Private Sub Command2_Click()
    oTiming.Reset
   
    For i = 0 To 100000
        vSQL = vSQL & "a"
    Next i
   
    Text1.Text = Text1.Text & oTiming.Elapsed & vbNewLine
    vSQL = ""
End Sub

Private Sub Form_Load()
    Set oSQL = New cStringBuilder
    Set oTiming = New CTiming
End Sub
el resultado compilado es el siguiente:

String: entre 4.4 y 4.5 segundos

StringBuilder: 0.054 segundos y a veces 0.020

o sea entre 20 y 50 milisegundos, mientras que el otro 4500 milisegundos, lo que seria entre 90 y 100 veces mas rapido, y mientras mas grande se haga el bucle mas rapido sera y el string casi no termina mas.

saludos.

[YAcosta]

No he podido hacerlo arrancar.
Supongo que la clase es el codigo ubicado aqui , pero creo que algo me falta porque se me cae en
Dim oSQL As cStringBuilder y de hecho se cae en las siguientes lineas. El mensaje de error es:

"No se ha definido el tipo definido por el usuario"

Trate de definirlo pero no la chunto. 

[raul338]

LE pusiste el nombre "cStringBuilder" a la clase ?

[YAcosta]

No le habia puesto, sorry 

Ya se lo puse, lo arranco ahora me salta en la siguiente linea:
Dim oTiming As CTiming

Y me sale el mismo error.  Sorry no logro cazar esa parte... también.

[LeandroA]

Hola Yvan, la calse  CTiming es solo para testear la velocidad pero no es necesaria, la verdad esta piola la clase cStringBuilder, de todas formas si se sabe el tamaño de lo que se quiere construir o es la misma cadena que se repite es mas rapido utilizando la función Mid$ del vb, la clase cStringBuilder es apropiada para construcciones sql, html y cosas asi.

Saludos.

[seba123neo]

la clase cTiming se baja de aca:

cTiming

[YAcosta]

Muchas gracias!!! Ahora si lo testee.

Gracias Lea por ubicarme.

[Psyke1]

Muy interesante la verdad, pero creo que quedaría mejor si se pusieran más test para ver como se comporta añadiendo cadenas largas.

DoEvents!

[cobein]

El rendimiento es superior al de concatenar de manera "nativa" sin importar el tamaño de las cadenas simplemente por la mecanica que utiliza.

[seba123neo]

el rendimiento es impresionante, prueben hacer esto....agregar cadenas largas, por ejemplo yo lo uso para hacer INSERTS en mysql de la forma que se llama "BATCH INSERT" (algo parecido al bulk insert de sql server) que son los inserts seguidos de los valores separados por comas.

por ejemplo un insert comun:

Código: [Seleccionar]

INSERT INTO Tabla (campo1,campo2) VALUES ('1', 'prueba')
si necesito insertar miles de registros, debo hacer miles de inserts, pero con batch es asi.

Código: [Seleccionar]

INSERT INTO Tabla (campo1,campo2) VALUES ('1', 'prueba'), ('2', 'prueba'),('3', 'prueba'),('4', 'prueba'),('5', 'prueba')
entonces esa concatenación dinamica si lo hacen con & , es super lenta, si el sistema tiene una tabla con 40 o mas campos, imaginense el string que se va generando, el & llega a un punto en el que va cada ves mas lento y llega a tardar MINUTOS, en cambio con este metodo no tarda ni un segundo, UNA BESTIA.

saludos.

[raul338]

Lo acabo de usar para un migrador de Access a MySQL que pase 1millon (aprox) de registros de 50 en 50... y la verdad que vuela :3

[seba123neo]

si yo tambien lo hago cada tantos registros, en mi caso mil, porque si son cientos de miles (por ejemplo 300 mil), hacer un insert de 300 mil a la vez puede ser mas lento que ir insertando de a pequeñas cantidades, yo de a mil no tengo problema, una importacion que antes tardaba mas de un minuto, ahora con este metodo tarda 10 segundos.

[javierjava]

Esta muy interesante pero estoy perdido en como usarlo  alguien podría poner un ejemplo ya con una base de datos y que se pueda hacer insert ? 

[Psyke1]

Echad un vistazo a esto a ver que os parece: http://leandroascierto.com/foro/index.php?topic=1286.0

DoEvents!

[seba123neo]

no avise antes, pero habia encontrado una clase mucho mas veloz, la de vbacelerator es lenta. haber si pongo un ejemplo para que vean.

saludos.