Пакетний файл для виведення файлу в файл csv
- Проблема
- Рішення
- Примітка
Проблема
Я шукаю, щоб написати пакетний файл Windows, який буде шукати фіксований файл у фіксованій папці (тобто c: folderfile1.csv) і використовувати команду dir для виведення імені файлу і останньої написаної дати на другий файл csv (тобто c : folderfile2.csv). Вихідні дані повинні бути у двох стовпцях і виглядатимуть приблизно так, коли ви відкриваєте файл2.csv:
file1.csv 10/14/2008 15:38
Це здається досить простою партією, але я намагаюся обмежити виведення лише для цих двох атрибутів і розмістити їх у перших двох стовпцях і першому рядку file2.csv
Будь-яка допомога буде дуже вдячна. Дякую!!!
Рішення
Потрібний вам сценарій:
____________________ Початковий код __________________
Dim Filepath Dim Filename Dim OutputFile Filepath = "c: test" "Відредагуйте це, щоб вказати шлях до файлу Filename =" file1.csv "'Ім'я файлу, який потрібний для останнього редагування дати / часу OutputFile =" file2.csv "' Файл вивести результати до Set objFSO = CreateObject ("Scripting.FileSystemObject") Якщо не objFSO.FileExists (FilePath & OutputFile), то встановіть objFile = objFSO.CreateTextFile (Filepath & OutputFile) Wscript.sleep (2000) 'Пауза, коли файл створюється Якщо If objFSO.FileExists (Filepath & Filename), то встановіть objFile = objFSO.GetFile (Filepath & Filename) Lastmodifieddate = objFile.DateLastModified Const ForWriting = 2 Встановіть outputFile = objFSO.OpenTextFile (Filepath & "file2.csv", ForWriting) 'Відкрити Файл для запису OutputFile.Write Filename & ", " & objFile.DateLastModified "Написати ім'я файлу та дату останньої зміни для виведення файлу OutputFile.Close End Якщо встановлено objFSO = Ніщо
____________________Наступний Код __________________
Три змінні, шлях до файлу, ім'я файлу і вихідний файл, встановлені на рядках 5, 6 і 7, можуть бути змінені, щоб підібрати будь-який шлях і ім'я файлу, які ви вкажете, і створить файл на рядку 7 на тому ж шляху.
Якщо ви збережете цей код як файл test.vbs, то у вашому пакетному файлі вам потрібно буде ввести рядок "Call test.vbs". Очевидно, якщо ви зміните назву файла vbs, вам потрібно буде змінити посилання на нього у вашому пакетному файлі.
Примітка
Завдяки Swarve за цей відгук на форумі.