.csv Daten in Batch anzeigen?

Question

Hay =)
Ich bastle gerade ein wenig an einer Batch File herum.
Ich möchte hier die Daten der vier Spalten hintereinander auflisten.
Wie mache ich das am besten? =)
Danke :3
		echo ║ ╟ Zeile  ╫    Space    ╫             PRODUCT DESCRIPTION             ╫ QTY ╫   Pallet   ╢ ║
		echo ║                                                                                           ║
		echo ║ ╟   1    ╫Spalte 1     ╫ Spalte 2                                    ╫ 3   ╫ Spalte 4   ╢ ║
		echo ║ ╟   2    ╫Spalte 1     ╫ Spalte 2                                    ╫ 3   ╫ Spalte 4   ╢ ║
		echo ║ ╟   3    ╫             ╫                                             ╫     ╫            ╢ ║
		echo ║ ╟   4    ╫             ╫               usw                           ╫     ╫            ╢ ║
		echo ║ ╟   5    ╫             ╫                                             ╫     ╫            ╢ ║
		echo ║                                                                                           ║
		echo ║ ╟   6    ╫             ╫                                             ╫     ╫            ╢ ║
		echo ║ ╟   7    ╫             ╫                                             ╫     ╫            ╢ ║
		echo ║ ╟   8    ╫             ╫                                             ╫     ╫            ╢ ║
		echo ║ ╟   9    ╫             ╫                                             ╫     ╫            ╢ ║

Erzesel · Accepted Answer

