In Tabellen rumrechnen mittels Batch - Elemente finden und Ersetzen

Dieser Beitrag soll zeigen, wie man mittels Batch einfache Tabellenkalkulationen durchführen kann und Werte in einer Tabelle finden kann mit Ausgabe von Spalte und Zeile. Mit Windows Boardmitteln und mit Nutzung von Cut,Head,Tail,Sedf . Hinweise, Kritik und Bemerkungen sind willkommen.

Gegeben sei der Einfachheit halber folgende Tabelle ohne doppelte Einträge (erstmal), aber jeder Eintrag ist belegt.

1;20
2;21

Trennzeichen sind erstmal Semikolons.

Aufgabenstellung:
- Wo ist der Wert 20 in dieser Tabelle? Ausgabe von Spalten und Zeilen Infos.
- Wie lautet der Wert in Spalte 2 und Zeile 1? Ausgabe des Wertes
- Wie ist die Summe von Element (1,2) und (2,1) ?
- Wie ist die Summe in der zweiten Spalte?
- Addiere in eine bestimmte Zeile/Spalte ohne vorherige Kenntnis des Wertes eine Zahl bzw ersetze Wert.
- Der ganze Aufriss soll auch mit Tabellen mit mehr als 50 Spalten funktionieren.Bzw wir wollen uns nicht mit einen Haufen tokens zum Auslesen herumplagen.- Und zu guter letzt soll alles auch mit beliebigen Tabelleneinträgen funktionieren.(Modus 3 und 4 geht nur für ganze Zahlen)

Am Ende steht eine Funktion, mithilfe man den Kram da oben durchführen kann.

Inhaltsverzeichnis

0) Inhalt der Tabelle in einer Spalte

Erstmal bauen wir uns langsam die Funktionen zusammen.Hier gilt der Weg ist das Ziel.
Der erste Teil beschäftigt sich mit Tabellen ohne doppelte Einträge und ganzen Zahlen als Elementen.

[Anmerkung: ja es geht auch einfacher und kompakter. Aber die Struktur in den ersten Beispielen ist so gewählt, dass am Ende die Funktion besser verstanden wird. Auch ist so die langsame Entstehung ersichtlich. Es geht auch mit anderen Skriptsprachen, aber es soll gezeigt werden, dass man mit MS-DOS Batch eine Menge machen kann.]

Im Verlauf werden auch Methoden mit cut,head,tail,sed dargestellt (aus der Unix Welt) die unser Problem einfach lösen.

Quelle:
http://unxutils.sourceforge.net/

Vorbereitung:

REM Anzahl der Spalten und Zeilen
set tspalt=2
set tzeile=2

REM Hochzählen und Ausgeben.
for /L %%c IN (1,1,%tspalt%) DO (for /L %%d IN (1,1,%tzeile%) DO echo %%c %%d >> test.txt)

Erzeugt uns eine Matrix ala:

1 1
1 2
2 1
2 2

Die wir so lesen werden.
2 1 heißt 2. Spalte 1.Zeile usw. Also die Koordinaten der Tabelle.

0) Inhalt der Tabelle in einer Spalte

Wir gehen die einzelnen Spalten und Zeilen durch und geben Ihren Inhalt in die farben.txt aus.

In der ersten FOR-Schleife werden die Spalten durchgegangen. Im ersten Durchgang wird die erste Spalte ausgewertet. Dann das token in der zweiten FOR-Schleife geschoben (tokens=%1).
In der inneren FOR-Schleife wird der Beginn der Auswertung (Skip) nach oben gezählt (mittels %azeile%).
Das blöde ist, dass
1) Die Innere FOR-Schleife mehrere Zeilen auswertet. Deshalb wird ein Counter eingebaut %count%. Der dafür sorgt, dass nur eine Zeile ausgegeben wird (unschön)
2) In der inneren FOR-Schleife kein skip=0 stehen kann, warum auch immer. Deshalb wird unsere Tabelle mit einem Header ausgestattet, damit der Code funktioniert.

Die Tabelle sieht nun so aus:

--- tabelle----
1;20
2;21

set tspalt=2
set tzeile=2

