Aktueller Inhalt von Aulicus

0;1;2;3;4;5;6;7;8;9;10;11;12;13;14; 1;;0EAA10;;;Greiferbrückenkran;;KWM;Bremsen und Not-Halt-Einrichtungen prüfen;täglich;a;;;;; 2;;0EAA10;;;Greiferbrückenkran;;KWM;Kran auf augenscheinliche Mängel kontrollieren;täglich;a;;;;; 3;;0EAA10;;;Greiferbrückenkran;;KWM;Funktion und Zustand sämtlicher...

Ach noch zum Hinweis die Namensvergabe ist vielleicht noch etwas unglücklich :shock: Der Button rechts-oben hat nichts mit dem Button links-unten zu tun oder umgekehrt... Oh mann ich brauch Urlaub...

Die Meldungen sind als "Störmeldungen" hinterlegt allerdings in einer eigenen Meldegruppe und werden von der Steuerung in einem eigene DB ausgelöst -> Wartung welche dann in dem Meldefenster angezeigt werden: Dann Auf den Button "Übersicht" drücken und die entsprechenden Texte werden im...

Du kannst es so verstehen: Eine Wartungsmeldung kommt z.B. monatliche Wartung fällig, dann soll nur der bereich in der Übersicht angezeigt und scrollbar sein, welcher die dem entsprechende Codierung hat (hier wäre es jetzt "d") Die tägliche meldung kommt ja logischerweise auch täglich d.h. soll...

Was ich sehr "kurios" fand das jedes System erst die x-Koordinate (Breite bzw. rechts-links) und dann die y-Koordinate (Höhe bzw. hoch-runter) verwendet... Mathematisch, Karten oder auch Excel Nur Mister Siemens will es andersrum:confused:

hier noch Bilder von der RT:

x=SmartTags("Interne\cmd_updown")'Variable zum Auf- bzw. Abwärtsscrollen Geht übrigens direkt in diesem Skript ohne das seltsame Zusatzskript welches ich weiter oben mal gepostet habe... Allerdings mus dann mit den Tasten, ich nenne sie mal up down" das Skript jedes mal neu ausgeführt werden...

Do While f.AtEndOfStream <> True MyZf = f.ReadLine field = Split(MyZf, ";")'Trennzeichen suchen For i=0 To 15'Spaltenanzahl field(i) = Replace(field(i), " ", "")'Leere Felder "ersetzen" HiField(j, i) = field(i) Next j = j + 1 Loop '1.Spalte...

wäre es theoretisch auch möglich in einer bestimmten Zelle der Datei nach einem Charakter zu suchen und die dazugehörige Zeile zu ermitteln?! Beispiel: Wartungsmeldungen mit Codierung "a" stehen nur bis Zeile 21, also scrollen nur bis Zeile 21 möglich. Da die Wartungslisten bei jeder Anlage...

Ach ja, und natürlich sind die Wartungslisten von Anlage zu Anlage verschieden

Der Text nicht, der ist bei den Meldungen hinterlegt, es geht viel mehr um KKS-Codierung, Typ Hersteller und Dokumentationsverweise welche manche Betreiber für ihre Archivierung benötigen

Puh, wo soll ich anfangen... was genau willst du wissen?!

Sorry falls ich dich verwirrt habe Harald, die Sache ist die das selbst ständig hin und her springe... Hab die Einträge nur geändert damit es übersichtlicher wird (hatte die Funktion für Code einfügen noch nicht entdeckt). Das mit dem Wert erhöhen hat sich erledigt da ich es hinbekommen habe...

jetzt hätte ich noch die Frage ob und wie man Bitmeldungen in ein Script holt um sie darin zu verwenden (natürlich nur den Wert nicht den Meldetext)

ich hab´s hinbekommen! man braucht noch ein Skript vom Typ Function in dem man dann einen Wert einliest und weitergibt 'Routine zum Scrollen Dim Result Result = SmartTags("Interne\cmd_updown") Scroll = Result