Letzen Zeilen löschen

n


tml

index.html
index_favorites.html
index_periodic.html
PRUEF_V_A_STREET.html
statistic_time.html
temp.html
3.384 Bytes
1.650.909.184 Bytes frei

@echo off
cd F:\html\
dir *.html>dir.txt
setlocal
set xy=36
set "Alt=E:\*\dir.txt"  
set "Neu=E:\*\dir.txt"  
set "Cut=%temp%\Cut.vbs"  
echo Set fso=CreateObject("Scripting.FileSystemObject"):aL=Split(fso.OpenTextFile(WScript.Arguments(0),1).ReadAll,vbCrLF)>"%Cut%"  
echo Set N=fso.OpenTextFile(WScript.Arguments(1),2,-1):P=WScript.Arguments(2)+1:For Each sL In aL: N.WriteLine Mid(sL,P):Next:N.Close>>"%Cut%"  
cscript //nologo "%Cut%" "%Alt%" "%Neu%" %xy%  
del "%Cut%"  

rem Zeile 1-5 Löschen
sed "1,5d" dir.txt > dir1.txt  
xcopy dir1.txt dir.txt /Y

rem letzte zeilen löschen
sed $d dir.txt > dir1.txt
xcopy dir1.txt dir.txt /Y
sed $d dir.txt > dir1.txt
xcopy dir1.txt dir.txt /Y
sed $d dir.txt > dir1.txt
xcopy dir1.txt dir.txt /Y
rem temp.html aus der Liste entfernen
call loeschen.vbs

rem leer zeilen löschen
FOR /F "delims=|" %%f IN (dir.txt) DO echo %%f >> dir2.txt   
xcopy dir2.txt dir.txt /Y
del dir2.txt

rem einlesen der Variablen
.
.
.

del dir1.txt
pause

strFilename = "dir.txt"  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.GetFile(strFilename)
intFileSize = objFile.Size
Set objFile = objFile.OpenAsTextStream()
strFileContent = objFile.Read(intFileSize)
objFile.Close

Set objRegExp = New RegExp
objRegExp.Pattern = Chr(34)
objRegExp.Global = True
objRegExp.IgnoreCase = True             'False für case-sensitive  
strFileContent = objRegExp.Replace(strFileContent, "")  
objRegExp.Pattern = "temp.html"  
strFileContent = objRegExp.Replace(strFileContent, "")  
Set objFile = objFSO.OpenTextFile(strFilename, 2)
objFile.Write strFileContent
objFile.Close