acrescentar às janelas do txt

Question

Quero anexar pequenos trechos de texto a arquivos txt.

Se alguém tiver um sistema para isso, sinta-se à vontade para postá-lo. Estou tentando criá-lo.

No link , houve uma discussão sobre isso usando Launchy (que eu já usei - perfeito).

Você adiciona um script vbs a uma pasta que o Launchy indexa e depois simplesmente pressiona

na guia "minhas coisas no arquivo" digite

e o trabalho está feito.

scritps vem aqui

at.vbs

Const ForAppending = 8
Dim strTextFile
Set objArgs = WScript.Arguments
strTextFile = "C:\home\todo.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strTextFile) Then
    Set objFile = objFSO.OpenTextFile(strTextFile, ForAppending)
Else
    Set objFile = objFSO.CreateTextFile(strTextFile)
End If
objFile.WriteLine objArgs(0)
objFile.Close

Problema : Eu preciso dos qoutes em torno da minha entrada. Seria melhor se eu não o fizesse.

Eu encontrei este script depois:

1. googling Anexar janelas do txt
2. lendo link
3. lendo link
4. pouso na discussão do sourceforge vinculada acima

Bônus se eu puder mudar o caminho do arquivo txt, digamos de \ Dropbox \ FolderA para \ Dropbox \ FolderB e o script ainda estará intacto.

    

Answer 1

Para iludir aspas duplas em torno de sua entrada, ou seja, para bater at my things in the file em vez de at "my things in the file" você pode usar o próximo snippet de código no lugar de objFile.WriteLine objArgs(0) :

strResult = ""
For ii = 0 to objArgs.Count - 1
   strResult = strResult & CStr( objArgs( ii)) & Space( 1)
Next
objFile.WriteLine Rtrim( strResult)