☰

Problema: Preciso das citações em torno da minha entrada. Seria melhor se eu não o fizesse.

tag-icon • tag-icon vbscript launchy
Problema: Preciso das citações em torno da minha entrada. Seria melhor se eu não o fizesse.

Quero anexar pequenos trechos de texto a arquivos txt.

Se alguém tiver um sistema para isso, fique à vontade para publicá-lo. Estou tentando criá-lo.

Nohttp://sourceforge.net/p/launchy/discussion/451015/thread/abba414bhouve uma discussão sobre isso usandoLançador(que eu já usei - perfeito).

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

noaba"minhas coisas no arquivo"digitar

e o trabalho está feito.

scripts vem aqui

em.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: Preciso das citações em torno da minha entrada. Seria melhor se eu não o fizesse.

Encontrei este script depois:

  1. pesquisando janelas Anexar txt no Google
  2. leiturahttp://lifehacker.com/284127/take-launchy-beyond-application-launching
  3. leiturahttp://benkraal.wordpress.com/2007/05/16/launchy-append-text-to-a-file-from-anywhere/
  4. pousando na discussão do sourceforge com link acima

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

Responder1

Para evitar aspas duplas em sua entrada, ou seja, para acertar at my things in the fileem vez de at "my things in the file"você pode usar o próximo trecho 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)

informação relacionada