Abrir un archivo txt y eliminar saltos de línea y de párrafo desde script .vbs sin usar controles que requieran licencia.

¿Probaste a meter el mismo código dentro de un módulo de access, para no depender del archivo externo?

Por lo que veo, es muy probable que te funcione sin hacerle ningún "apaño", más allá de indicarle la ruta del archivo en .InitDir = "P:\XXX\APLICACION_XXX\"

Un saludo.

Estas son las líneas que has de utilizar:

set fso = createobject("scripting.filesystemobject")
Set oComDlg = CreateObject("MSComDlg.CommonDialog")
With oComDlg
.DialogTitle = "Select text file"
.MaxFileSize = 10000
.Filter = "TXT|*.TXT|"
.FileName ="ARCHIVO_PARA_ARREGLAR.TXT"
.InitDir = "P:\XXX\APLICACION_XXX\"
.ShowOpen
sFile = Replace(.FileName, "Select File./", "")
End With
Data=fso.OpenTextFile(sFile, 1).ReadAll
rChar= trim(InputBox("Qué carácter ..","Replace Character",cashe, 100, 100))
Input=replace(data,vbcrlf,rChar)
Set Data=nothing
Set fFile= fso.CreateTextFile(sFile, True)
fFile.writeLine Input
fFile.close
Set fFile=nothing
set fso=nothing

Y recuerda dimensionar las variables antes (Dim fso As Scripting.FileSystemObject...)

¡Gracias! Lo voy a probar de inmediato ya que me hace muchísima falta resolver el problema pues tengo un proyecto parado desde hace una semana por culpa de este tema de licencias. Muchísimas gracias... ahora mismo pongo manos a la obra metiéndolo en un módulo. Pruebo y comento...

Lo he probado metiéndolo en un módulo, uso el Access 2000 y INPUT o instrucciones de apertura de fichero "no lo quiere".. estoy intentando cambiar input por otra instrucción para trabajar con ficheros y en ello estoy, pero el código tal cual no me funciona. Me sale error ( texto en rojo ) en las siguientes lineas:

Input=replace(data,vbcrlf,rChar)

fFile.writeLine Input

Hay una circunstancia que no he comentado. El archivo txt que tengo que arreglar es el resultado de la unión de docenas de archivos txt más pequeños. La unión de estos txt es por operativo mediante un archivo por lotes batch que ejecuta varios procesos con carpetas y archivos y entre ellos el de copiar todos en uno (copy *.txt  ARCHIVO_PARA_ARREGLAR.TXT) y se me ocurre que quizás la solución estaría NO en arreglar este fichero txt final sino el ejecutar la unión de los txt pequeños desde access y de alguna forma desde access evitar que se vayan incluyendo estas lineas en blanco y esos saltos de parrafos. Si la intranet no me deja usar objetos VB sin licencia y tampoco logro motar el módulo, ves otra solución?.  Te agradezco cualquier sugerencia porque aunque parezca algo tonto este tema me tiene totalmente parado.

Saludos y de nuevo gracias

Creo que tienes un concepto erróneo: Input no es una instrucción, es una variable (entiendo que debería ser de texto), a la que le pasas un valor (el resultado de las operaciones de reemplazar el contenido de la variable "data" (también de texto) mediante la función Replace().

Yo al no tener el archivo no puedo hacer pruebas, por lo que sólo te puedo dar "ideas al vuelo".

Lo que comentas de cargar los distintos txt individuales te podría servir. Veo dos opciones:

1º/ importar directamente a la tabla de destino cada txt

2º/ importar a una tabla temporal los txt y luego anexarlos a la tabla definitiva.

Por aportar otra forma de trabajar, esta mañana vi una pregunta que te puede servir: Necesito crear un .bat para buscar un carácter dentro de un .txt y poder modificar o remplazarlo

Ya me dirás.

Saludos!

Ah! Encontré el problema! "Input" es una palabra reservada en VBA, si la cambias por otro nombre (en las dos líneas que te marca en rojo), por ejemplo vInput, te podría funcionar.