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:
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.
Hola!
Me parece que el problema lo tienes aqui:
If Mid(cadena, i, 1) = vbCrLf Then
Estas comparando 1 caracter (el del Mid) con 2 caracteres del Enter (0x0Dh + 0x0Ah)
Saludos!
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
Citarpara 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.
Probaste tratando de detectar "\n"? Supuestamente, para escribir una nueva línea en vb, existe "vbnewline".
vbnewline es lativamente igual a vbCrLf
NoEnters = Replace(cadena, vbNewLine, "-")
PD: perdon si no entendí bien la pregunta