☰

问题：我需要在我的条目周围加上引号。如果我没有就更好了。

tag-icon • tag-icon vbscript launchy
问题：我需要在我的条目周围加上引号。如果我没有就更好了。

我想将小段文本附加到 txt 文件中。

如果有人有这样的系统，请随意发布。我正在尝试创建它。

在http://sourceforge.net/p/launchy/discussion/451015/thread/abba414b对此进行了讨论Launchy（我已经使用过了——非常完美）。

您将一个 vbs 脚本添加到 Launchy 索引的文件夹中，然后点击

在标签“我的文件里的东西”进入

工作就完成了。

scriptps 来到这里

韓國

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，并且脚本仍然完整，那就更好了。

答案1

为了避免在您的输入中使用双引号，例如，使用 hit 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)

相关内容