|
Que vous créez vous-même ou quelqu'un vous les envoie , les fichiers avec des lignes vides peuvent poser des problèmes . Si vous devez supprimer les lignes vides , vous pouvez passer un temps précieux en appuyant sur la touche «Supprimer» à plusieurs reprises . Windows est livré avec un logiciel qui permet d'automatiser cette tâche. L'outil "Windows Script Host " vous permet de créer des scripts de commande qui interagissent avec Windows et d'effectuer des tâches utiles. Par exemple, en créant un script VBScript simple, vous pouvez l'utiliser pour supprimer les lignes vides d'un fichier texte. Instructions
1 Ouvrez l'Explorateur Windows et accédez au dossier qui contient un fichier avec des lignes vides. Prenez note du nom du fichier et son dossier. Par exemple, si le chemin du fichier est "C: \\ myFiles \\ test1.txt " , rappelez-vous que le chemin du fichier
2 Ouvrez le Bloc-notes et collez le texte suivant dans un nouveau document: .
< p> ' Lignes 1-3 : définir des objets du système
CONST ForReading = 1
CONST ForWriting = 2
Dim objFSObject , strLineBuffer
« Lignes 4 -5: fichier d'entrée Affecter Variable: Dim strInputFile , strCurrentFile
strInputFile = " FILE_WITH_BLANK_LINES "
« Lignes 6-7 : Mise en place du fichier objet du système et lire le fichier d'entrée Photos Set objFSOObject = CreateObject (" Scripting.FileSystemObject " )
Set objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForReading )
« traitement de la boucle - magasin de lignes non vides dans tampon
temporaire Do Until objCurrentFile.AtEndOfStream
tempLine = objCurrentFile.Readline
tempLine = Trim ( tempLIne )
Si Len ( tempLine )> 0 puis
strLineBuffer = strLineBuffer & tempLine & "" & vbCrLf
End If
boucle
' tampon d'écriture dans le fichier d'entrée
objCurrentFile.Close
Set objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForWriting )
objCurrentFile.Write strLineBuffer
remplacer " FILE_WITH_BLANK_LINES " avec le nom de chemin complet du fichier qui a des lignes vides.
3 Cliquez sur "Fichier " et sélectionner " Enregistrer". Le "Enregistrer sous" fenêtre va s'ouvrir. Tapez " Remove_Blank_Lines.vbs " dans la zone de texte "Nom" et cliquez sur " Enregistrer".
4 Ouvrez l'Explorateur Windows et accédez à ce fichier. Double- cliquez dessus. Le script va émettre les commandes à supprimer les lignes vides du fichier. Ouvrez le fichier pour vérifier qu'aucun des lignes vides existent.
|
