A Forum all about DOS Batch
https://www.dostips.com/forum/
Code: Select all
If WScript.Arguments.Count <> 3 Then
Wscript.Echo "Usage: CScript.exe commandLine.vbs <SourceFile> <DestFile> <SkipLinesCOUNT>"
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''4''
Dim shell,oFSO,oFilein,SourceFile,DestFile,COUNT,SkipLinesCOUNT
set shell = createobject("wscript.shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
' IMode Values
Const ForAppending = 8, ForReading = 1, ForWriting = 2
Const ReadTheFile = False, CreateTheFile = True
' Format Values
Const ASCII = 0, UniCode = -1, Default = -2
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''21''
SourceFile = WScript.Arguments(0)
DestFile = WScript.Arguments(1)
SkipLinesCOUNT = WScript.Arguments(2)
Set oFilein = oFSO.OpenTextFile(SourceFile, ForReading, ReadTheFile)
Set oFilemin = oFSO.OpenTextFile(DestFile, ForWriting, CreateTheFile, Default)
on error resume next
Do while not oFilein.AtEndOfStream
WriteLine = oFilein.ReadLine
If COUNT < SkipLinesCOUNT then
COUNT = COUNT + 1
Else
oFilemin.Write WriteLine & VBNewLine
End If
Loop
oFilemin.close
oFilein.close
Ed Dyreen wrote:I don't have a batch solution, &if someone has one that processes special characters without a glitch I'd like to know aswell.
Code: Select all
setlocal DisableDelayedExpansion
for /f "delims=" %%A in ('"findstr /n ^^ myFile.txt"') do (
set "line=%%A"
setlocal EnableDelayedExpansion
set "line=!line:*:=!"
(echo(!line!)
endlocal
)