punto - descargar archivo csv ejemplo

Copie las líneas del archivo.csv en otro archivo.csv utilizando la secuencia de comandos por lotes

Question

Estoy creando archivos .csv desde un dispositivo (salida) y necesito copiar un número específico de líneas de este archivo en otro archivo .csv que tiene el mismo formato.

Por suerte tienen el mismo formato, por lo que cada archivo tiene las mismas líneas para copiar (líneas 68 a 107). He intentado esto usando código de otras fuentes pero todo lo que he podido hacer hasta ahora es copiar los datos pero no puedo insertarlos en el otro archivo. ¡Cualquier ayuda sería genial!

@echo off

Set "InputFile=C:/*****/Desktop/Dev/Test/Default.csv"
Set "OutPutFile=C:/*****/Desktop/Dev/Test/OutputData.csv"
Set FromLine=68
Set ToLine=107

Call:ExtractLinesFromTextFile "%InputFile%" %FromLine% %ToLine% > 
"%OutPutFile%"

Exit /b

:ExtractLinesFromTextFile <InputFile> <FromLine> <ToLine>
(
echo Wscript.echo(ExtractLinesFromTextFile("%~1",%2,%3^)^)
echo Function ExtractLinesFromTextFile(TextFile,FromLine,ToLine^)
echo If FromLine ^<= ToLine Then
echo With CreateObject("Scripting.FileSystemObject"^).OpenTextFile(TextFile^)
echo Do Until .Line = FromLine Or .AtEndOfStream
echo .SkipLine
echo Loop
echo Do Until .Line ^> ToLine Or .AtEndOfStream
echo ExtractLinesFromTextFile = ExtractLinesFromTextFile ^& (.ReadLine ^& 
vbNewLine^)
echo Loop
echo End With
echo End If
echo End Function
)>"%~n0.vbs"
Cscript /Nologo "%~n0.vbs" "%~1" %~2 %~3
If Exist "%~n0.vbs" Del "%~n0.vbs"
Exit /b

Answer 1

No es necesario utilizar un archivo por lotes que crea e invoca un VBScript.

Puede realizar la tarea con un script de proceso por lotes puro como este:

@echo off
setlocal EnableExtensions EnableDelayedExpansion

rem // Define constants here:
set "_FILEIN=!USERPROFILE!/Desktop/Dev/Test/Default.csv"
set "_FILEOUT=!USERPROFILE!/Desktop/Dev/Test/OutputData.csv"
set /A "_LINEFROM=68"
set /A "_LINETO=107"

rem // Count number of lines of input file:
for /F %%C in (''^< "!_FILEIN!" find /C /V ""'') do (
    rem // Read and write files using redirection:
    < "!_FILEIN!" > "!_FILEOUT!" (
        rem // Iterate through all available lines:
        for /L %%I in (1,1,%%C) do (
            rem // Read a single line:
            set "LINE=" & set /P LINE=""
            rem // Check position (line number) of current line:
            if %%I GEQ %_LINEFROM% if %%I LEQ %_LINETO% (
                rem // Return current line conditionally:
                echo(!LINE!
            )
        )
    )
)

endlocal
exit /B

Tenga en cuenta que las soluciones de archivo por lotes puro pueden estar limitadas en cuanto a la longitud de línea y el tamaño de archivo. El enfoque antes mencionado no puede manejar líneas de más de 1023 bytes y archivos con más de 2147483647 líneas.

Aquí hay otra solución de script por lotes pura pero más lenta:

@echo off
setlocal EnableExtensions DisableDelayedExpansion

rem // Define constants here:
set "_FILEIN=%USERPROFILE%/Desktop/Dev/Test/Default.csv"
set "_FILEOUT=%USERPROFILE%/Desktop/Dev/Test/OutputData.csv"
set /A "_LINEFROM=68"
set /A "_LINETO=107"

rem // Write file using redirection:
> "%_FILEOUT%" (
    rem // Read file using a loop, prefixed with line index:
    for /F "delims=" %%L in (''findstr /N "^" "%_FILEIN%"'') do (
        rem // Extract line number:
        2> nul set /A "IDX=%%L"
        rem // Read current line:
        set "LINE=%%L"
        setlocal EnableDelayedExpansion
        rem // Check position (line number) of current line:
        if !IDX! GEQ %_LINEFROM% if !IDX! LEQ %_LINETO% (
            rem // Return current line conditionally:
            echo(!LINE:*:=!
        )
        endlocal
    )
)

endlocal
exit /B

Este enfoque no puede manejar líneas de más de 8191 - 7 = 8184 bytes y archivos con más de 2147483647 líneas.

Answer 2

Para ilustrar por qué no desea hacer esto en lote, este es el código para copiar las líneas 68 a 107 en otro archivo en VBScript:

inputFilename  = "C:/path/to/input.csv"
outputFilename = "C:/path/to/output.csv"
fromLine = 68
toLine   = 107

Set fso = CreateObject("Scripting.FileSystemObject")
Set inFile  = fso.OpenTextFile(inputFilename)
Set outFile = fso.OpenTextFile(outputFilename, 2, True)

Do Until inFile.AtEndOfStream Or inFile.Line > toLine
  line = inFile.ReadLine
  If inFile.Line >= fromLine Then outFile.WriteLine line
Loop

inFile.Close
outFile.Close

Para ilustrar por qué no desea hacer esto en VBScript tampoco, esta es la misma operación en PowerShell:

$inputFile  = ''C:/path/to/input.csv''
$outputFile = ''C:/path/to/output.csv''
$fromLine   = 68
$toLine     = 107

$skip       = $fromLine - 1
$numLines   = $toLine - $skip

Get-Content $inputFile | Select-Object -Skip $skip -First $numLines |
    Set-Content $outputFile

que podría simplificarse a:

$inputFile  = ''C:/path/to/input.csv''
$outputFile = ''C:/path/to/output.csv''
$skip       = 67
$numLines   = 40

Get-Content $inputFile | Select-Object -Skip $skip -First $numLines |
    Set-Content $outputFile

Incluso puede conservar el encabezado CSV si lo desea:

$inputFile  = ''C:/path/to/input.csv''
$outputFile = ''C:/path/to/output.csv''
$skip       = 66
$numLines   = 40

Import-Csv $inputFile | Select-Object -Skip $skip -First $numLines |
    Export-Csv $outputFile -NoType