none
Localizar determinado valor e mostrar o que esta na frente da linha RRS feed

  • Pergunta

  • Ba galera.

    Bom dia

    Alguém consegue me dar uma ajuda, tenho uma planilha que esta em csv separada por " ; " tche, e necessito coletar a primeira coluna, a 5 e a 9 tche, mas gostaria de coletar estes valores somente se a primeira foi igual a um determinado valor tche.

    usando o script abaixo ele coleta de todas as linhas mas não estou conseguindo colocar a condição, alguém consegue me dar uma força.

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    	sFile = "C:\temp\base.csv"
    
    If oFSO.FileExists(sFile) Then
    	Set oFile = oFSO.OpenTextFile(sFile, 1)
    		Do While Not oFile.AtEndOfStream
    			arrLinha = split(oFile.ReadLine,";")
    			strvar01 = arrLinha(0)
    			strvar02 = arrLinha(4)
    			strvar03 = arrLinha(10)
    			MsgBox strvar01 & " | " & strvar02 & " | " & strvar03
    		Loop
    End If

    Tentei tche usar uma logica que o grande amigo Fabio Jr. passou em um outro post mas não estou conseguindo tche.

    https://social.technet.microsoft.com/Forums/pt-BR/55ac3dc4-aa19-47db-80a2-4936abcef1f1/coleta-o-que-esta-na-frente-somente-do-ultimo-valor?forum=scriptadminpt

    • Editado Marcelo TI segunda-feira, 10 de novembro de 2014 12:53
    segunda-feira, 10 de novembro de 2014 12:51

Respostas

  • Achei simples, talvez eu não tenha entendido bem a sua dúvida. Vc disse que queria pegar a 10ª coluna, se começa do 0 então tem que pegar a 9ª.

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    sFile = "C:\temp\base.csv"
    
    If oFSO.FileExists(sFile) Then
    	Set oFile = oFSO.OpenTextFile(sFile, 1)
    		Do While Not oFile.AtEndOfStream
    			arrLinha = split(oFile.ReadLine,";")
    			strvar01 = arrLinha(0)
    			strvar02 = arrLinha(4)
    			strvar03 = arrLinha(9)
    			
    			if strvar01="determinado valor" then
    				MsgBox strvar01 & " | " & strvar02 & " | " & strvar03
    			end if
    		Loop
    End If


    Fábio de Paula Junior

    • Marcado como Resposta Marcelo TI segunda-feira, 10 de novembro de 2014 16:39
    segunda-feira, 10 de novembro de 2014 15:07
    Moderador

Todas as Respostas

  • Achei simples, talvez eu não tenha entendido bem a sua dúvida. Vc disse que queria pegar a 10ª coluna, se começa do 0 então tem que pegar a 9ª.

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    sFile = "C:\temp\base.csv"
    
    If oFSO.FileExists(sFile) Then
    	Set oFile = oFSO.OpenTextFile(sFile, 1)
    		Do While Not oFile.AtEndOfStream
    			arrLinha = split(oFile.ReadLine,";")
    			strvar01 = arrLinha(0)
    			strvar02 = arrLinha(4)
    			strvar03 = arrLinha(9)
    			
    			if strvar01="determinado valor" then
    				MsgBox strvar01 & " | " & strvar02 & " | " & strvar03
    			end if
    		Loop
    End If


    Fábio de Paula Junior

    • Marcado como Resposta Marcelo TI segunda-feira, 10 de novembro de 2014 16:39
    segunda-feira, 10 de novembro de 2014 15:07
    Moderador
  • Ba o que a falta de atenção e dores de cabeça fazem tche kkk obrigado Fabião, compreendeu sim tche é que eu tentei ir por um caminho nada a ver e esqueci dos ensinamentos básico tche.

    valeu

    segunda-feira, 10 de novembro de 2014 16:39