VBScript to loop through all files in a folder

by

Maybe this will clear things up. (Or confuse you more, )

Const ForReading = 1
Const ForWriting = 2

sFolder = "H:\Letter Display\Letters\"
Set oFSO = CreateObject("Scripting.FileSystemObject")

For Each oFile In oFSO.GetFolder(sFolder).Files
  If UCase(oFSO.GetExtensionName(oFile.Name)) = "LTR" Then
    ProcessFiles oFSO, oFile
  End if
Next

Set oFSO = Nothing


Sub ProcessFiles(FSO, File)

Set oFile2 = FSO.OpenTextFile(File.path, ForReading)

 str1000 = "1000"
 str1100 = "1100"
 str1200 = "1200"
 str9990 = "9990"

 arrCommas1 = Array(14,31,41,59,70,81,101,111,124,138)
 arrCommas2 = Array(14,31,41,55,79,144,209,274,409,563,589,608,623)
 arrCommas3 = ArraY  (14,32,41,73,83,97,106,156,167,184,188,195,207,260,273,332,368,431,461,472,593,617,666,772,810,834,848,894,898)
 arrCommas4 = Array(14,31,41)

     Do Until oFile2.AtEndOfStream
       strLine = oFile2.ReadLine

       If Left(strLine, 4) = str1000 then
         intLength = Len(strLine)
         For Each strComma in arrCommas1
           strLine = Left(strLine, strComma - 1) + "," _
             + Mid(strLine, strComma, intLength)
         Next
       End If

       If Left(strLine, 4) = str1100 then
         intLength = Len(strLine)
         For Each strComma in arrCommas2
           strLine = Left(strLine, strComma - 1) + "," _
             + Mid(strLine, strComma, intLength)
         Next
       End If

      If Left(strLine, 4) = str1200 then
         intLength = Len(strLine)
         For Each strComma in arrCommas3
           strLine = Left(strLine, strComma - 1) + "," _
             + Mid(strLine, strComma, intLength)
         Next
       End If

      If Left(strLine, 4) = str9990 then
         intLength = Len(strLine)
         For Each strComma in arrCommas4
           strLine = Left(strLine, strComma - 1) + "," _
             + Mid(strLine, strComma, intLength)
         Next
       End If

       strText = strText & strLine & vbCrLf
     Loop

     sFile = File.path
     oFile2.close
     set oFile2 = Nothing

     Set File = FSO.OpenTextFile(sFile ,  ForWriting)
     File.Write strText
     File.Close
     Set File = Nothing

 end sub

More Related Contents:

  1. Is there a way to find the length of a string in Batch/PowerShell Script/VBScript? [closed]
  2. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  3. What’s the most robust way to efficiently parse CSV using awk?
  4. Dealing with commas in a CSV file
  5. Is it possible to embed and execute VBScript within a batch file without using a temporary file?
  6. Properly escape a double quote in CSV
  7. Is there a way to include commas in CSV columns without breaking the formatting?
  8. csv to array in d3.js
  9. How to properly escape a double quote in CSV?
  10. Can you encode CR/LF in into CSV files?
  11. What MIME type should I use for CSV?
  12. Encoding Error in Panda read_csv [duplicate]
  13. Spark dataframe save in single file on hdfs location [duplicate]
  14. Running Microsoft Access as a Scheduled Task
  15. How to export a Hive table into a CSV file?
  16. Merging multiple CSV files into one using PowerShell
  17. VBscript code to capture stdout, without showing console window
  18. Convert xlsx file to csv using batch
  19. Batch file to split .csv file
  20. Reading csv files with quoted fields containing embedded commas
  21. Parse a csv using awk and ignoring commas inside a field
  22. Passing-variable-from-vbscript-to-batch-file with arguments
  23. How to check encoding of a CSV file
  24. How do I use awk under cygwin to print fields from an excel spreadsheet?
  25. How to call Run() with parameters
  26. Sort CSV file by multiple columns using the “sort” command
  27. Export as csv in beeline hive
  28. CodedUI test does not read data from CSV input file
  29. CSV with comma or semicolon?
  30. Import CSV into google cloud datastore

Leave a Comment