Problem: Ich brauche die Anführungszeichen um meinen Eintrag. Es wäre besser, wenn das nicht der Fall wäre.

Question

Ich möchte kleine Textschnipsel an TXT-Dateien anhängen.

Wenn jemand ein System dafür hat, kann er es gerne posten. Ich versuche gerade, eines zu erstellen.

Beihttp://sourceforge.net/p/launchy/discussion/451015/thread/abba414bEs gab eine Diskussion darüber mitStartbereit(was ich bereits verwendet habe – perfekt).

Sie fügen ein VBS-Skript zu einem Ordner hinzu, den Launchy indiziert, und klicken dann einfach auf

beiTab"meine Sachen in der Akte"eingeben

und die Arbeit ist erledigt.

Skripte kommen hierher

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

Problem: Ich brauche die Anführungszeichen um meinen Eintrag. Es wäre besser, wenn das nicht der Fall wäre.

Ich habe dieses Skript nach Folgendem gefunden:

1. googeln Anhängen txt Windows
2. Lektürehttp://lifehacker.com/284127/take-launchy-beyond-application-launching
3. Lektürehttp://benkraal.wordpress.com/2007/05/16/launchy-append-text-to-a-file-from-anywhere/
4. Landung auf der oben verlinkten Sourceforge-Diskussion

Bonus, wenn ich den Pfad der TXT-Datei beispielsweise von \Dropbox\FolderA in \Dropbox\FolderB ändern kann und das Skript weiterhin intakt bleibt.

Answer 1

Um doppelte Anführungszeichen um Ihren Eintrag zu vermeiden, d. h. um at my things in the filestatt zu drücken, at "my things in the file"können Sie den folgenden Codeausschnitt anstelle von verwenden objFile.WriteLine objArgs(0):

strResult = ""
For ii = 0 to objArgs.Count - 1
   strResult = strResult & CStr( objArgs( ii)) & Space( 1)
Next
objFile.WriteLine Rtrim( strResult)