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

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

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

На 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 и сценарий по-прежнему не поврежден.

Источник

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)
Источник
Другие вопросы по тегам