Hallo Leute
Habe ein Problem beim Auslesen von Druckkopie Summen aus dem UI des Druckers.
Leider bietet die Oberfläche keinen Export als TXT oder CSV Datei an. Deshalb möchte ich das ganze gerne mittels Excel auslesen und dort auswerten.
Leider sind im Quelltext keine IDs vergeben für die Einträge der Summen. Ich bin dann auf die Regular Expressions gestossen, kenne mich da aber gar nicht aus.
Der Seitenquelltext sieht wie untenstehend aus:
In der resultierenden Tabelle möchte ich den Wert 999 als Objektnummer haben
und diese 9 Einträge die dem ersten Block im HTML Code entsprechen. Der zweite kürzere HTML Block soll ignoriert werden. Die nächste Objektnummer wäre dann 5030.
Drucksummen
Total (Farbe)
Total (Schwarz)
Farbkopie
Farbscan
Farbdruck
Schwarzkopie
Schwarzscan
Schwarzdruck
if( "true" != NewCardStat )
{
document.writeln('
document.writeln('');
document.writeln('<\/td>');
}
document.writeln('
document.writeln('');
document.writeln('999');
document.writeln('<\/a>');
document.writeln('<\/td>');
if( "true" == NewCardStat )
{
document.writeln('
document.writeln('');
document.writeln('<\/td>');
}
if( "true" == has_clrprt )
{
Draw_CounterLimit( "2530", "0", "0", "false" );
Draw_CounterLimit( "1104", "0", "0", "true" );
Draw_CounterLimit( "1426", "0", "0", "true" );
Draw_CounterLimit( "29", "0", "0", "true" );
Draw_CounterLimit( "7", "0", "0", "true" );
Draw_CounterLimit( "1075", "0", "0", "false" );
Draw_CounterLimit( "105", "0", "0", "true" );
Draw_CounterLimit( "2", "0", "0", "true" );
Draw_CounterLimit( "1321", "0", "0", "false" );
}
else
{
Draw_CounterLimit( "2530", "0", "0", "false" );
Draw_CounterLimit( "7", "0", "0", "true" );
Draw_CounterLimit( "105", "0", "0", "true" );
Draw_CounterLimit( "2", "0", "0", "true" );
Draw_CounterLimit( "1321", "0", "0", "false" );
}
document.writeln('<\/tr>');
document.writeln('
if( "true" != NewCardStat )
{
document.writeln('
document.writeln('');
document.writeln('<\/td>');
}
document.writeln('
document.writeln('');
document.writeln('5030');
document.writeln('<\/a>');
document.writeln('<\/td>');
if( "true" == NewCardStat )
{
document.writeln('
document.writeln('');
document.writeln('<\/td>');
}
if( "true" == has_clrprt )
{
Draw_CounterLimit( "2", "0", "0", "false" );
Draw_CounterLimit( "2", "0", "0", "true" );
Draw_CounterLimit( "0", "0", "0", "true" );
Draw_CounterLimit( "0", "0", "0", "true" );
Draw_CounterLimit( "0", "0", "0", "true" );
Draw_CounterLimit( "2", "0", "0", "false" );
Draw_CounterLimit( "0", "0", "0", "true" );
Draw_CounterLimit( "0", "0", "0", "true" );
Draw_CounterLimit( "0", "0", "0", "false" );
}
else
{
Draw_CounterLimit( "2", "0", "0", "false" );
Draw_CounterLimit( "0", "0", "0", "true" );
Draw_CounterLimit( "0", "0", "0", "true" );
Draw_CounterLimit( "0", "0", "0", "true" );
Draw_CounterLimit( "0", "0", "0", "false" );
}
document.writeln('<\/tr>');
Vielleicht kennt sich jemand damit aus und könnte mir dabei behilflich sein.
Wäre toll.
Vielen Dank.
Boris
6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread
das ist a) keine komplette Datei und b) frage ich mich, warum Du Dir das nicht aus dem Browser einfach rauskopierst.
Wenn wir das bearbeiten sollen, kopiere den Quelltext ein einen Editor, speichere ihn als .txt ab und lade ihn als Datei hoch.
So weiß nämlich keiner, was nun in Deiner Datei steckt und was nicht.
Schöne Grüße,
Michael
Danke Dir für Deine Antwort. Ich habe der Übersichtlichkeit halber nur einen Auszug aus der Webseite hochgeladen. Es sind mittlerweile mehrere Seite die über die UI aufgerufen werden müssen um alle Objekte anzuzeigen (gestaffelt nach 100er Nummern).
Habe aber nun mal gemäss Deinem Wunsch die Einträge welche unter dem Abschnitt 100 angezeigt werden als .txt Datei gespeichert. Leider ist die Darstellung im Browser relativ schlecht um es direkt rauszukopieren. Wie gesagt sind es mehrere Seiten die ausgewählt werden müssen 5 oder 6 und ich mache das dann für 6 verschiedene Drucker also 6 x 6 und dies jeden Monat. Darum möchte ich es gerne so weit wie möglich automatisieren (oder zumindest halb automatisieren).
Die Datei habe ich hier hochgeladen:
https://www.herber.de/bbs/user/99630.txt
Gruss Boris
anbei ne abgeänderte Datei aus einem anderen Thread. Im Kopf stehen etliche DIMs, deren Variablen nicht benutzt werden, aber es ist zu spät in der Nacht, als daß ich noch Lust hätte, das aufzuhübschen.
In der Tabelle kannst Du Objekte angeben (L13/14 und ggf. weiter runter, mußt halt im Makro ändern), nach denen gesucht wird.
Weiterhin mußt Du das Verzeichnis/die Dateinamen abändern; das Makro liest derzeit *alle* Files im angegebenen Ordner ein: die Schleife kannst Du ja auskommentieren.
Hier: https://www.herber.de/bbs/user/99631.xls
Happy Exceling,
Michael
Danke für Deine Hilfe noch so spät nachts :-) Da ich nicht so der VBA Profi bin schaue ich mal ob ich aus Deinem Code schlau werde.
Beste Grüsse Boris
anbei eine Datei zum testen. Schaktfläche klicken, Datei(en) auswählen und "Bearbeitung Starten".
https://www.herber.de/bbs/user/99650.xlsm
Gruß Sepp
Auch Dir herzlichen Dank für die Hilfestellung. Da ich wie erwähnt nicht so der VBA Profi bin versuche ich mal Deinen Code zu verstehen und werde es selbstverständlich testen.
Beste Grüsse
Boris
Beliebteste Forumthreads (12 Monate)
-
ThreadtitelLesezugriffe
-
34081
-
23512
-
16681
-
16052
-
15741
-
15343
-
14267
-
12306
-
11938
-
11417
-
10634
-
10521
-
9511
-
9498
-
9480
-
9079
-
8864
-
8800
-
8428
-
8178
-
8062
-
7989
-
7915
-
7806
-
7675
-
7521
-
7291
-
7167
-
7070
-
7068
-
6935
-
6521
-
6515
-
6294
-
6182
-
6026
-
6006
-
5981
-
5920
-
5910
-
5872
-
5838
-
5829
-
5734
-
5705
-
5689
-
5676
-
5582
-
5539
-
5492
-
5379
-
5341
-
5321
-
5224
-
5182
-
5105
-
5082
-
5082
-
5053
-
5053
-
4974
-
4903
-
4847
-
4841
-
4789
-
4769
-
4754
-
4727
-
4710
-
4679
-
4659
-
4654
-
4588
-
4564
-
4556
-
4516
-
4508
-
4482
-
4469
-
4452
-
4430
-
4411
-
4362
-
4360
-
4357
-
4332
-
4327
-
4327
-
4324
-
4308
-
4300
-
4285
-
4260
-
4229
-
4199
-
4182
-
4158
-
4142
-
4075
-
4025
Beliebteste Forumthreads (12 Monate)
-
ThreadtitelLesezugriffe
-
34081
-
23512
-
16681
-
16052
-
15741
-
15343
-
14267
-
12306
-
11938
-
11417
-
10634
-
10521
-
9511
-
9498
-
9480
-
9079
-
8864
-
8800
-
8428
-
8178
-
8062
-
7989
-
7915
-
7806
-
7675
-
7521
-
7291
-
7167
-
7070
-
7068
-
6935
-
6521
-
6515
-
6294
-
6182
-
6026
-
6006
-
5981
-
5920
-
5910
-
5872
-
5838
-
5829
-
5734
-
5705
-
5689
-
5676
-
5582
-
5539
-
5492
-
5379
-
5341
-
5321
-
5224
-
5182
-
5105
-
5082
-
5082
-
5053
-
5053
-
4974
-
4903
-
4847
-
4841
-
4789
-
4769
-
4754
-
4727
-
4710
-
4679
-
4659
-
4654
-
4588
-
4564
-
4556
-
4516
-
4508
-
4482
-
4469
-
4452
-
4430
-
4411
-
4362
-
4360
-
4357
-
4332
-
4327
-
4327
-
4324
-
4308
-
4300
-
4285
-
4260
-
4229
-
4199
-
4182
-
4158
-
4142
-
4075
-
4025