>Hola amigos...

Hola, Juanjo.

>Necesito cambiar una cadena de un fichero texto, pero no se
>como se puede hacer, hasta ahora, lo abro, me lo recorro,
>encuentro la cadena , pero......no se como se puede hacer para
>reemplazarla por otra.

Prueba con esta función :


>>>>> INICIO

Public Function FncStrToStr(ByVal strOrigen As String, _
                            ByVal strABuscar As String, _
                            ByVal strSustituta As String) _
                            As String
  '
  ' Función que sustituye en la cadena original (strOrigen), un dato
  ' (strABuscar) por otro (strSustituta).
  ' strOrigen -> cadena original.
  ' strABuscar -> texto a sustituir.
  ' strSustituta -> texto sustitutorio.
  ' Devuelve la cadena resultante después de la sustitución.
  '

  ' Posición inicial del texto a sustituir.
  Dim intPosInicial As Integer

  ' Buscamos la posición inicial.
  intPosInicial = InStr(1, strOrigen, strABuscar)

  If (intPosInicial = 0) Then

    ' No hay ningún texto a sustituir.
    ' Devolvemos el texto original.
    FncStrToStr = strOrigen

  Else

    ' Cadena temporal.
    Dim strTmp As String

    ' Iniciamos el proceso de sustitución.
    ' Asignamos la cadena para trabajar ...
    strTmp = strOrigen
    Do While (intPosInicial <> 0)
      ' Se ha encontrado una nueva copia del texto a sustituir.
      ' Realizamos la sustitución.
      strTmp = Left$(strTmp, intPosInicial - 1) & strSustituta & Mid$(strTmp, (intPosInicial + Len(strABuscar)))
      ' Buscamos una nueva posición inicial.
      intPosInicial = InStr(1, strTmp, strABuscar)
    Loop
    ' Asignamos la cadena resultante.
    FncStrToStr = strTmp

  End If

End Function

>>>>> FINAL

Copiala y pégala en un módulo BAS.

La función es mía, así que si encuentras algún 'bug', te agradecería enormemente que me lo comentaras.
Yo la uso habitualmente y, hasta el momento, siempre ha ido bien.


Saludos.


"Haz esto ante todo; aprende a estar contento" (Séneca)
ORZO, <orzo@orzo.com>