Imprimir Página - Identificar "enter" en una caja de texto multilinea

Título: Identificar "enter" en una caja de texto multilinea
Publicado por: Zeroql en 13 Noviembre 2009, 02:22 am

Buenas
Bueno resulta tengo una caja de texto multilinea, pero en una variable debo guardar el texto de esta, pero si hay enters dede reconocerlos y quitarlos para enviar los datos a dicha variale.
Uso este codigo:

Código

For i = 1 To Len(cadena)
      If Mid(cadena, i, 1) = vbCrLf Then
         NoEnters = Mid(cadena, 1, i - 1) & "~" & Mid(cadena, i + 1, Len(cadena))
         Exit For
      Else
         NoEnters = cadena
      End If
Next i

pero no detecta los enters, alguien conoce algun codigo???
Se los agradezco.

Título: Re: Identificar "enter" en una caja de texto multilinea
Publicado por: MCKSys Argentina en 13 Noviembre 2009, 02:36 am

Hola!

Me parece que el problema lo tienes aqui:

Código

      If Mid(cadena, i, 1) = vbCrLf Then

Estas comparando 1 caracter (el del Mid) con 2 caracteres del Enter (0x0Dh + 0x0Ah)

Saludos!

Título: Re: Identificar "enter" en una caja de texto multilinea
Publicado por: Zeroql en 13 Noviembre 2009, 02:44 am

Pues ese siempre ha funcionado para tomar el enter, pero depurando encontre de que no keda el enter, aparece una cadena complea sin espacios ni nada asi:
Si el texto es
Hola
Mundo

queda: HolaMundo...
la verda que estoy muy confundido en este punto

Título: Re: Identificar "enter" en una caja de texto multilinea
Publicado por: WHK en 13 Noviembre 2009, 02:52 am

Citar

para enviar los datos a dicha variale

Por lo que entendí tu vas a enviar los datos a un sitio web, si es así entonces debes utilizar urlencode ya que el servidor te responderá con un error 400 si intentas enviar carácteres que no sean alfanuméricos sin que estén encodeados a menos que envíes una petición POST como si fueras a enviar un archivo.

Título: Re: Identificar "enter" en una caja de texto multilinea
Publicado por: h0oke en 13 Noviembre 2009, 02:55 am

Probaste tratando de detectar "\n"? Supuestamente, para escribir una nueva línea en vb, existe "vbnewline".

Título: Re: Identificar "enter" en una caja de texto multilinea
Publicado por: BlackZeroX en 13 Noviembre 2009, 03:08 am

vbnewline es lativamente igual a vbCrLf

Título: Re: Identificar "enter" en una caja de texto multilinea
Publicado por: Dessa en 13 Noviembre 2009, 04:34 am

NoEnters = Replace(cadena, vbNewLine, "-")

PD: perdon si no entendí bien la pregunta

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Zeroql en 13 Noviembre 2009, 02:22 am