VB6 Separar cadenas

[MeXiCaN]

Hola De nuevo!!

La pregunta es: ¿Como puedo separar cadenas?

Ej:

La casa de Juan, que es grande (tan grande como la mia), es de color verde.

Solución:

La casa de Juan , que es grande ( tan grande como la mia ) , es de color verde .

[hernanmdq]

Pues yo veo igual el ejem y la solucion. No entiendo que quieres.

[MeXiCaN]

No es lo mismo fijate que las comas y los parentesis estan separados

[hernanmdq]

Osea, tendria que poner espacio antes de cada simbolo, que no sea letra o numero.

[MeXiCaN]

Sí debería separa con un espacio todo aquel caracter que no sea letra como:

( ) [ ] + - * / , ; - _ . : ¿ ? ! ¡ " @ $ / \ ª = & %

[David]

Iniciado por MeXiCaN

Sí debería separa con un espacio todo aquel caracter que no sea letra como:

( ) [ ] + - * / , ; - _ . : ¿ ? ! ¡ " @ $ / \ ª = & %

Haz un Do-Loop para buscar todos los caracteres q no sean letras (con InStr) y le agregas el espacio...

[MeXiCaN]

Te importaría exponer el pseudocódigo!!

[David]

Iniciado por MeXiCaN

Te importaría exponer el pseudocódigo!!

Éste es el Código, nos vemo.... espero te sirva

Código:

Dim AllCr As Long
Dim PreTxt As String
Dim PostTxt As String
Do
    AllCr = AllCr + 1
    If AllCr > Len(Text1) Then Exit Do
    ThisCr = Mid(Text1, AllCr, 1)
    If InStr(1, "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ ", UCase(ThisCr)) = 0 Then
        PreTxt = ""
        If AllCr > 1 Then
            PreTxt = Left(Text1, AllCr - 1)
        End If
        PostTxt = Mid(Text1, AllCr + 1, Len(Text1) - AllCr)
        Text1 = PreTxt & " " & ThisCr & " " & PostTxt
        AllCr = AllCr + 2
    End If
Loop

[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.

[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

[MeXiCaN]

Muchas gracias!! Asi mejor!!

[David]

Iniciado por MeXiCaN

Muchas gracias!! Asi mejor!!

De nada, nos hablamos...

[GeoAvila]

Iniciado por David el Grande

nos vemos...

Reserved Word...

[David]

Iniciado por GeoAvila

Reserved Word...

Reñiremos en el Ministerio de Justicia por la propiedad... jaja

[GeoAvila]

Iniciado por David el Grande

De nada, nos hablamos...

jajajaj

nos vemos..