問題: エントリの前後に引用符が必要です。 ないほうが良いでしょう。

Question

txt ファイルに小さなテキスト スニペットを追加したいです。

誰かがこれに対応するシステムを持っている場合は、遠慮なく投稿してください。私はそれを作ろうとしています。

でhttp://sourceforge.net/p/launchy/discussion/451015/thread/abba414bこれについては、ローンチ（すでに使用していたので完璧です）。

Launchyがインデックスするフォルダにvbsスクリプトを追加し、

でタブ「ファイル内の私のもの」入力

そして仕事は完了です。

スクリプトがここに来る

.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. グーグルで「txt を追加」ウィンドウ
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ディスカッションにアクセスする

ボーナスとして、txt ファイルのパスを \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)