none
Preencher coluna (arquivo TXT) RRS feed

  • Pergunta

  • 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

    quinta-feira, 21 de agosto de 2014 19:54

Todas as Respostas

  • 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

    • Sugerido como Resposta Tersi sábado, 6 de setembro de 2014 19:36
    sábado, 6 de setembro de 2014 19:10