добавить в текстовые окна

Question

Я хочу добавить небольшие фрагменты текста в текстовые файлы.

Если у кого-то есть система для этого, не стесняйтесь опубликовать ее. Я пытаюсь создать это.

На http://sourceforge.net/p/launchy/discussion/451015/thread/abba414b было обсуждение этого вопроса с использованием Launchy (который я уже использовал - отлично).

Вы добавляете скрипт vbs в папку, которую индексирует Launchy, а затем просто нажимаете

на вкладке "мои вещи в файле" введите

и работа сделана.

Скриптс приходит сюда

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

Проблема: мне нужны квоты вокруг моего входа. Было бы лучше, если бы я этого не сделал.

Я нашел этот скрипт после:

1. поиск в Google Добавить текстовые окна
2. чтение http://lifehacker.com/284127/take-launchy-beyond-application-launching
3. чтение http://benkraal.wordpress.com/2007/05/16/launchy-append-text-to-a-file-from-anywhere/
4. посадка на обсуждение Sourceforge, связанное выше

Бонус, если я могу изменить путь к текстовому файлу, скажем, с \Dropbox \FolderA на \Dropbox \FolderB и сценарий по-прежнему не поврежден.

Answer 1

Чтобы избежать двойных кавычек вокруг вашей записи, т. Е. Чтобы попасть at my things in the file а не at "my things in the file" вы можете использовать следующий фрагмент кода вместо objFile.WriteLine objArgs(0):

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