Resumen de mensajes de la lista

http-equiv=Content-Type>

Hola:

como usuario de CLipper desde
hace mucho tiempo, tuve la imperiosa necesidad de tener una función
parecida, espero que te sirva aunque carece de control de parámetros, de
resultados, etc, es de "andar por casa", así que si la quieres
perfeccionar, puedes empezar depurando los argumentos de llamada,
etc.

' busca y sustituye expresiones en una
cadena
' strtran(cadena, tira_buscada, tira_a_sustituir)
'
strtran(cadena, "ab", "cd")
' cadena =
"abdlfjkjab"   = "cddljfkjcd"
Public Function
StrTran(Cadena As String, Buscar As String, Sustituir As String, Optional Veces
As Variant) As String
   Dim Contador As Integer

Dim Resultado As String
   Dim Cambios As Integer


   Resultado = ""
   Cambios =
0

   For Contador = 1 To
Len(Cadena)
      If Mid(Cadena, Contador,
Len(Buscar)) = Buscar Then

Resultado = Resultado &
Sustituir
         If Len(Buscar)
> 1
Then

Contador = Contador + Len(Buscar) -
1
         End
If


         ' si se especifica un
nº de cambios
determinados
         If Not
IsMissing(Veces)
Then

Cambios = Cambios +
1
            If
Cambios = Veces
Then

Resultado = Resultado & Mid(Cadena, Contador +
1)

Exit For

End If
         End
If
         If Len(Buscar) > 1
Then

Contador = Contador + Len(Buscar) -
1
         End
If

Else
         Resultado = Resultado
& Mid(Cadena, Contador, 1)
      End
If
   Next

   StrTran =
Resultado
End Function

hasta otra,

Eduardo Fórneas
E-Mail: href="mailto:eforneas@arrakis.es">eforneas@arrakis.es
P.P...: href="http://www.arrakis.es/~eforneas">http://www.arrakis.es/~eforneas
ICQ...:
10564190

style="BORDER-LEFT: #000000 solid 2px; MARGIN-LEFT: 5px; PADDING-LEFT: 5px">

-----Original Message-----
De:
    Tuesta, Gabriel <     href="mailto:GTuesta@BCOLATINO.COM.PE">GTuesta@BCOLATINO.COM.PE>
Para:
    'Lista Visual Basic' <     href="mailto:vb-esp@ccc.uba.ar">vb-esp@ccc.uba.ar>
Fecha:
    viernes 22 de mayo de 1998 18:50
Asunto: (VB-ESP) Equivalente
    a STRTRAN de Fox

Hola again

Conoce alguno de Uds.
    una sentencia en VB equivalente al STRTRAN en foxpro
me explico
en
    fox ?strtran('CADENAX','X',' ')
lo que hace este comando es buscar
    las X en la cadena CADENAX y las
reemplaza por ' ' ( un espacio en
    blanco).
HELP ME PLEASE

Gabriel

From ???@??? Sun May 31 15:43:30 1998
X-Sender: jrubi@pop.arrakis.es
X-Mailer: QUALCOMM Windows Eudora Pro Version 3.0.5 (32)
Date: Wed, 27 May 1998 07:19:28 +0200
To: vb-esp@ccc.uba.ar
From: José Rubí de la Vega <jrubi@arrakis.es>
Subject: Re: (VB-ESP) Ajustar números a la derecha
Sender: vb-rec@ccc.uba.ar
Reply-To: vb-esp@ccc.uba.ar

>yo quiero esto:
>
> 123,456
> 215
> 1,000
>
>y con format (variable,"###,###") no me ajusta los numero que no llegan
>a mil.
>
>con format (variable,"@@@,@@@") no me gusta nada como queda.
>
prueba con format$(format$(variable,"###,###"),"@@@@@@@")

Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma
ICQ # : 10939566

Equivalente a STRTRAN de Fox