13 lines
1.3 KiB
Plaintext
13 lines
1.3 KiB
Plaintext
File.ReadFromCSVFile.ReadCSV CSVFile: $'''C:\\Users\\eeckert\\Scripting\\AssetList.csv''' Encoding: File.CSVEncoding.UTF8 TrimFields: True FirstLineContainsColumnNames: True ColumnsSeparator: File.CSVColumnsSeparator.SystemDefault CSVTable=> AssetList
|
|
SET PathToInvoices TO $'''M:\\IT\\Vendors\\Dell\\01_Invoices'''
|
|
Folder.GetFiles Folder: PathToInvoices FileFilter: $'''*.pdf''' IncludeSubfolders: True FailOnAccessDenied: False SortBy1: Folder.SortBy.CreationTime SortDescending1: True SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> InvoiceFiles
|
|
LOOP FOREACH CurrentItem IN InvoiceFiles
|
|
Pdf.ExtractTextFromPDF.ExtractText PDFFile: CurrentItem.FullName DetectLayout: False ExtractedText=> ExtractedPDFText
|
|
Pdf.ExtractTablesFromPDF.ExtractTablesFromPage PDFFile: CurrentItem.FullName PageNumber: 1 MultiPageTables: True SetFirstRowAsHeader: False ExtractedPDFTables=> ExtractedPDFTables
|
|
IF IsEmpty(ExtractedPDFText) THEN
|
|
NEXT LOOP
|
|
END
|
|
CALL 'Dell Service Tags'
|
|
END
|
|
File.WriteToCSVFile.WriteCSV VariableToWrite: AssetList CSVFile: $'''C:\\Users\\eeckert\\Scripting\\AssetList-Updated.csv''' CsvFileEncoding: File.CSVEncoding.UTF8 IncludeColumnNames: True IfFileExists: File.IfFileExists.Overwrite ColumnsSeparator: File.CSVColumnsSeparator.SystemDefault
|