none
Mudar data em arquivo de texto. RRS feed

  • Pergunta

  • Bom dia colegas.

    Estou iniciando em programação em vbs e gostaria de auxilio para o seguinte caso:

    Preciso alterar o conteudo do texto   " <beginDate4>2011-08-07T10:32:06.421875 "

    O trecho que preciso mudar é 2011-08-07 que corresponde a uma data, no formato YYYY-MM-DD

    A função é a seguinte: toda vez que eu rodar o script, ele vai pegar o trecho citado e mudar para a data atual do meu relógio, lembrando que o trecho será diferente em cada acesso, já que ele mudará sempre pra data atual no acesso anterior.

    Espero que tenha sido claro e que alguém possa ajudar.

     

    OBS: Quem puder me indicar bons sites ou livro para estudo, fico no aguardo, pois estou com dificuldades de encontrar um "abc" ou "caminho das pedras" para vbs.

     

    Obrigado.

    domingo, 14 de agosto de 2011 16:04

Respostas

  • Bom dia Marcelinho,

    Segue script que nosso amigo Fabio Jr mandou em outro post alterado para sua necessidade.

    http://social.technet.microsoft.com/Forums/pt/scriptadminpt/thread/2d73b3b2-e0de-4224-9432-34ae78d36582
    Pesquisar é sempre uma boa pratica.

    strArquivo_Original = InputBox("Caminho + Nome do Arquivo", "Edson Matias Fagundes Junior - Replace Date")
    strArquivo_Novo = InputBox("Caminho + Nome do Arquivo Temporario", "Edson Matias Fagundes Junior - Replace Date")
    
    strProcurada = InputBox("Digite a data à Procurar", "Edson Matias Fagundes Junior - Replace Date")
    stryear = year(Now())
    strmonth = Month(Now())
    strday = Day(Now())
    strNova = stryear & "-" & strmonth & "-" & strday
    
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile_Original = objFSO.OpenTextFile(strArquivo_Original, 1)
    Set objFile_Novo = objFSO.CreateTextFile(strArquivo_Novo)
    
    
    Do Until objFile_Original.AtEndOfStream
    
     strLinha = objFile_Original.ReadLine
    
     objFile_Novo.writeline replace(strLinha,strProcurada,strNova)
    
    Loop
    
    
    objFile_Original.Close
    objFile_Novo.Close
    
    objFSO.Deletefile strArquivo_Original
    objFSO.MoveFile strArquivo_Novo , strArquivo_Original
    MsgBox("Substituição concluida com Sucesso")
    
    

    Espero ajudar

    Abraços


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    segunda-feira, 15 de agosto de 2011 11:39

Todas as Respostas

  • Bom dia Marcelinho,

    Segue script que nosso amigo Fabio Jr mandou em outro post alterado para sua necessidade.

    http://social.technet.microsoft.com/Forums/pt/scriptadminpt/thread/2d73b3b2-e0de-4224-9432-34ae78d36582
    Pesquisar é sempre uma boa pratica.

    strArquivo_Original = InputBox("Caminho + Nome do Arquivo", "Edson Matias Fagundes Junior - Replace Date")
    strArquivo_Novo = InputBox("Caminho + Nome do Arquivo Temporario", "Edson Matias Fagundes Junior - Replace Date")
    
    strProcurada = InputBox("Digite a data à Procurar", "Edson Matias Fagundes Junior - Replace Date")
    stryear = year(Now())
    strmonth = Month(Now())
    strday = Day(Now())
    strNova = stryear & "-" & strmonth & "-" & strday
    
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile_Original = objFSO.OpenTextFile(strArquivo_Original, 1)
    Set objFile_Novo = objFSO.CreateTextFile(strArquivo_Novo)
    
    
    Do Until objFile_Original.AtEndOfStream
    
     strLinha = objFile_Original.ReadLine
    
     objFile_Novo.writeline replace(strLinha,strProcurada,strNova)
    
    Loop
    
    
    objFile_Original.Close
    objFile_Novo.Close
    
    objFSO.Deletefile strArquivo_Original
    objFSO.MoveFile strArquivo_Novo , strArquivo_Original
    MsgBox("Substituição concluida com Sucesso")
    
    

    Espero ajudar

    Abraços


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    segunda-feira, 15 de agosto de 2011 11:39
  • Ola Marcelinho como vai?

    Conseguiu testar o Script tem alguma duvida, funcionou?

     

    Abraços


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    segunda-feira, 22 de agosto de 2011 23:41