---

Moin,

wenn ich ein compiliertes Script hier habe, von dem ich aber keinen Quellcode habe, kann man da draus wieder ein Script erstellen/decompilieren?

------------------
Es grüßt von der Nordseeküste
Heiko Rompel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

wenn Du das prg mit einem Texteditor öffnest, kannst Du noch einige nicht kompilierte
Teile erkennen und daraus ein neues Script ableiten.
Oder beim Ersteller nachfragen, ob er den Quelltext heraus gibt.

------------------
Viele Grüße
Uli

  Wer nicht genießt, wird ungenießbar...  [CAD.de-smileys] [Elcad-Tauschbörse]

---

Moin,

Zitat:

---

Original erstellt von UKanz:

Oder beim Ersteller nachfragen, ob er den Quelltext heraus gibt.

---

Ups, wie ich feststellen mußte, habe ich dach den Quellcode hier :-)
Nur leider macht das Script nicht meht das was es soll (komisch).
Eigentlich hat Rolf mir das Script mal geschrieben, um zu ermitteln,
welche Projekte in einem Pfad liegen und mit welcher Version sie das letzte mal geöffnet wurden.

Vielleicht kann sich ja mal jemand hier das Script angucken, was
da nicht stimmt. Was absolut super wäre eine Ergänzung um eine Rekursion. So das man nur noch das Hauptverzeichnis angibt, und das Script schaut auch in den Unterverzeichnissen nach und erstellt zu eine komplette Liste aller Projekte.

Vielleicht hat ja jemand Lust und Zeit sich dem Script anzunehmen.

Hier mal der Quellcode, den ich hier noch liegen hatte:

Code:

---

main

char pfad[160];
char pro[500][32];
fptr fp;
short anz,isda;
short i=[1];
get ge_path(pfad);

ed var ("Suchen in:","pfad","such (pfad)","","?");

file get_all (pfad,"*.pro",[0],[1],anz,pro);

exist pro (isda,".","info");

if (!isda)
confirm_box
text ("Projekt INFO im Userverzeichnis anlegen!!!")
bitmap_no([3])
button ("&OK");
endif

if (isda)
file open (fp,"info.txt","w+");

create (".","info","INFO")!
table ("PART")
struktur
(name "PFAD/PRO" code[20000] length[138]),
(name "DATUM"    code[20001] length[10]),
(name "VERSION"  code[20002] length[10]);

status_box create (i& " von: "&anz&"  "& pro[1])
title ("PROJEKTANALYSE")
max (anz);

while (i<=anz)
call info_1 (pfad,pro,i,fp);
i++;
status_box update text (i& " von: "&anz&"  "& pro[i]) (i);
endwhile
status_box cancel;

use (".","INFO","INFO"); table ("PART");
browse;
file close (fp);
txt ("info.txt");
endif
end

sub such (char pfad)
char pro[32];
char ex[3];
select all ([2],pfad,pro,ex);
subend
sub info_1 (char pfad,char pro,short i,fptr fp)
char pfad_pro[138];
char datum1[10];
char ver1[10];
long a1;
long recs[4600];
short fehler;
fspec build (pfad_pro,"%s%f",pfad,pro[i]);
use (pfad,pro[i],"AUC_SYSTEM")return (fehler);
if (fehler)
file output (fp,"%s\n",pro[i]);
endif
if (!fehler)
table ("ZEICHNUNGEN");
record get all (a1,recs)order by (12);
          if (a1)
record enter (recs[a1]);
datum1=12;
          table ("LAST_PRO_REV");
record enter ([1]);
ver1=1;
use (".","info","INFO"); table ("PART");
1=pfad_pro;
2=datum1;
3=ver1;
record insert;
          endif
        endif
subend

---

------------------
Es grüßt von der Nordseeküste
Heiko Rompel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

Zitat:

---

Original erstellt von HRompel:
Nur leider macht das Script nicht meht das was es soll (komisch).
Eigentlich hat Rolf mir das Script mal geschrieben

---

Hallo Heiko,

dann solltest Du besser auch beim Rolf nachfragen.  

0511/6103-120  oder  rko(AT)aucotec.com

------------------
Viele Grüße
Uli

 Wer nicht genießt, wird ungenießbar...  [CAD.de-smileys] [Elcad-Tauschbörse]

---

rev_entry.zip

