![问题:我需要在我的条目周围加上引号。如果我没有就更好了。](https://linux22.com/image/1415106/%E9%97%AE%E9%A2%98%EF%BC%9A%E6%88%91%E9%9C%80%E8%A6%81%E5%9C%A8%E6%88%91%E7%9A%84%E6%9D%A1%E7%9B%AE%E5%91%A8%E5%9B%B4%E5%8A%A0%E4%B8%8A%E5%BC%95%E5%8F%B7%E3%80%82%E5%A6%82%E6%9E%9C%E6%88%91%E6%B2%A1%E6%9C%89%E5%B0%B1%E6%9B%B4%E5%A5%BD%E4%BA%86%E3%80%82.png)
我想将小段文本附加到 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
问题:我需要在我的条目周围加上引号。如果我没有就更好了。
我之后找到了这个脚本:
- 谷歌搜索附加 txt 窗口
- 阅读http://lifehacker.com/284127/take-launchy-beyond-application-launching
- 阅读http://benkraal.wordpress.com/2007/05/16/launchy-append-text-to-a-file-from-anywhere/
- 登陆上面链接的 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)