☰

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

tag-icon • tag-icon vbscript launchy
Проблема: Мне нужны кавычки вокруг моей записи. Было бы лучше, если бы я этого не делал.

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

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

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

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

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

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

скрипты приходят сюда

в.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. googleing Добавить текстовые окна
  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)

Связанный контент