Wie kann ich die letzte Zeile einer Textdatei mit der Eingabeaufforderung löschen?

Question

Ich habe eine Textdatei, die ich in Zugriffstabelle über die Eingabeaufforderung importieren. Das Problem ist, dass diese Textdatei eine leere Zeile als letzte Zeile enthält. Kann mir jemand ein Skript zur Verfügung stellen, das meine leere Zeile am Ende der Datei löscht, damit ich meinen Automatisierungsprozess abschließen kann. Ich verwende Windows 2000-Plattform.

Answer 1

Here ist ein Skript, das leere Zeilen aus einer Textdatei löscht. Es ist 2000.

Const ForReading = 1 
Const ForWriting = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading) 

Do Until objFile.AtEndOfStream 
    strLine = objFile.Readline 
    strLine = Trim(strLine) 
    If Len(strLine) > 0 Then 
     strNewContents = strNewContents & strLine & vbCrLf 
    End If 
Loop 

objFile.Close 

Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForWriting) 
objFile.Write strNewContents 
objFile.Close 

Answer 2

für Fenster geschrieben

Dies funktioniert mit head

head -n -1 input.txt > output.txt 

Leider denke ich Windows nicht mit diesem nützlichen Tool standardmäßig kommt, sondern Cygwin Installation gibt Ihnen das und viel andere Sachen auch.

Answer 3

sed '$d' 

löscht die letzte Zeile, ist aber nicht in Windows 2000 die Gnu utils Holen Sie sich ein für Windows sed zu erhalten.

Unter this site finden Sie eine Liste anderer sed-Befehle zum Bearbeiten von Dateien.