---

Moin,

ich bekam mal vom unglaublichen Rolf folgendes Script als prg:

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

---

Leider scheint das aber weder unter 7.4 noch unter 7.5 zu fuinktionieren.
Es wird einfach keine Info.TXT erstellt.

Kann das jemand unter der 7.5 lauffähig machen und mir als prg zusenden?

MfG
Heiko

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

---

moin Heiko,

"Info.Txt" wird nur erzeugt, wenn das script einen fehler findet.

------------------
tschüss aus hannover
bodo m

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

---

Hallo Bodo,

Zitat:

---

Original erstellt von Bodo_M:
moin Heiko,

"Info.Txt" wird nur erzeugt, wenn das script einen fehler findet.

---

Und wo finde ich die Informationen die das Script normalerweise ausgeben soll?

MfG
Heiko

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

---

hallo Heiko,

das sagte ich schon. 

was erwartest du denn?

------------------
tschüss aus hannover
bodo m

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

---

Zitat:

---

Original erstellt von HRompel:
Und wo finde ich die Informationen die das Script normalerweise ausgeben soll?

---

Hallo Heiko,

ich bin schon lange aus der Übung, aber schaue mal, ob das Script
eine neue Stückliste anlegt, und die Daten da rein schreibt.

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

       

---

Hallo Uli,

Zitat:

---

Original erstellt von UKanz:
Hallo Heiko,
ich bin schon lange aus der Übung, aber schaue mal, ob das Script
eine neue Stückliste anlegt, und die Daten da rein schreibt.

---

Negativ.
Obwohl eine Dialogbox mitteilt, das eine "Projekt INFO im Userverzeichnis angelegt" wurde, gibt es die dort nicht.
   

MfG
Heiko

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

---

Zitat:

---

Original erstellt von HRompel:
"Projekt INFO im Userverzeichnis angelegt"

---

Hallo Heiko,

nicht "angelegt" sondern "anlegen" steht in der Meldung. 

Du musst also erst ein Projekt "Info.pro" im USR-Pfad anlegen. Dann führst Du das
Script aus, und es wird in dem Projekt "Info.pro" eine Stückliste "Info" angelegt.

Wie gesagt, ich bin ein bißchen aus der Übung, aber das konnte ich gerade
noch entziffern.

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

       

---

Hallo Uli,

Zitat:

---

Original erstellt von UKanz:
Hallo Heiko,
ach so, da oben hängst Du fest... Du musst erst ein Projekt "INFO.pro"
im USR-Pfad anlegen. Dann führst Du das Script aus, und es wird in dem
Projekt "Info.pro" eine Stückliste "Info" angelegt.

---

DANKE. Genau das war es. Sollte mir für die Zukunft eine Txt-Datei dabei legen.
Schade das das Script seine Aufgabe nicht rekursiv durch ein Verzeichnis/eine Platte erledigen kann.

MfG
Heiko

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

---

Hallo Heiko,

Zitat:

---

Original erstellt von HRompel:
nicht rekursiv

---

reku...was? Gibt es dafür auch ein Deutsches Wort?    

Zitat:

---

Original erstellt von HRompel:
ein Verzeichnis/eine Platte

---

Palette? Was meinst Du denn mit einer Palette?
Wenn ich das Script so ansehe, dann durchsucht es ein Verzeichnis
nach allem was mit .pro endet.

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

       

---

Hallo Uli,

Zitat:

---

Original erstellt von UKanz:
Hallo Heiko,
Palette? Was meinst Du denn mit einer Palette?
Wenn ich das Script so ansehe, dann durchsucht es ein Verzeichnis
nach allem was mit .pro endet.

---

Überarbeite? ich habe Platte und nicht Palette geschrieben.

Ich weiß das das Script EIN Verzeichnis durchsucht.
Was ich mit damals als ich das Script das erstemal bekam schon wünschte, war das das Script sich auch durch Unterverzeichnisse fühlt und man so eine komplette Liste ALLER Projekte bekommen würde.

Denn wenn die Projekte in der Struktur /Geschäftsjahr/Auftragsnummer/elcad/ liegen, muß man entweder alle Projekte erst in ein Verzeichnis Kopieren oder jedes Unterverzeichnis einzeln auswählen.

MfG
Heiko

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

---

Hallo Heiko,

ups, jetzt wo Du es sagst... Hatte irgendwie "Palette" gelesen.   
So weit reichen meine Kenntisse leider nicht, dass ich Dir sagen könnte,
wie man das Sript ändern müsste, damit es auch alle Unterverzeichnisse
durchsucht. Da kann Dir wahrscheinlich unser Rolf Köhler am besten
weiterhelfen.

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

       

---

Hallo Uli,

Zitat:

---

Original erstellt von UKanz:
Da kann Dir wahrscheinlich unser Rolf Köhler am besten
weiterhelfen.

---

Möge der Gott Arbeitszeit dem Unglaublichen Rolf Zeit geben das Script zu erweitern.

MfG
Heiko

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

---

Hallo Heiko,

na der Rolf ist doch ein gaaanz lieber. Vielleicht solltest Du es noch
mal mit dem Flens-Joker versuchen. 

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

       

---

Hallo Uli,

Zitat:

---

Original erstellt von UKanz:
na der Rolf ist doch ein gaaanz lieber.

---

Würde nie das Gegenteil behaupten...

Zitat:

---

Vielleicht solltest Du es noch
mal mit dem Flens-Joker versuchen.  

---

Bis zur nächsten HMI dauertes aber noch sehr lange...

Gruss
Heiko

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

---

Zitat:

---

Original erstellt von HRompel:
Bis zur nächsten HMI dauertes aber noch sehr lange...

---

Hallo Heiko,

leider habe ich unseren Rolf noch nie auf einer Messe getroffen. Er muss wohl
die Stellung halten, wenn der Bodo Weltreisen (Mumbai etc.) unternimmt. 

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

       

---

Hallo Uli,

Zitat:

---

leider habe ich unseren Rolf noch nie auf einer Messe getroffen.

---

Ich auch nicht.
Aber seine Bierboten :D

Zitat:

---

Er muss wohl
die Stellung halten, wenn der Bodo Weltreisen (Mumbai etc.) unternimmt.  

---

Vielleicht ist auch nur ein Flens zuwenig um ihn aus seiner gewohnten Umgebung zu locken 

Bye
Heiko

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

---

Zitat:

---

Original erstellt von UKanz:
dann durchsucht es ein Verzeichnis nach allem was mit .pro endet.

---

Den Kai findet das Script also nie, denn er beginnt mit "Pro". "Pro-Elit".     

Sorry Kai 

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

       

---

moin zusammen,

RKo (der unglaubliche) war gestern schon weg und ist auch erst am
freitag wieder im büro.

schick ihm doch einfach eine mail, in welcher art das script
verändert werden soll. er hat es gern, wenn die beschreibung,
möglichst genau ist.

------------------
tschüss aus hannover
bodo m

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