Ayuda con una cadena

25/07/2006 - 21:18 por Roberto Sanchez | Informe spam
Hola!

Tal vez resulte una pregunta algo sencilla, mas estoy tratando de dar
formato a un Campo Memo (Tabla de Visual FoxPro) de modo que me quede en una
sola linea, lo que deseo es poder quitar los saltos de linea de dicho campo,
lo he intentado, primero pasandolos a una cadena y despues con la propiedad
remove de la cadena quitarlos pero no esta funcionando, aqui pongo parte del
codigo

lcObs = ds.Tables("DatosGen").Rows(lncont).Item("Memo").ToString.Trim

lcObs = lcObs.Replace(Chr(13), " ")


No se si lo este haciendo correctamente o cual sea la mejor manera, es que
al final todo el campo a un archivo de texto pero en l aparte de este campo
no esta funcionado.

por su atencion muchas gracias.
 

Leer las respuestas

#1 Luis Miguel Blanco
26/07/2006 - 07:34 | Informe spam
Hola Roberto

Puedes probar a traspasar tu cadena a un array de tipo Char y recorrer sus
elementos pasándolos a otra cadena resultante.

Durante el recorrido, compruebas mediante el método compartido
Char.IsControl() si se trata de un carácter especial y no lo incluyes en la
cadena resultado. Te acompaño a continuación un pequeño ejemplo ilustrativo:

'/////////////////////
Dim sCadena As String = "prueba con " & ControlChars.CrLf & " salto de línea"
MessageBox.Show(sCadena)

Dim aCaracteres() As Char
aCaracteres = sCadena.ToCharArray()

Dim sCadResultado As String = String.Empty

For Each chrCaracter As Char In aCaracteres
If Not Char.IsControl(chrCaracter) Then
sCadResultado &= chrCaracter
End If
Next

MessageBox.Show(sCadResultado)
'/////////////////////

Espero que te sirva de ayuda.
Un saludo
Luis Miguel Blanco
http://www.dotnetmania.com


"Roberto Sanchez" wrote:

Hola!

Tal vez resulte una pregunta algo sencilla, mas estoy tratando de dar
formato a un Campo Memo (Tabla de Visual FoxPro) de modo que me quede en una
sola linea, lo que deseo es poder quitar los saltos de linea de dicho campo,
lo he intentado, primero pasandolos a una cadena y despues con la propiedad
remove de la cadena quitarlos pero no esta funcionando, aqui pongo parte del
codigo

lcObs = ds.Tables("DatosGen").Rows(lncont).Item("Memo").ToString.Trim

lcObs = lcObs.Replace(Chr(13), " ")


No se si lo este haciendo correctamente o cual sea la mejor manera, es que
al final todo el campo a un archivo de texto pero en l aparte de este campo
no esta funcionado.

por su atencion muchas gracias.



Preguntas similares