Partijas fails, lai izvadītu faila nosaukumu uz csv failu

  • Izdevums
  • Risinājums
  • Piezīme

Izdevums

Es meklēju rakstīt Windows partijas failu, kas meklēs fiksētu failu fiksētā mapē (ti, c: folderfile1.csv) un izmantojiet dir komandu, lai izvadītu faila nosaukumu un pēdējo rakstīto datumu otrajam csv failam (ti, c : folderfile2.csv). Izejai jābūt divās kolonnās, un, atverot failu2.csv, tas izskatīsies līdzīgi:

file1.csv 10/14/2008 15:38

Šķiet, ka tā ir diezgan vienkārša partija, bet es cenšos ierobežot savu produkciju tikai ar šiem diviem atribūtiem un ievietot tos pirmajās divās slejās un faila2.csv pirmajā rindā.

Jebkura palīdzība būtu ļoti pateicīga. Paldies!!!

Risinājums

Nepieciešamais skripts ir šāds:

____________________Begin Code__________________

 Dim Filepath Dim Faila nosaukums Dim OutputFile Filepath = "c: tests" "Rediģēt to, lai norādītu filepath Filename =" file1.csv "'Faila nosaukums, kuram nepieciešams pēdējais rediģētais datums / laiks OutputFile =" file2.csv " izejas rezultāti, lai iestatītu objFSO = CreateObject ("Scripting.FileSystemObject") Ja ne objFSO.FileExists (FilePath & OutputFile), tad iestatiet objFile = objFSO.CreateTextFile (Filepath & OutputFile) Wscript.sleep (2000) 'Pauze, kamēr tiek izveidots fails Ja Ja objFSO.FileExists (Filepath & Fileename) tad iestatiet objFile = objFSO.GetFile (Filepath & Fileename) Lastmodifieddate = objFile.DateLastModified Const Rakstīšana = 2 Set outputFile = objFSO.OpenTextFile (Filepath & "file2.csv", ForWriting) 'Atvērt fails OutputFile.Write faila nosaukuma rakstīšanai & ", " & objFile.DateLastModified 'Rakstiet faila nosaukumu un pēdējo modificēto datumu izejas failam OutputFile.Close End Ja iestatīts objFSO = Nothing 

____________________End Code__________________

Trīs mainīgos, filepath, faila nosaukumu un izejas failu, kas ir izveidoti 5., 6. un 7. rindā, var mainīt, lai paņemtu jebkuru norādīto ceļu un faila nosaukumu, un izveidos failu 7. rindā uz tā paša ceļa.

Ja šo kodu saglabājat kā test.vbs failu, tad jūsu partijas failā būs jāievada rinda "Call test.vbs". Acīmredzot, ja maināt vbs faila nosaukumu, jums būs jāmaina atsauce uz to sērijveida failā.

Piezīme

Paldies Swarve par šo padomu forumā.

Iepriekšējais Raksts Nākamais Raksts

Top Padomi