for /L %%c IN (1,1,%tspalt%) DO (for /L %%d IN (1,1,%tzeile%) DO call :sub %%c %%d)
goto :eof
:sub
    echo %1 %2 >> test.txt
    set aspalte=%1
    set /a "azeile=%2"  
    set /a "count=0"  
    for /f "skip=%azeile% delims=; tokens=%1" %%a in (tabelle.txt) Do call :sub2 %%a  
    goto :eof
    :sub2
	IF %count%==0 echo Wert %1 in Zeile %azeile% Spalte %aspalte% >> farben.txt 
	set /a "count+=1"  
goto :eof

Erkenntnis: %%a ist der Wert in der Zelle.
%%c Spaltencounter
%%d Zeilencounter

Gibt uns aus Inhalt:

Wert 1 in Zeile 1 Spalte 1
Wert 2 in Zeile 2 Spalte 1
Wert 20 in Zeile 1 Spalte 2
Wert 21 in Zeile 2 Spalte 2

1) findstr oder head, tail, cut?

findstr /N "20" tabelle.txt gibt uns folgendes aus:
1:1;20
Diese Ausgabe müssen wir so verarzten, dass wir die 1: als Zeileninfo auslesen können. Als Token wird : benutzt. Bietet sich hier ganz gut an.

for /L %%c IN (1,1,2) DO call :sub %%c
goto :eof
:sub
	set spalte=%1	
	for /f "delims=; tokens=%1" %%a in (tabelle.txt) Do call :sub2 %%a   
	goto :eof
	:sub2
        REM Suchen in findstr /N "%1" tabelle.txt' nach Zeilenzahl  
	for /F "delims=:" %%b in ('findstr /N "%1" tabelle.txt') Do set zeile=%%b  
	echo %1 in Spalte %Spalte%; Zeile %zeile% >> farben.txt

Aber mit findstr /N "2" tabelle.txt kommt
1:1;20
2:2;21
2:2;21
raus. Ist etwas unangenehm. Aber bedarf einiger Entwicklungsarbeit.

Vorerst scannen wir die Tabelle Element für Element durch. Ja, das ist nicht schnell.
Mit den Tools cut,head,tail kann man ohne weiteres die Aufgaben erfüllen.
Wir sehen gleich wie man diese Tools benutzt.

2) Frage: In welcher Spalte befindet sich der Wert 20 ??

Hier wird der Inhalt jeder Zelle mit %wert% verglichen, wenn diese gleich sind wird die Spalte und Zeile ausgegeben.
Das Skrip in 0) wurde nur mit einer if %1==%wert% erweitert.

set tspalt=2
set tzeile=2
set wert=20
for /L %%c IN (1,1,%tspalt%) DO (for /L %%d IN (1,1,%tzeile%) DO call :sub %%c %%d)
goto :eof
:sub
    echo %1 %2 >> test.txt
    set aspalte=%1
    set /a "azeile=%2"  
    set /a "count=0"  
    for /f "skip=%azeile% delims=; tokens=%1" %%a in (tabelle.txt) Do call :sub2 %%a  
    goto :eof
    :sub2
	IF %count%==0 if %1==%wert% echo Wert %1 in Zeile %azeile% Spalte %aspalte% >> farben.txt 
	set /a "count+=1"  
goto :eof

Inhalt farben.txt:
Wert 20 in Zeile 1 Spalte 2

2.a) Mittels. Head,cut.tail ?

Hier eine nette Fassung. Diese gibt uns die Anzahl der Treffer und die Positionen der Elemente an.
Diese benötigt in der Tabelle keinen künstlichen Header und die einzelnen Zellen können leer sein.
Geht also auch für eine Tabelle
; ;;;;;20;9;;
;;;3;8899;

Befehle
head -3l tabelle.txt gibt uns die ersten 3 Zeilen von tabelle.txt aus.

tail -1l tabelle.txt gibt uns die letzt Zeile aus (wird von hinten gezählt).

cut -d; -f2 tabelle.txt gibt uns die zweite Spalte (f2) der Tabelle aus. mit d; wird das Trennzeichen übergeben.

