Archivo de texto en VBA: Abrir/Buscar Reemplazar/Guardar como/Cerrar archivo

¿Por qué involucrar el Bloc de notas?

Sub ReplaceStringInFile()

Dim sBuf As String
Dim sTemp As String
Dim iFileNum As Integer
Dim sFileName As String

' Edit as needed
sFileName = "C:\Temp\test.txt"

iFileNum = FreeFile
Open sFileName For Input As iFileNum

Do Until EOF(iFileNum)
    Line Input #iFileNum, sBuf
    sTemp = sTemp & sBuf & vbCrLf
Loop
Close iFileNum

sTemp = Replace(sTemp, "THIS", "THAT")

iFileNum = FreeFile
Open sFileName For Output As iFileNum
Print #iFileNum, sTemp
Close iFileNum

End Sub

Supongo que llego demasiado tarde...

Encontré el mismo problema hoy; aquí está mi solución usando FileSystemObject:

Dim objFSO
Const ForReading = 1
Const ForWriting = 2
Dim objTS 'define a TextStream object
Dim strContents As String
Dim fileSpec As String

fileSpec = "C:\Temp\test.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(fileSpec, ForReading)
strContents = objTS.ReadAll
strContents = Replace(strContents, "XXXXX", "YYYY")
objTS.Close

Set objTS = objFSO.OpenTextFile(fileSpec, ForWriting)
objTS.Write strContents
objTS.Close

Solo agrega esta línea

sFileName = "C:\someotherfilelocation"

Justo antes de esta línea

Open sFileName For Output As iFileNum

La idea es abrir y escribir en un una experiencia diferente archivo que el que leyó antes (C:\filelocation).

Si desea ser elegante y mostrar un cuadro de diálogo real "Guardar como", puede hacer esto en su lugar:

sFileName = Application.GetSaveAsFilename()

He tenido el mismo problema y encontré este sitio.

la solución simplemente establecer otro "nombre de archivo" en el

... para salida como ... comando fue muy simple y útil.

además (más allá del cuadro de diálogo Application.GetSaveAsFilename())

es muy simple establecer un ** nuevo nombre de archivo ** simplemente usando

La reemplazar comando, por lo que puede cambiar el nombre de archivo/extensión

p.ej. (a partir del primer mensaje)

sFileName = "C:\filelocation"
iFileNum = FreeFile

Open sFileName For Input As iFileNum
content = (...edit the content) 

Close iFileNum

ahora solo configura:

newFilename = replace(sFilename, ".txt", ".csv") para cambiar la extensión

or

newFilename = replace(sFilename, ".", "_edit.") para un nombre de archivo diferente

y luego como antes

iFileNum = FreeFile
Open newFileName For Output As iFileNum

Print #iFileNum, content
Close iFileNum 

Navegué más de una hora para descubrir cómo cambiar el nombre de un archivo txt,

con muchas soluciones diferentes, pero podría ser tan fácil :)

Este código abrirá y leerá líneas de un archivo de texto completo. Esa variable "ReadedData" contiene la línea de texto en la memoria.

Open "C:\satheesh\myfile\Hello.txt" For Input As #1

do until EOF(1)   

       Input #1, ReadedData
loop**