1 votes

Ajouter au txt windows

Je veux ajouter de petits extraits de texte à des fichiers txt.

Si quelqu'un a un système pour cela, n'hésitez pas à le poster. J'essaie de le créer.

À http://sourceforge.net/p/launchy/discussion/451015/thread/abba414b il y avait une discussion sur ce sujet en utilisant Launchy (que j'ai déjà utilisé - parfait).

Vous ajoutez un script vbs à un dossier indexé par Launchy et ensuite il suffit de taper

à tab "mes choses dans le fichier" entrée

et le tour est joué.

le script est ici

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

Problème : J'ai besoin des guillemets autour de mon entrée. Ce serait mieux si je ne les avais pas.

J'ai trouvé ce script après :

  1. googler Append txt windows
  2. lire http://lifehacker.com/284127/take-launchy-beyond-application-launching
  3. lire http://benkraal.wordpress.com/2007/05/16/launchy-append-text-to-a-file-from-anywhere/
  4. atterrir sur la discussion sourceforge liée ci-dessus

En bonus, si je suis capable de changer le chemin du fichier txt disons de \Dropbox\FolderA à \Dropbox\FolderB et que le script reste intact.

0voto

JosefZ Points 11907

Pour éluder les guillemets doubles autour de votre entrée, c'est-à-dire pour frapper at my things in the file au lieu de at "my things in the file" vous pouvez utiliser le prochain extrait de code à la place de objFile.WriteLine objArgs(0):

strResult = ""
Pour ii = 0 à objArgs.Count - 1
   strResult = strResult & CStr( objArgs( ii)) & Space( 1)
Prochain
objFile.WriteLine Rtrim( strResult)

SistemesEz.com

SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.

Powered by:

X