Hallo Heiko,

wenn es das Tool ist was mir Rolf auch mal gemailt hat dann versuche es mal. Bei mir geht es noch so wie mir das beschrieben wurde.

------------------
mfg Robert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Uli,

Zitat:

---

Original erstellt von UKanz:
  Hallo Heiko,
dann solltest Du besser auch beim Rolf nachfragen.  :D

---

Du der ist zur Zeit sehr ausgelastet und ein drittes (unbeantwortetes) mal will ich ihn jetzt deswegen nicht nochmal anschreiben.

Besonders, da er schon bei der ersten Kontaktaufnahme wegen des Scriptes, mitteilte das eine Rekursivität nicht mal ebend so eingebunden wird.

------------------
Es grüßt von der Nordseeküste
Heiko Rompel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

Zitat:

---

Original erstellt von Bertologe:
Hallo Heiko,
wenn es das Tool ist was mir Rolf auch mal gemailt hat dann versuche es mal. Bei mir geht es noch so wie mir das beschrieben wurde.

---

Nee, diese Tool listet zwar die Elcad-version auf, kann das aber nur bei
einem Projekt und listet auch nicht das Verzeichniss auf, in dem sich das Projekt befindet.

------------------
Es grüßt von der Nordseeküste
Heiko Rompel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

das PRG lief immer ohne Probleme und plötzlich geht es nicht mehr?
Ich könnet ja mal testen, ob es bei mir geht, aber ich habe keinen Compiler. 

------------------
Viele Grüße
Uli

  Wer nicht genießt, wird ungenießbar...  [CAD.de-smileys] [Elcad-Tauschbörse]

---

info002.zip

Hallo Uli,

Zitat:

---

Original erstellt von UKanz:
Hallo Heiko,
das PRG lief immer ohne Probleme und plötzlich geht es nicht mehr?

---

Vielleicht ein MS-Update oder da das Prg von August 2007 ist - das Update auf die 7.4.

Zitat:

---

Original erstellt von UKanz:

Ich könnet ja mal testen, ob es bei mir geht, aber ich habe keinen Compiler. 

---

Im Archiv befindet ich auch eine Kompilierte Version (habe selber auch keinen Compiler)

------------------
Es grüßt von der Nordseeküste
Heiko Rompel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Welcher Fehler kommt denn, unzulässige Grenzen?
Das liegt dran, dass Rolf von einer maximalen Zeichnungsanzahl von 4600 ausgeht (Variable recs). Er schaut in die Zeichnungstabelle, um das neueste Datum einer Zeichnung zu ermitteln.

Das Scipt erwartet ein Projekt Info im Userverzeichnis, aus dem das Script dann gestartet werden kann!

[Diese Nachricht wurde von Strohli am 22. Apr. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

Zitat:

---

Original erstellt von Strohli:
Welcher Fehler kommt denn, unzulässige Grenzen?

---

Keiner, es passiert gar nichts außer das diese Infobox kommt.

Zitat:

---

Das Script erwartet ein Projekt Info im Userverzeichnis, aus dem das Script dann gestartet werden kann!

---

Okay, ich wußte doch das da noch irgendwas war, was ich mir nicht notiert hatte. Jetzt läuft es so weit, bis auf zwei Sachen halt:
1.) Keine Rekursivität
2.) Startpunkt ist immer das Userverzeichnis (damit kann ich leben)

Zitat:

---

Das liegt dran, dass Rolf von einer maximalen Zeichnungsanzahl von 4600 ausgeht (Variable recs). Er schaut in die Zeichnungstabelle, um das neueste Datum einer Zeichnung zu ermitteln.

---

Also, mit 4600 Zeichnungen pro Durchlauf kann ich leben :-)

------------------
Es grüßt von der Nordseeküste
Heiko Rompel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was meinst du mit : Keine Rekursivität?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

Zitat:

---

Original erstellt von Strohli:
Was meinst du mit : Keine Rekursivität?

---

Okay, das Wort "Rekursivität" ist a) falsch geschrieben und b)nicht so eindeutig wie ich dachte.

Was ich meine ist die Möglichkeit, das man ein Startverzeichnis angibt und dass das Script ausgehend von diesem Verzeichnis auch alle Unterverzeichnisse mit durchsucht.

------------------
Es grüßt von der Nordseeküste
Heiko Rompel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP