Preencher coluna (arquivo TXT)

Question

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,[e-mail],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

Answer 1

conta a quantidade total de caracteres no texto

e depois faça um loop com caracter por caracter

depois que contar a oitava virgula verifique qual a condição e coloca a palavra

dim tot as integer = texto.lenght ' conta o total de palavras

---

Laercio Tersi