none
Script de Replace por extenção de arquivos RRS feed

  • Pergunta

  • Ba galera.

    Bom dia

    Por favor, tche necessito de uma ajuda, tenho o script abaixo que efetua um replace caso ele encontre terminados valores tche, porem ele esta pronto pra fazer o processo para um arquivo especifico tche e eu gostaria que ele executa-se o processo por extensão do arquivo tche, por exemplo, eu aponta-se ele para um caminho tche C:\temp e dentro desta pasta todos os .txt fossem lidos para e alterados caso encontra-se os pontos a ser alterado tche.


    obrigado pela ajuda galera.

    código

    strArquivo_Original = "c:\teste.txt"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(strArquivo_Original, 1, false)
    
    Text1=","
    Text2="X"
    Text3="casa"
    
    If objFile.AtEndOfStream Then
    	ReadAllTextFile = ""
    Else
    	ReadAllTextFile = objFile.ReadAll
    End If
    objFile.close
    
    ReadAllTextFile = replace(ReadAllTextFile,Text1,"") 'substitui por ""
    ReadAllTextFile = replace(ReadAllTextFile,Text2,"") 'substitui por ""
    ReadAllTextFile = replace(ReadAllTextFile,Text3,",")'substitui por virgula
    
    Set objFile = objFSO.OpenTextFile(strArquivo_Original, 2, true)
    	objFile.write ReadAllTextFile
    	objFile.Close

    segunda-feira, 7 de julho de 2014 13:57

Respostas

  • Marcelo.

    Veja se isto lhe ajuda.

    Set FSo = CreateObject("Scripting.FileSystemObject")
    
    objStartFolder = "C:\Temp"
    ShowSubFolders FSo.GetFolder(objStartFolder)
    
    Sub ShowSubFolders(Folder)
    Set objFolder = FSo.GetFolder(objStartFolder)
    Set colFiles = objFolder.Files
    	
    For Each objFile in colFiles
    		
    	If objFile.Type = "Documento de Texto" then
    		
    		strOrg = objStartFolder & "\" & objFile.Name
    
    		strArquivo_Original = strOrg
    		
    		Set objFSO = CreateObject("Scripting.FileSystemObject")
    		Set objFile = objFSO.OpenTextFile(strArquivo_Original, 1, false)
    		
    		Text1=","
    		Text2="X"
    		Text3="casa"
    		
    		If objFile.AtEndOfStream Then
    			ReadAllTextFile = ""
    		Else
    			ReadAllTextFile = objFile.ReadAll
    		End If
    		objFile.close
    		
    		ReadAllTextFile = replace(ReadAllTextFile,Text1,"") 'substitui por ""
    		ReadAllTextFile = replace(ReadAllTextFile,Text2,"") 'substitui por ""
    		ReadAllTextFile = replace(ReadAllTextFile,Text3,",")'substitui por virgula
    		
    		Set objFile = objFSO.OpenTextFile(strArquivo_Original, 2, true)
    			objFile.write ReadAllTextFile
    			objFile.Close
    
    	end if
    Next
    
    End sub
    
    MsgBox "concluido"
    wscript.quit


    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI segunda-feira, 7 de julho de 2014 17:29
    segunda-feira, 7 de julho de 2014 14:56

Todas as Respostas

  • Marcelo.

    Veja se isto lhe ajuda.

    Set FSo = CreateObject("Scripting.FileSystemObject")
    
    objStartFolder = "C:\Temp"
    ShowSubFolders FSo.GetFolder(objStartFolder)
    
    Sub ShowSubFolders(Folder)
    Set objFolder = FSo.GetFolder(objStartFolder)
    Set colFiles = objFolder.Files
    	
    For Each objFile in colFiles
    		
    	If objFile.Type = "Documento de Texto" then
    		
    		strOrg = objStartFolder & "\" & objFile.Name
    
    		strArquivo_Original = strOrg
    		
    		Set objFSO = CreateObject("Scripting.FileSystemObject")
    		Set objFile = objFSO.OpenTextFile(strArquivo_Original, 1, false)
    		
    		Text1=","
    		Text2="X"
    		Text3="casa"
    		
    		If objFile.AtEndOfStream Then
    			ReadAllTextFile = ""
    		Else
    			ReadAllTextFile = objFile.ReadAll
    		End If
    		objFile.close
    		
    		ReadAllTextFile = replace(ReadAllTextFile,Text1,"") 'substitui por ""
    		ReadAllTextFile = replace(ReadAllTextFile,Text2,"") 'substitui por ""
    		ReadAllTextFile = replace(ReadAllTextFile,Text3,",")'substitui por virgula
    		
    		Set objFile = objFSO.OpenTextFile(strArquivo_Original, 2, true)
    			objFile.write ReadAllTextFile
    			objFile.Close
    
    	end if
    Next
    
    End sub
    
    MsgBox "concluido"
    wscript.quit


    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI segunda-feira, 7 de julho de 2014 17:29
    segunda-feira, 7 de julho de 2014 14:56
  • Ba Leandrão, obrigado tche ajuda de mais e isto mesmo que estou querendo tche.
    segunda-feira, 7 de julho de 2014 17:30