head -3l %tabelle%|tail -1l|cut -d; -f2
gibt uns also das 2 Element der 3 Spalte aus.

REM Tabelleninfos
set tabelle=tabelle.txt
set delimiter=;
set tspalt=4

set output=farben.txt
set tempd=temp.txt
set wert=miguel

REM Um die Anzahl der Treffer zu bestimmen.
set /a "count=0"  

REM Suchen nach dem Element mit findstr. Zeilen herausfischen und das an Tab übergeben.

for /L %%c in (1,1,%tspalt%) Do for /f "delims=:" %%a in ('more %tabelle%^|findstr /N "%wert%"') Do call :tab %%a %%c   
if not %count%==0 (echo Anzahl Treffer %count% >> %output%) else echo nichts gefunden >> %output%

goto :eof

REM Element ausgeben
:tab 
   head -%1l %tabelle%|tail -1l|cut -d%delimiter% -f%2 >> %tempd%   
   for /f %%a in (%tempd%) Do IF %%a==%wert% echo Wert ist in Spalte %2 und Zeile %1 >> %output% && set /a "count+=1"  
   del temp.txt
goto :Eof

Hier ist noch, dass Problem, dass mittels findstr auch Teile eines Elementes gefunden werden beseitigt. Zwar findet findstr bei "20" auch 2000 und 200. Aber durch die Prüfung des Wertes in der inneren FOR Schleife, wird dieses Problem beseitigt.

3) Frage: Welcher Wert ist in der ersten Zeile und zweiten Spalte ?

Erstmal mit dem Skript unter 2/3). Ist zwar etwas umständlich, da die gesamte Tabelle durchgescant wird.

Ist der Spaltenzähler gleich x und der Zeilenzähler gleich y. Wird die Zelle ausgegeben.

set tspalt=2
set tzeile=4

set x=1
set y=4

for /L %%c IN (1,1,%tspalt%) DO (for /L %%d IN (1,1,%tzeile%) DO call :sub %%c %%d)
goto :eof
:sub
    set /a "aspalte=%1"  
    set /a "azeile=%2"  
    set /a "count=0"  
    for /f "skip=%azeile% delims=; tokens=%1" %%a in (tabelle.txt) Do call :sub2 %%a  
    goto :eof
    :sub2
	IF %count%==0 if %aspalte%==%x% if %azeile%==%y% echo %1 >> farben.txt 
	set /a "count+=1"  
goto :eof

Gibt uns wie erwartet 20 aus.

3.a) Wert in einer bestimmten Spalte/Zeile mittels head, cut, tail?

Aber die Befehle verweigern sich in einer FOR Schleife zu arbeiten, deshalb wird eine temp.txt erzeugt, die den aktuellen Wert enthält.

set tabelle=tabelle.txt
set delimiter=;

set y=2
set x=2

call :tab %y% %x%
echo Wert ist %ausgabew% >> farben.txt
goto :eof

REM Element ausgeben
:tab 
   head -%1l %tabelle%|tail -1l|cut -d%delimiter% -f%2 >> temp.txt
   for /f %%a in (temp.txt) Do set ausgabew=%%a
   del temp.txt
goto :Eof

4.a) Bestimmen der Spalten und Zeilenzahl einer Datei mit Semikolons als Trennzeichen.

Schön wäre es, wenn wir aus der Tabelle ohne weiteres die Zeilenzahl und Spaltenzahl herausziehen können, damit können wir an das Skript einfach eine Tabelle übergegen und es macht es schon.

Idee. Mit Findstr wird das Semikolons gesucht. Die Ausgabe ist ja

ZB:

1:2;20
2:45;56

In der ersten Zeile ist die Zeilennummer. Interessieren tuen wir uns nur für die letzte Zeile der Ausgabe, diese ist ja die Zeilenzahl der Tabelle.

