Ayuda con una cadena

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.

Hola Luis:

Muchisimas gracias por tu respuesta, y asi me funciono como pusiste en el
ejemplo, muchisimas gracias, ya me traia algo loco este problema.

Saludos y que tengas un buen dia.
Roberto Sanchez M.

"Luis Miguel Blanco" escribió
en el mensaje news:

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.

Hola Roberto

No hay de qué, celebro que te haya servido de ayuda mi ejemplo 8-)
Un saludo
Luis Miguel Blanco
http://www.dotnetmania.com


"Roberto Sanchez" wrote:

Hola Luis:

Muchisimas gracias por tu respuesta, y asi me funciono como pusiste en el
ejemplo, muchisimas gracias, ya me traia algo loco este problema.

Saludos y que tengas un buen dia.
Roberto Sanchez M.

"Luis Miguel Blanco" escribió
en el mensaje news:
> 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.
>>
>>
>>