Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Comportamiento extraño Sub

08/04/2007 - 17:50 por J. Enrique Alcaraz | Informe spam
Ayuda Hacer una pregunta
Hola:

El caso es que quiero hacer un Replace para transformar texto
-
Dim strTexto
strTexto = Recordset.Fields.Value (Siempre está referido a un campo que
contiene texto)
If strTexto <> "" Then
strTexto = Replace ( strTexto, chr (13), "")
strTexto = Replace ( strTexto, chr (10), "<br>")
strTexto = Replace ( strTexto, chr (241), "&ntilde;")
End If
-

Cuando lo hago así "a mano" funciona siempre perfectamente, pero cuando lo
convierto en un sub para poder aplicarlo a otros textos unas veces funciona
y otras no.

El Sub sería algo así como
-
Sub TextoAdaptado (Texto)
Texto = Replace ( Texto, chr (13), "")
Texto = Replace ( Texto, chr (10), "<br>")
Texto = Replace ( Texto, chr (241), "&ntilde;")
End Sub

TextoAdaptado strTexto
-

¿Qué puede estar pasando para que unas veces funcione y otras no?

Agradeceré a quien me pueda orientar.

Saludos al grupo.
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Nuno Santos
08/04/2007 - 23:16 | Informe spam
Para que te funcione, y como es una sub, el parameter Texto tiene que ser
byRef, otra solucíon es en ves de ser na sub, ser una función, y esta
retornar el texto yá con los replaces...

Nuno Santos

"J. Enrique Alcaraz" <alcarazQUITARarrobaESTOranpuntoes> escreveu na
mensagem news:
Hola:

El caso es que quiero hacer un Replace para transformar texto
-
Dim strTexto
strTexto = Recordset.Fields.Value (Siempre está referido a un campo que
contiene texto)
If strTexto <> "" Then
strTexto = Replace ( strTexto, chr (13), "")
strTexto = Replace ( strTexto, chr (10), "<br>")
strTexto = Replace ( strTexto, chr (241), "&ntilde;")
End If
-

Cuando lo hago así "a mano" funciona siempre perfectamente, pero cuando lo
convierto en un sub para poder aplicarlo a otros textos unas veces
funciona y otras no.

El Sub sería algo así como
-
Sub TextoAdaptado (Texto)
Texto = Replace ( Texto, chr (13), "")
Texto = Replace ( Texto, chr (10), "<br>")
Texto = Replace ( Texto, chr (241), "&ntilde;")
End Sub

TextoAdaptado strTexto
-

¿Qué puede estar pasando para que unas veces funcione y otras no?

Agradeceré a quien me pueda orientar.

Saludos al grupo.




Preguntas similares

 

Busqueda sugerida :