Ich habe mal die meine graue Masse bis an die Grenzen strapaziert. 
das Herzstück :replaceTableLineContent hatte ich ja ursprünglich ziemlich starr konzipiert Spagetticode auf 4 Spalten mit fest codierten Spaltenbreiten auf diese weise wären maximal 9 spalten möglich (Beschränkung der direkt adressierbaren Parameter auf %0 bis %9) 
Iterieren mit %* ist problematisch, da Daten, welche * ? enhalten als Dateisuche angesehen werden was zu neuen Problemen führt. delayedExpansion und der Carret^-Bug schicken auch ! und ^ ins Abseits.
Die vollautomatisierte Variablen, machen zwar den Code flexibel, aber zerren an den Nerven... ich denke Dir wird Augenblicklich das Hirn durchschmoren. Allerding musst Du die Subroutinen nicht anfassen, diese kommen schon fast an OOP heran ... 🤔 Nicht wirklich🤤 Objektorientierung und Batch geht nicht.
Eigentlich muss man lediglich den Namen der Tabellenvariable und die Spaltenbreiten an :initTable übergeben, Die Subroutine erledigt die Verwaltung und Anpassung der Variablen von selbst.
:replaceTableLineContent übergibt den Inhalt für die Tabellspalten. Auch dieser wird vollautomatisch an die Spalten angepasst.
Batch ist kein Rennpferd und die einfache Handhabung meines Codes geht zu lasten der Geschwindigkeit (dabei habe ich schon "getrickst" , wo es ging.
Eine Optimierung ist das Speichern der Variablen für Rahmen und Überschriften.
Nach der ersten Initialisierung liest die Batch die Variablen aus der BatchName.ini so das diese für jede Tabelle nur einmal berechnet werden müssen. Erst durch löschen der .ini nimmt die Batch neue Werte an. ein durch auskommentieren schaltbarer Del - Befehl befindet in Zeile 8, so das Du beim Probieren nicht von Hand löschen musst.
Die Routinen zum auslesen der CSV kann man nicht nur im Hauptcode definieren, da dies auf die Bedürfnisse anpassbar sein sollen, sind ganz einfache For/f-Loops, welche die Daten an die "Tabellenautomatik" übergeben.
Zeichnen der Tabelle dürfte selbsterklärend sein.
(ggf delims=, zu delims=; ändern. Die [] sind nur nötig, wenn man mit Find .. Zeilen nummeriert ---Ausgabe: [1]Zeilen Text---)
Mehr will ich erst mal nicht machen, sonst gibt's ne Jacke mit ganz langen Ärmeln . das Ding ist schon so grenzwertig.
DrawTables.cmd
:: Achtung!!! die Zeichen ^ * ! und ? sind in den Arrayzuweisungen mit "call :addToArray ..." nicht erlaubt!!!
@echo off
chcp 65001 >nul
setlocal enableDelayedExpansion

set "ConfigFile=%~n0.ini"
  rem wenn beim start neu initialisiert werden soll entferne :: vor der nächsten Zeile
::del "%ConfigFile%" 2>nul

if exist "%ConfigFile%" (
      rem alle nötigen Variablen aus Datei laden (schneller)
    for /f "usebackq tokens=*" %%a in ("%ConfigFile%") do (set "%%a")
) else (
      rem sonst Initialisieren und Speichern  
    call :initTable Table1 5 15 20  40 20 10   &rem die Spaltenbreiten steuen  die Tabelle
    call :replaceTableLineContent Table1.HeaderLine "Nr."  "Überschr.2" "Überschrift 3"  "was anderes & noch mehr"  "was anderes2" "blubbbbbb" "blubbbbbb2" "blubbbbbb3"  
    
      rem es weil es so einfach ist auch  noch eine  2. Tabelle initialisiern
    call :initTable Table2 30 30  10 10 10 10 10 10   &rem die Spaltenbreiten steuen  die Tabelle
    call :replaceTableLineContent Table2.HeaderLine "huzlis"  "katzen"  "Schlümpfe"  "ralz" "blabalabu" "blubbbbbb2" "blubbbbbb3" 
    set "Table" > "%ConfigFile%"  &rem alle Variablen, welche  mit Table beginnen, in einem Rutsch in die .ini schreiben
)

echo %Table1.Top%
echo !Table1.HeaderLine!
echo %Table1.HeadBottom%
  rem csv auslesen... und Zeilen automatisch nummerieren
for /f "skip=2 tokens=1-6 delims=[]," %%a in ('find /v /n "" "demo.csv"') do (
      rem nicht  mehr Parameter angeben  als in  Tokens  definiert sind !!!
    call :replaceTableLineContent Table1.NewLine  "%%~a" "%%~b" "%%~c" "%%~d"  "%%~e" "%%~f"
    echo !Table1.NewLine!    
)
echo %Table1.Bottom%

rem nächtste Tabelle anzeigen
echo %Table2.Top%
echo !Table2.HeaderLine!
echo %Table2.HeadBottom%
  rem eine  keine Variation  wenn  die Zählerei  mit  find  nicht  nötig ist...
  rem man  muss auch  nicht jedes Token verwenden
for /f "usebackq tokens=2,4,5-10 delims=," %%a in ("demo.csv") do (
      rem nicht  mehr Parameter angeben  als in  Tokens  definiert sind !!!
    call :replaceTableLineContent Table2.NewLine  "%%~a" "%%~b" "%%~c" "%%~d"  "%%~e" "%%~f" "%%~g" "%%~h"
    echo !Table2.NewLine!    
)
echo %Table2.Bottom%

rem zur Demo  mal die erzeugten Variablen anzeigen
echo:
echo erzeugte Variablen:
set "Table"
set "__"

pause
exit /b
::: ab hier  sollte  es nicht  mehr  allzuviel zu tun geben

:::subroutines:::
:initTable

set "this=%~1"
if "%~2"=="" (
    echo Fehler  keine Parameter  für %0 %1 übergeben^^!
    pause
    exit /b
)
  rem Achtung!!! die Zeichen ^ * ! und ? sind in den Arrayzuweisungen mit "call :addToArray ..." nicht erlaubt!!!
set __Args=%*
call :addToArray  %this%.Columns  %__Args:* =%
set "__dummy=0"
for %%a in  (!%this%.Columns.Raw!) do (
    if !__dummy! lss %%a (
        set "%this%.MaxSpaces.Length=%%a"
        set "__dummy=%%a"
    )
)

call :MultChar %this%.MaxSpaces " " %%%this%.MaxSpaces.Length%%
  rem erzeuge die verschiedenen Liniensets (die Impliziten Variablen ArrayName.Base und ArrayName.MaxIndex geben die Grenzen vor)
for /l %%a in (!%this%.Columns.Base!,1,!%this%.Columns.MaxIndex!) do (
    call :MultChar Line.HDouble.%%a "═" %%%this%.Columns.%%a%%
    call :MultChar Line.HSingle.%%a "─" %%%this%.Columns.%%a%%

set "%this%.Top=!%this%.Top!!Line.HDouble.%%a!╤"
    set "%this%.HeadBottom=!%this%.HeadBottom!!Line.HSingle.%%a!┼"
    set "%this%.Bottom=!%this%.Bottom!!Line.HDouble.%%a!╧"
    set "%this%.Line=!%this%.Line!PlaceHolder.%%a│"
)
for /f "delims==" %%a in ('set "Line."') do (set "%%a=") &rem ...und löschen, werden nicht mehr benötigt!

set "%this%.Top=╔!%this%.Top:~0,-1!╗"
set "%this%.HeadBottom=╟!%this%.HeadBottom:~0,-1!╢"
set "%this%.Bottom=╚!%this%.Bottom:~0,-1!╝"
set "%this%.Line=║!%this%.Line:~0,-1!║"
exit /b

:replaceTableLineContent
for /f "tokens=1,2 delims=. " %%a in ("%~1") do (set "this=%%~a")
set "__dummyNewLine=!%this%.Line!"
set "__dummySpaces=!%this%.MaxSpaces!"
set "__dummyArr.Base=0"
call :addToArray  __dummyArr  %*
for /l %%a in (!%this%.Columns.Base!,1,!%this%.Columns.MaxIndex!) do (
    call :formatToLen __dummyString "%%__dummyArr.%%~a%%" %%%this%.Columns.%%a%%
    call set "__dummyNewLine=%%__dummyNewLine:PlaceHolder.%%a=!__dummyString!%%"
)
set "%~1=%__dummyNewLine%"
for /f "delims==" %%a in ('set "__dummy"') do (set "%%a=")  &rem  alle __dummys Löschen
exit /b
:formatToLen
set "__dummyString=%~2%__dummySpaces%"
set "%~1=!__dummyString:~0,%~3!"
exit /b

:addToArray  %1=ArrayName  %2 bis ...= Werte   
set __Args=%*
set %~1= %__Args:* =%
set %~1.Raw=!%~1.Raw! %__Args:* =%
if not defined %~1.Base (set "%~1.Base=1")
if not defined %~1.MaxIndex ( set /a "%~1.MaxIndex=%~1.Base , %~1.NextIndex=%~1.Base" )
set "__dummyCount=!%~1.NextIndex!"
for %%a in (%__Args:* =%) do (
    set "%~1.!__dummyCount!=%%~a"
    set /a "%~1.MaxIndex=__dummyCount , __dummyCount+=1 , %~1.NextIndex=__dummyCount "
)
exit /b

:MultChar %1=varName %2=string %3=count
set "%~1="
for /l %%a in (1,1,%~3) do ( set "%~1=!%~1!%~2" )

exit /b

Palladin007 · Answer

read csv file through windows batch file and create txt file - Stack Overflow
Oder such nach "Batch read file per line" und "Batch split string" oder was auch immer dir dazu einfällt.
Oder - und das wäre klüger - Du versuchst es gar nicht mit Batch, das ist nämlich ziemlich eklig und auch gar nicht dafür gedacht.
Besser wäre, Du nutzt richtige Programmiersprachen, mit denen das sehr viel einfacher ist. Und es gibt meistens auf Frameworks (z.B. CsvHelper für .NET), die dir einen Großteil der Arbeit abnehmen.

Erzesel · Answer

ich konnte es mir nicht verkneifen das Ding auf die Welt losszulassen.
in Batch kann man TabellenZeilen nur durch Formatieren der Zelleninhalte auf die gewünschte Länge richtig schreiben.
das folgende ist wie alles in Batch gerade so flexibel, wie es erforderlich ist. :replaceTableLineContent kann wirlich nur mit den vorgegebenen 4 Spalten umgehen für mehr oder weniger Spalten müsste man entsprechen den Spagetticode anpassen. Nicht das ich das nicht flexibler hinbekommen hätte, aber dann wäre das ein übles unlesbares Monster geworden. (ist so schon übel genug, wenn man besseres mit einer Zeile Powershell gebacken bekommt)
demo.csv
test1,Bescreibung 1 blabla,Ratzeputz
test2,Beschreibung 2 mumbel,EierMops
test3,Beschreibung 3 laberhababer,Sumpfkuh

Table.cmd
@echo off
chcp 65001 >nul
setlocal enableDelayedExpansion

:: create some TableTemplates
call :MultChar HDoubleLine.1 "═" 20
set "HDoubleLine.2=%HDoubleLine.1%"
call :MultChar HDoubleLine.3 "═" 40
set "HDoubleLine.4=%HDoubleLine.1%"

call :MultChar HLine.1 "─" 20
set "HLine.2=%HLine.1%"
call :MultChar HLine.3 "─" 40
set "HLine.4=%HLine.1%"

call :MultChar MaxSpaces " " 40

set "Table.Top=╔%HDoubleLine.1%╤%HDoubleLine.2%╤%HDoubleLine.3%╤%HDoubleLine.4%╗"
set "TableHead.Bottom=╟%HLine.1%┼%HLine.2%┼%HLine.3%┼%HLine.4%╢"
set "Table.Bottom=╚%HDoubleLine.1%╧%HDoubleLine.2%╧%HDoubleLine.3%╧%HDoubleLine.4%╝"
  rem Vorlage für innere Tabellenzeilen (Platzhalter  werden ersetzt)
set "Table.Line=║PlaceHolder.1│PlaceHolder.2│PlaceHolder.3│PlaceHolder.4║"

call  :replaceTableLineContent newHeaderLine  "Nr."  "Überschr.2" "Überschrift 3" "was anderes"
echo %Table.Top%
echo %newHeaderLine%
echo %TableHead.Bottom%
  rem csv auslesen... und Zeilen automatisch nummerieren
for /f "skip=2 tokens=1-3* delims=[]," %%a in ('find /n /v "" "demo.csv"') do (
  call :replaceTableLineContent newTableLine  "%%~a" "%%~b" "%%~c" "%%~d"
  echo !newTableLine!
)
echo %Table.Bottom%

pause
exit /b

:::subroutines:::
:MultChar %1=varName %2=string %3=count
set "%~1="
for /l %%a in (1,1,%~3) do (
    set "%~1=!%~1!%~2"
)
exit /b

:replaceTableLineContent  (recht statischer Spagetticode, sonst  blickt  keiner  mehr durch)
set "__tmpNewLine=%Table.Line%"
  rem übergebene Strings  auch Spaltenbreite formatieren
call :formatToLen __dummyString "%~2" 20
  rem Platzhalter  mit formatierten String ersetzen
set "__tmpNewLine=!__tmpNewLine:PlaceHolder.1=%__dummyString%!"
call :formatToLen __dummyString "%~3" 20
set "__tmpNewLine=!__tmpNewLine:PlaceHolder.2=%__dummyString%!"
call :formatToLen __dummyString "%~4" 40
set "__tmpNewLine=!__tmpNewLine:PlaceHolder.3=%__dummyString%!"
call :formatToLen __dummyString "%~5" 20
set "__tmpNewLine=!__tmpNewLine:PlaceHolder.4=%__dummyString%!"

set "%~1=%__tmpNewLine%"
exit /b

:formatToLen
set "__fString=%~2%MaxSpaces%"
set "%~1=!__fString:~0,%~3!"
exit /b

Erzesel · Answer

Ich wusste es doch, ich vergesse selten einen Gast...
Dejavue...

https://www.gutefrage.net/frage/per-batch-datei-csv-tabelle-beschreiben-und-auslesen#answer-400153287

Lediglich die Namen der Felder haben sich geändert...
Ich sehe bei Deiner Frage auch das Du vorhast eine Art grafischeinst Oberfläche auszugeben...
Alles machbar, aber der Aufwand um die Zeilen auf gleiche Breite zu formatieren ist enorm 
Bei Deinen bisherigen Fragen sollte Dir aufgefallen sein, das Batch ziemlich störrisch ist wenn es um Text und Grafik geht. 
Mal auf die schnell mit :
for /f "usebackq tokens=1-3* delims=," %%a in ("mydata.csv") do (
    Echo %%a  blubb   %%b  blubb %%c   muh %%d
)

...eine csv Datei aufzudröseln, kein Akt.
...aber Du willst hübsch....
Ich kann Dir nur raten Batch langsam den Rücken zu kehren...
In Powershell gibt's eine fertige Tabellenausgabe. Format-Table
Es geht aber auch richtig Komfortabel: 
 löse Du Dein Tabellen- Problemchen einfach mit Out-GridView
...und eine csv-Datei ließt man mit Import-CSV.
https://www.windowspro.de/script/csv-dateien-powershell-erstellen-sortieren-filtern
Im günstigsten Fall schreibst Du eine Tabelle ganze Oberfläche mit einer Zeile...
Import-CSV 'myData.csv' | Out-GridView

Hier noch etwas Howdo dazu: 
https://www.techguy.at/powershell-out-gridview-und-passthru/ .

.csv Daten in Batch anzeigen?

4 Antworten