Die Spaltenzahl wird etwas komplizierter gesucht.
Version 2):
Die Zeichen einer Spalte einzeln auf Belegung geprüft. Ist kein Wert vorhanden ist die Zeile zuende.Wobei dabei ausgenutzt wird, dass die for Schleife irgendwann einen Fehler ausgibt uns selbst rausspringt (sonst wäre es eine Endlosschleife.

REM Tabelleninfos
set tabelle=tabelle.txt
set delimiter=;
set header=1

set output=farben.txt

for /f "delims=:" %%b in ('more +%header% %tabelle%^|findstr /N "%delimiter%"') DO set /a "zeilenzahl=%%b"  
set /a "count=0"  

:beginnt	
	set /a "count+=1"  
        for /f "tokens=%count% delims=%delimiter%" %%a in ('more +%zeilenzahl% %tabelle%') DO goto :beginnt  

set /a "spaltenzahl=%count%-1"  
echo Spalten %Spaltenzahl%; Zeilen %Zeilenzahl%; Header %header% >> %output%

.4.b) Alles mit Cut;head,Tail.

Ja man kann die Zeilenzahl auch mit grep -c ; tabelle.txt herausbekommen.

Zwingend bei diesem Code ist also, dass es keine Leeren Elemente gibt und wie es mit anderen Trennzeichen ist ???

REM Tabelleninfos
set tabelle=tabelle.txt
set delimiter=;
set header=1

set output=farben.txt
set tempd=temp.txt

for /f "delims=:" %%b in ('more +%header% %tabelle%^|findstr /N ";"') DO set /a "zeilenzahl=%%b"  

set /a "count=0"  

:beginnt
	del %tempd%
	set /a "count+=1"   
	head -2l %tabelle%|tail -1l|cut -d%delimiter% -f%count% >> %tempd%  
	for /f %%a in (%tempd%) Do IF not defined %%a (goto :beginnt)

del %tempd%
set /a "spaltenzahl=%count%-1"  
echo Spalten %Spaltenzahl%; Zeilen %Zeilenzahl%; Header %header% >> %output%

A) Alles zusammen in einem Skript

@echo off
REM Tabellenbatch mit CUT,TAIL,HEAD,FINDSTR
@echo off
REM ----------------------------------------------------
REM Externe Paramter
set tabelle=tabelle.txt
set delimiter=;
set header=1
REM ----------------------------------------------------

REM ----------------------------------------------------
REm Interne Paramter
set tempd=%temp%\tabtemp.txt
set output=farben.txt
set /a "count=0"  
REM ----------------------------------------------------


:main
REM ----------------------------------------------------
REM Externe Paramter
set tabelle=tabelle.txt
set delimiter=;
set header=1
REM ----------------------------------------------------

REM Hier kommen die Befehle rein




REM----

goto :eof

REM -----------------------------------------
REM tabelleninfos

REM Zeilenzahl bestimmen
:spaltcount

set /a "countt=0"  
        if not defined zeilenzahl call :zeilencount
	:beginnt	
	set /a "countt+=1"  
        for /f "tokens=%countt% delims=%delimiter%" %%a in ('more +%zeilenzahl% %tabelle%') DO goto :beginnt  

set /a "spaltenzahl=%countt%-1"  

goto :eof
REM -----------------------------------------

REM -----------------------------------------
REM Spaltenzahl ermitteln
:zeilencount
	for /f "delims=:" %%b in ('more +%header% %tabelle%^|findstr /N "%delimiter%"') DO set /a "zeilenzahl=%%b"  
goto :eof
REM -----------------------------------------

REM -----------------------------------------
REM Element ausgeben
:element   
   REM Header berücksichtigen
   if exist %tempd% del %tempd%
   set /a "yoff=%1+%header%"    
   head -%yoff%l %tabelle%|tail -1l|cut -d%delimiter% -f%2 >> %tempd%
   for /f %%a in (%tempd%) Do set ausgabew=%%a
   del %tempd%
goto :Eof
REM -----------------------------------------

