Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite Prieskumníka Windows a prejdite do priečinka, ktorý obsahuje súbor s prázdnymi riadkami . Poznačte si názov súboru a jeho zložky . Napríklad , ak sa cesta k súboru je " C : \\ myfiles \\ test1.txt " , si uvedomiť , že cesta k súboru
2
Otvorte Poznámkový blok a vložte nasledujúci text do nového dokumentu : .
' Riadky 1-3 : Definujte systém objektov klipart
CONST ForReading = 1
CONST ForWriting = 2
Dim objFSObject , strLineBuffer
" linky 4 -5 : Priradenie vstupného súboru do premennej
Dim strInputFile , strCurrentFile
strInputFile = " FILE_WITH_BLANK_LINES "
" Lines 6-7 : Nastavenie systému súborov objekt a čítať vstupný súbor
Set objFSOObject = CreateObject ( " Scripting.FileSystemObject " )
Set objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForReading )
" Spracovanie Loop - Uloženie non - prázdne riadky v dočasnej vyrovnávacej pamäti
Do objCurrentFile.AtEndOfStream
TEMPLIN = objCurrentFile.Readline
TEMPLIN = Trim ( TEMPLIN )
If Ľan ( TEMPLIN ) > 0 potom
strLineBuffer = strLineBuffer & TEMPLIN & " " & vbCrLf
End If
Loop
" Write buffer vstupného súboru
objCurrentFile.Close
Set objCurrentFile = objFSOObject.OpenTextFile ( strInputFile , ForWriting )
objCurrentFile.Write strLineBuffer
Nahradiť " FILE_WITH_BLANK_LINES " sa úplný názov cesty k súboru , ktorý má prázdne riadky .
3
Kliknite na " Súbor " a vyberte položku " Uložiť " . Otvorí sa okno " Uložiť ako " sa otvorí . Typ " Remove_Blank_Lines.vbs " v " Meno " textového poľa a kliknite na tlačidlo " Uložiť " .
4
Otvorte Prieskumníka Windows a prejdite do tohto súboru . Double - kliknite na neho . Skript bude vydávať príkazy na odstránenie prázdne riadky zo súboru . Otvorte súbor , ktorý chcete overiť , či neexistujú žiadne prázdne riadky .
Copyright © počítačové znalosti Všetky práva vyhradené