Este artigo é um artigo espelhado de tradução automática, por favor clique aqui para ir para o artigo original.

Architect_Programmer_Code Rede Agrícola»Arquiteto › Área de Gestão › Sugestões de reclamações › Lixeira › Adicione caracteres em massa antes de cada linha em um arquivo de texto txt
Vista: 6158|Resposta: 0

Adicione caracteres em massa antes de cada linha em um arquivo de texto txt

[Copiar link]
Publicado em 04/02/2015 13:25:21 | | |

'=================================================================
set arg=WScript.Arguments
se arg.count=0 então
msgbox "Usage:"&vbcrlf&vbcrlf&" Não execute esse script diretamente, apenas arraste e solte um ou mais arquivos que precisam ser substituídos por strings nesse arquivo de script.
wscript.quit
fim se
Set FSO=Wscript.createObject("scripting.filesystemObject")
Set FR=FSO.OpenTextFile(Arg(0),1)
Set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Por favor, insira o caractere que você adicionou antes da linha:")
fazer
fw.writeline(data&fr.readline)
Loop até o fr.atendofstream
fr.close
fw.close
Set FR=FSO.OpenTextFile("temp.txt",1)
Set fw=fso.createtextfile(arg(0),2)
fazer
fw.writeline(fr.readline)
Loop até o fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
Copie o conteúdo acima e salve como um arquivo VBS, arraste o documento que você deseja modificar para esse arquivo VBS, você pode inserir os caracteres que deseja adicionar, confirmar após inserir, abrir seu documento e verá que cada linha de seu adicionou os dados que você acabou de inserir.




Anterior:Existem três instruções comuns de inserção SQL
Próximo:Importar o arquivo txt para SQL SERVER 2008

Posts Relacionados
Disclaimer:
Todo software, material de programação ou artigos publicados pela Code Farmer Network são apenas para fins de aprendizado e pesquisa; O conteúdo acima não deve ser usado para fins comerciais ou ilegais, caso contrário, os usuários terão todas as consequências. As informações deste site vêm da Internet, e disputas de direitos autorais não têm nada a ver com este site. Você deve deletar completamente o conteúdo acima do seu computador em até 24 horas após o download. Se você gosta do programa, por favor, apoie um software genuíno, compre o registro e obtenha serviços genuínos melhores. Se houver qualquer infração, por favor, entre em contato conosco por e-mail.
Mail To:help@itsvse.com