VB6 Separar cadenas

[David]

Iniciado por MeXiCaN

ok, funciona perfectamente, no hacia falta que me pusieras el codigo pero gracias.

Ahora te pido una vez más, otra cosita, podrias comentarme el codigo, que hace en cada linea.

Muchas gracias.

Código:

 
'Definimos las variables q' necesitaremos
Dim AllCr As Long
Dim PreTxt As String
Dim PostTxt As String

Do
    AllCr = AllCr + 1
    If AllCr > Len(Text1) Then Exit Do
    'Continuar el bucle mientras el carácter no sea el último del Texto
    ThisCr = Mid(Text1, AllCr, 1)
    'Extraer el Carácter siguiente de la cadena
    If InStr(1, "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ ", UCase(ThisCr)) = 0 Then
        'Buscar en la cadena ABCDEFGHIJKLMNOPQRSTUVWXYZ el Carácter
        PreTxt = ""
        If AllCr > 1 Then
            'Si el carácter no es el primero extraer el texto anterior al carácter
            PreTxt = Left(Text1, AllCr - 1)
        End If
        'Extraer el Texto Posterior a la Cadena
        PostTxt = Mid(Text1, AllCr + 1, Len(Text1) - AllCr)
        'Agregar al Texto lo Anterior + Espacio + Carácter + Espacio + Posterior
        Text1 = PreTxt & " " & ThisCr & " " & PostTxt
        'Saltar 2 caracteres ya q' le agregamos 2 Espacios
        AllCr = AllCr + 2
    End If
Loop
 

Bueno, ahí va la explicación del código