elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Temas
Páginas: [1]
1  Programación / Scripting / Leer txts de carpeta reemplazar puntos por comas en: 13 Octubre 2020, 03:49 am
Tengo una carpeta donde cada lapso de tiempo me aparecen 5 archivos .txt provenientes de un proceso externo ( ej.: MES_10102020.txt, TRIMESTRE_2020.txt, SEMESTRE.txt) todos tienen un prefijo mas la fecha. Debo abrirlos, reemplazar los puntos por comas. Lo ideal sería no tener q cargar librerias, quizas hacerlo con vbscript pero me esta costando encontrar info. Logre armar un bat con parametros que ejecuta el vbs y reemplaza los caracteres , pero tengo que cambiarle el nombre del archivo y la idea es que el 1er proceso lea la carpeta y aplique a todos los archivos txt de la misma.

Esto es lo que hice :

If WScript.Arguments.Count <> 3 then
    WScript.Quit
end If

Reemplazar WScript.Arguments.Item(0), WScript.Arguments.Item(1), WScript.Arguments.Item(2)
function Reemplazar(strFile, strFind, strReplace)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objInputFile = objFSO.OpenTextFile(strFile,1)
    strTempDir = objFSO.GetSpecialFolder(2)
    Set objTempFile = objFSO.OpenTextFile(strTempDir & "\temp.txt",2,true)
    do until objInputFile.AtEndOfStream
     objTempFile.WriteLine(Replace(objInputFile.ReadLine, strFind, strReplace))
    loop
    objInputFile.Close
    Set objInputFile = Nothing
    objTempFile.Close
    Set objTempFile = Nothing
    objFSO.DeleteFile strFile, true
    objFSO.MoveFile strTempDir & "\temp.txt", strFile
    Set objFSO = Nothing
end function

A esto lo llamo con un bat :

reemplazar.vbs MES10102020.txt" "." ","

Pero necesito algo que lea todos los archivos , los procese y los guarde con la modificacion. El equipo es un virtual con xp.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines