none
Como copiar parte especifica de linha txt, usando vbscript? RRS feed

  • Pergunta

  • Olá a todos, eu estou iniciando agora uns testes com vbs, e estou travado em uma situação.

    eu quero fazer com que ao abrir o script, ele abra um arquivo txt, leia a linha 6, mas só copie parte dela, por exemplo:

    Arquivo de Configuração do SGI


    [Nome do Servidor]

    servername=localhost
    [Nome do Banco]

    e que copie somente o que estiver na linha 6, a partir do =

    o que uso atualmente para copiar parte do arquivo, e jogar em outro é o script abaixo:

                      


    strNomeArquivo = "C:\ASNSOFTWARE\CONFIG\config.ini"
    strArquivoDiferente = "C:\Users\asnsoftware\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\log.txt"

    Dim fso
    Set fso = CreateObject("Scripting.Filesystemobject")

    If fso.FileExists(strNomeArquivo) Then
      Set obj = fso.OpenTextFile(strNomeArquivo,1,true)
       Set Obj2 = fso.OpenTextFile(strArquivoDiferente,2,True)

      contLinha = 0
      Do While obj.AtEndOfStream = False
          contLinha = contLinha + 1
           linha= obj.ReadLine

           If contlinha = 6 Then 
                 obj2.WriteLine(linha)
           End If  

       Loop


    Else
     MsgBox("Arquivo não encontrado!")
    End If

    desde já, agradeço a quem puder ajudar

    quinta-feira, 19 de março de 2020 13:41

Todas as Respostas

  • Olá, 

    precisa em em .vbs? Se quiser usar como exemplo, eu powershell poderia ser feito assim:

    $arquivo = Get-Content C:\temp\arquivo.txt
    $linha6 = $arquivo[5]
    $ParteLinha6 = $linha6 -replace "servername="

    quinta-feira, 19 de março de 2020 14:52