none
Comprar linhas de um TXT - VB.NET ou VBScript RRS feed

  • Pergunta

  • Pessoal,

    Estou precisando comparar linhas dentro em um txt.

    Se o codigo do produto for igual em duas ou mais linhas do arquivo ele concatena e soma estas linhas e gera uma única linha em um outro arquivo com o total de linhas encontradas.
    quarta-feira, 28 de outubro de 2009 18:03

Respostas

  • Olá,

    Dá uma olhada no script abaixo:


    Dim arrFile1(), arrFile2()
    i = 0
    j = 0

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'VARIAVEIS QUE PRECISAM SER ALTERADAS ATENÇAO: PRECISA EXISTIR OS 3 ARQUIVOS
    Set objFile1 = objFSO.OpenTextFile("C:\arquivo1.csv", 1)
    Set objFile2 = objFSO.OpenTextFile("C:\arquivo2.csv", 1)
    strFile3 = "c:\arquivo3.csv"

    Do Until objFile1.AtEndOfStream
         Redim Preserve arrFile1(i)
         arrFile1(i) = objFile1.ReadLine
         i = i + 1
    Loop
    Do Until objFile2.AtEndOfStream
         Redim Preserve arrFile2(j)
         arrFile2(j) = objFile2.ReadLine
         j = j + 1
    Loop

    objFile1.Close
    objFile2.Close

    For l = Lbound(arrFile1) to UBound(arrFile1) Step 1
        SeparaLinha1 = split(arrFile1(l),";")
        For m = Lbound(arrFile2) to UBound(arrFile2) Step 1
                SeparaLinha2 = split(arrFile2(m),";")
            if separalinha1(0) = separalinha2(0) Then
            Set objNewFile = objFSO.OpenTextFile(strFile3, 8, True, 0)
            objNewFile.WriteLine arrFile1(l)
            objNewFile.Close
            End if
        Next
    Next






    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    quarta-feira, 28 de outubro de 2009 18:57