Пакетний файл для виведення файлу в файл 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 за цей відгук на форумі.

Попередня Стаття Наступна Стаття

Кращі Поради