Boa tarde!
Prezados,
abaixo segue um script que realiza a substituição do ";" para ","
strArquivo_Original = "TESTE.csv"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strArquivo_Original, 1, false)
var1=";"
If objFile.AtEndOfStream Then
ReadAllTextFile = ""
Else
ReadAllTextFile = objFile.ReadAll
End If
objFile.close
ReadAllTextFile = replace(ReadAllTextFile,var1,",") 'substitui por ","
Set objFile = objFSO.OpenTextFile(strArquivo_Original, 2, true)
objFile.write ReadAllTextFile
objFile.close
O que gostaria de implementar é:
Ler linha por linha, e em uma determinada coluna onde são separados por , inserir uma determinada palavra.
A condição é: Caso apos a oitava virgula não existir nada, colocar o texto "NO_MANAGER" caso contrario pular para a proxima linha e realizar a verficação.
Exemplo do arquivo:
STATUS,USERID,USERNAME,FIRSTNAME,LASTNAME,MI,GENDER,EMAIL,MANAGER,HR,DIVISION,DEPARTMENT,LOCATION,JOBCODE,TIMEZONE,HIREDATE,EMPID,TITLE,BIZ_PHONE,FAX,ADDR1,ADDR2,CITY,STATE,ZIP,COUNTRY,REVIEW_FREQ,LAST_REVIEW_DATE,CUSTOM01,CUSTOM02,CUSTOM03,CUSTOM04,CUSTOM05,CUSTOM06,CUSTOM07,CUSTOM08,CUSTOM09,CUSTOM10,CUSTOM11,CUSTOM12,CUSTOM13,CUSTOM14,CUSTOM15,MATRIX_MANAGER,DEFAULT_LOCALE,PROXY,CUSTOM_MANAGER,SECOND_MANAGER
INACTIVE,11122233345,11122233344,BRUNO SCHMIDT,,,M,bruno.schmidt@fallgatter.com.br,NO_MANAGER,99999999999,,,1.20.20.01,2055,America/Sao_Paulo,12/20/1976,,GERENTE COMERCIAL,,,,,GRAVATAI,RS,,BRA,,,Ensino Fundamental Completo,,,,,,,,,,,,,,,,pt_BR,,,
Abraços, Julio Malliotti