DataMystic

Code: Select all

Выбор полей CSV:CSV поле 11 .. поле 11
|  [X] Process fields individually
|    [X] Exclude delimiter
|      [X] Exclude quotes (if present)
|  Delimiter Type: 2
|  Custom delimiter: 
|  [X] Has Header
|
|--Comment...
|     The following pattern match removes any quotes surrounding the filename, and also removes the trailing comma, if any
|   
|--** БЛОКИРОВАНО ** Схема ["?([^",]*)"?,?] с [$1]
|     [ ] С учетом регистра
|     [ ] Полное слово
|     [ ] Замена с учетом регистра
|     [ ] Подсказка для замены
|     [ ] Без подсказки если идентично
|     [ ] Только первое
|     Максимальный размер буфера текста 4096
|   
+--VBScript сценарий  Длительность: 10000 миллисекунд
      'Read in a file specified in a field
      
      Const OpenFileForReading = 1 
      Dim fso, TextStream
      
      function processLine(line, EOL)
      
        Dim fileContents
        Dim filename
      
        filename = "e:\444\edu\" & line
      
        'ignore the error if the file is not found
        on error resume next
        fileContents = "** " & filename & " was not found **"
      
        'read what's in the file
        Set TextStream = fso.OpenTextFile( filename, _
          OpenFileForReading)
        fileContents = TextStream.ReadAll
        TextStream.close
      
        processLine = fileContents & EOL
      
      end function
      
      
      'Called at the start of a processing job -
      'perform one-time initialisation here
      sub startJob()
        Set fso = CreateObject("Scripting.FileSystemObject")
      end sub
      
      
      'Called at the end of a processing job -
      'destroy any declared objects here
      sub endJob()
        'do nothing
      end sub
      
      
      'Called before each file is opened -
      'perform per-file initialisation here
      function startFile()
        startFile = ""
      end function
      
      
      'Called before each file is closed -
      'flush all pending file output here
      function endFile()
        endFile = ""
      end function
    

Code: Select all

'Read in a file specified in a field

Const OpenFileForReading = 1 
Dim fso, TextStream

function processLine(line, EOL)

  Dim fileContents
  Dim filename

  filename = "c:\" & line

  'ignore the error if the file is not found
  on error resume next
  fileContents = "** " & filename & " was not found **"

  'read what's in the file
  Set TextStream = fso.OpenTextFile( filename, _
    OpenFileForReading)
  fileContents = TextStream.ReadAll
  TextStream.close

  processLine = fileContents & EOL

end function


'Called at the start of a processing job -
'perform one-time initialisation here
sub startJob()
  Set fso = CreateObject("Scripting.FileSystemObject")
end sub


'Called at the end of a processing job -
'destroy any declared objects here
sub endJob()
  'do nothing
end sub


'Called before each file is opened -
'perform per-file initialisation here
function startFile()
  startFile = ""
end function


'Called before each file is closed -
'flush all pending file output here
function endFile()
  endFile = ""
end function