Mensaje enviado por "JANO" <jano@cmactacna.com.pe>

Esta funcion viene solo en VB6...

tienes que hacerte una funcion aca te mando uan funcion que puede servirte

Function ReemplazaTodo(sText As String, sCad1 As String, sCad2 As String) As String

  Dim lPtr, X As String
  Do
    lPtr = InStr(sText, sCad1)
    If lPtr Then sText = Left$(sText, lPtr - 1) & sCad2 & Mid$(sText, Len(sCad1) + lPtr)
  Loop Until lPtr = 0
  ReemplazaTodo = sText
End Function


la utilizas asi:

Text2.Text = ReemplazaTodo(Text1.Text, CRLF, " ")

donde CRLF = Chr(13) & Chr(10)


saludos JANO

----- Original Message -----
From: Jorge Rubén Micheli <idcsec@infovia.com.ar>
To: <visualbasic-esp@yahoogroups.com>
Sent: Wednesday, September 19, 2001 2:09 PM
Subject: RE: (VB-ESP) Eliminar retornos de carro y espacios dentro de un campo de texto.


> No me funciona la funcion replace!!!
>
> Tengo VB5 Profesional. Como puedo hacer para activarla / instalarla!!!.
>
>
> Saludos