Πώς να αφαιρέσει κενές γραμμές από ένα αρχείο κειμένου με τα Windows εντολές

Είτε θέλετε να δημιουργήσετε μόνοι σας , ή κάποιος τους στέλνει σε σας, τα αρχεία με τις κενές γραμμές μπορεί να δημιουργήσει προβλήματα . Αν χρειαστεί να αφαιρέσετε τις κενές γραμμές , μπορείτε να περάσετε πολύτιμο χρόνο πατώντας το πλήκτρο " Διαγραφή " κλειδί επανειλημμένα . Windows έρχεται με το ελεύθερο λογισμικό που μπορεί να αυτοματοποιήσει το έργο αυτό . Το εργαλείο " Windows Script Host " σας επιτρέπει να δημιουργήσετε σενάρια εντολών που αλληλεπιδρούν με τα Windows και να εκτελέσετε χρήσιμες εργασίες . Για παράδειγμα , δημιουργώντας ένα απλό σενάριο VBScript , μπορείτε να το χρησιμοποιήσετε για να καταργήσετε κενές γραμμές από ένα αρχείο κειμένου . Οδηγίες
Η

1 Ανοίξτε την Εξερεύνηση των Windows και μεταβείτε στο φάκελο που περιέχει ένα αρχείο με κενές γραμμές . Σημειώστε το όνομα του αρχείου και το φάκελο του . Για παράδειγμα , εάν η διαδρομή του αρχείου είναι " C : \\ MyFiles \\ test1.txt » , να θυμάστε ότι η διαδρομή του αρχείου 2

Ανοίξτε το Notepad και να επικολλήσετε το ακόλουθο κείμενο σε ένα νέο έγγραφο : .

' Γραμμές 1-3 : Ορίστε το σύστημα αντικειμένων

CONST ForReading = 1

CONST ForWriting = 2

Dim objFSObject , strLineBuffer

Lines » 4 -5 : Εκχώρηση αρχείο εισόδου στη μεταβλητή

Δημ. strInputFile , strCurrentFile

strInputFile = " FILE_WITH_BLANK_LINES "

« Γραμμές 6-7 : Ρύθμιση αντικειμένου συστήματος αρχείων και να διαβάσετε το αρχείο εισόδου

Set objFSOObject = CreateObject ( " Scripting.FileSystemObject " )

Σετ objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForReading )

«Μεταποίηση Loop - Κατάστημα μη κενές γραμμές προσωρινή ρυθμιστικό

Κάντε Μέχρι objCurrentFile.AtEndOfStream

tempLine = objCurrentFile.Readline

tempLine = Trim ( tempLIne )

Αν Len ( tempLine ) > 0 Στη συνέχεια

strLineBuffer = strLineBuffer & tempLine & "" & vbCrLf

End If

Loop

« Write buffer στο αρχείο εισόδου

objCurrentFile.Close

Set objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForWriting )

objCurrentFile.Write strLineBuffer

Αντικαταστήστε το " FILE_WITH_BLANK_LINES " με το πλήρες όνομα διαδρομής του αρχείου που έχει κενές γραμμές .
εικόνων 3

Κάντε κλικ στο " Αρχείο" και επιλέξτε "Αποθήκευση". Το παράθυρο "Save As " θα ανοίξει . Πληκτρολογήστε " Remove_Blank_Lines.vbs " στο "Όνομα" πλαίσιο κειμένου και κάντε κλικ στο κουμπί "Αποθήκευση".
Η

4 Ανοίξτε τον Windows Explorer και περιηγηθείτε σε αυτό το αρχείο . Κάντε διπλό κλικ σε αυτό. Το σενάριο θα εκδίδει τις εντολές για να καταργήσετε τις κενές γραμμές από το αρχείο . Ανοίξτε το αρχείο για να βεβαιωθείτε ότι δεν υπάρχουν κενές γραμμές .
Η
εικόνων