quitar vbnewline

[pepepf]

hola

estoy realizando una aplicación en vb6.0, y tengo el siguiente problema

copio de un documento word un texto, y lo pego en un richtextbox de vb, pero, cuando este texto tiene saltos de línea, es decir, enter de word, creo que vb lo "vé" como un vbnewline.

lo que quiero es quitar este vbnewline cuando se presente, ¿alguna idea?


gracias

[erbuson]

Creo que sería mas simple si posteas el trozo de código que te esta fallando ya que dependerá de como lo "Pegas" para poder ayudarte.

De todos modos si crees que el VB lo detecta como vbCrLf y simplemente quieres quitarlo creo que con un Replace debería ser suficiente.

NuevoTexto = Replace(AntiguoTexto, vbCrLf, "")

Un Saludo

[pkj]

Esos saltos de línea no aparecen como caracteres ni se guardan si salvas el texto.

Los inserta porque la línea no cabe en la ventana y no tienes activado el scrollbar horizontal del richtextbox.

Saludos.

[pepepf]

gracias por las respuestas

he conseguido hacer lo q quería mediante localización del "vbnewline" de esta forma

dim localiza_enter as integer
dim cadena1_sin_enter as string
dim cadena2_sin_enter as string
dim cadena_resultante as string


localiza_enter=instr(1,text1.text,vbnewline)

de esta forma ya tengo la posición de la cadena donde se encuentra lo q buscaba y ahora simplemente quitarlo

cadena1_sin_enter =mid(text1.text,1,localiza_enter)
cadena2_sin_enter=mid(text1.text,localiza_enter+1, len(text1.text)
cadena_resultante=cadena1_sin_enter & " " & cadena2_sin_enter

problema solucionado

[pkj]

Para eso tienes el comando Replace, que te reemplaza todos los saltos de línea de una vez:

Cadena = Replace(Cadena, vbNewLine, " ")

Saludos