REM -----------------------------------------
:suche
   if exist %tempd% del %tempd%
   set /a "count=0"  
   if not defined spaltenzahl call :spaltcount
   for /L %%c in (1,1,%spaltenzahl%) Do for /f "delims=:" %%a in ('more %tabelle%^|findstr /N "%wert%"') Do call :sub %%a %%c   
   goto :eof
   :sub
   set /a "yoff=%1"  
   set /a "ya=%1-%header%"  
   head -%yoff%l %tabelle%|tail -1l|cut -d%delimiter% -f%2 >> %tempd%   
   for /f %%a in (%tempd%) Do IF %%a==%wert% echo Wert %wert% gefunden in Spalte %2 und Zeile %ya% >> %output% && set /a "count+=1"  
   del %tempd%
   goto :eof
REM -----------------------------------------


REM -----------------------------------------
:ausgabe
echo Wert ist %ausgabew% >> %output%
if defined wert (if not %count%==0 (echo Anzahl Treffer %count% >> farben.txt) else echo nichts gefunden >> %output%)
if defined %spaltenzahl% if defined %zeilenzahl% echo Spalten %Spaltenzahl%; Zeilen %Zeilenzahl%; Header %header% >> %output%
goto :eof
REM -----------------------------------------

-----------------------------------------------------------------------------------------------------------------------------------

Aufrufe:

1) Frage: Element: 1 Zeile und 2 Spalte plus Element: 2 Zeile und 1 Spalte

:main
set y=1
set x=2
call :element %y% %x%
set /a "Summe+=%ausgabew%"  

set x=1
set y=2
call :element %y% %x%
set /a "Summe+=%ausgabew%"  
echo summe ist %summe% >> summe.txt
goto :eof

2) Frage: Summe der Elemente in der ersten Spalte

:main

call :zeilencount
set x=1

call :addiere
echo summe in der Spalte %x% ist %summe% >> summe.txt

goto :eof

:addiere
for /L %%a in (1,1,%zeilenzahl%) DO call :sum %%a 
goto :eof
:sum
call :element %1 %x%
set /a "Summe+=%ausgabew%"   

goto :eof

2) Frage: Summe der Elemente in der ersten Zeile

:main

call :zeilencount
call :spaltcount

set y=1

call :addiere
echo summe in der Zeile %y% ist %summe% >> summe.txt

goto :eof

:addiere
for /L %%a in (1,1,%spaltenzahl%) DO call :sum %%a 
goto :eof
:sum
call :element %y% %1
set /a "Summe+=%ausgabew%"   

goto :eof

3) Suchen eines Elementes in der ersten Spalte

:main

call :zeilencount
call :spaltcount

REM Suchen in der ersten Spalte
set wert=2

set x=1
for /l %%a in (1,1,%zeilenzahl%) DO call :typb %%a
goto :eof
:typb
call :element %1 %x%
IF %ausgabew%==%wert% echo %wert% in Zeile %1 >> signal.txt 

goto :eof

4) Addiere 8 auf den Wert in der zweiten Spalte und zweiten Zeile.

Hierfür wird sed benutzt.
(Quelle und Anleitung: http://www.student.northpark.edu/pemente/sed/sedfaq.html )

Für den Anfang sei folgendes gesagt.

sed "5 s/45/50/1" tabelle.txt > ausgabe.txt

Macht folgendes: In der 5 Zeile wird das erste Vorkommen (1) von 45 durch 50 ersetzt. Die gesamte Tabelle wird in ausgabe.txt ausgegeben.

set "1,5 s/45/50/g" tabelle.txt > ausgabe.txt

Ersetzt uns von der Zeile 1 bis 5 die 45 gegen 50. g steht hier für global.

set "s/45/50/g" tabelle.txt > ausgabe.txt

Ersetzt alle 45 gegen 50.

Für den Anfang begnügen wir uns, damit das in der Tabelle keine doppelten Elemente vorkommen.

Also nicht 50;50 oder 4050;50.

Ziel soll es aber sein ein bestimmtes Element zu ersetzen. (Wird noch gebaut)

Jetzt der Code.

set header=1
:main
call :zeilencount
call :spaltcount

set y=3
set x=2

call :element %y% %x%
echo %ausa% >> testtt.txt
set /a "ausgabeneu=%ausgabew%+8"  
set /a "yoff=%y%+1"  
sed "%yoff% s/%ausgabew%/%ausgabeneu%/1" %tabelle% > %output%  

goto :eof