Hallo Herr Mehnert,

vielen Dank für die Info - ich versuche das mal zu verwirklichen !

Gruß
E. Berger

Hallo Herr Pilz,

vielen Dank für die Anregung! Ich schau mal, ob ich das was zustande bringe.

Gruß

E. Berger

Hallo Herr Berger,

ich freue mich, dass Sie noch einen weiteren Ansatz zur Lösung Ihrer Anforderung über das Redscope-Forum erhalten haben.

Dennoch, weil ich es zugesagt hatte: aus Ulm ein PRAGMATISCHER Lösungsansatz, der vielleicht nicht schick ist, aber funktionieren sollte (konnte ihn hier nicht testen):

Über das X-Kommando können Sie aus SAS Betriebssystem-Kommandos absetzen. Wenn ich mich richtig an meine DOS-Zeiten erinnere, sollte
das Kommando

DIR /S C: > Datnam.txt

einen Directory Tree in eine Textdatei namens Datnam ausgeben.

Diese Datei können SIe dann klassisch wieder in ein SAS-Programm einlesen

Filename in 'C:\Datnam.txt';

Data Test;
infile in;
input @001 Text $180;

Dann müssten Sie den eingelesenen String unter Umständen noch auseinandernehmen, bspw. mit dem Index-Bafehl.

Viele Grüße von der SFD !

Marcus Pilz
Projektleiter,
Produktverantwortung 'HV-Auswertungssysteme'

Commerzbank AG

Hallo Herr Pilz,

bis dato mache ich es genau so, dass ich in der DOS-Umgebung eine Datei erstelle und die dann mit SAS verarbeite .

Wie man aus der SAS-Umgebung DOS Kommandos absetzt ist mit noch unbekannt.

Wie dem auch sei, was mir noch fehlt ist wie man die Informationen "Aufnahmedatum" und "Änderungsdatum" oder auch "Dateigröße" ausliest.

Vielen Dank für Ihr Interesse.

Falls ich eine Lösung finde werde ich sie natürlich hier einstellen.

Gruß
E. berger

Hallo Hr. Berger,

versuchen Sie's doch mal so:

http://support.sas.com/ctx/samples/index.jsp?sid=283&tab=details

Viele Grüße

G. Weist

Hallo Herr Weist,

das Ersellen einer Ordner und Dateilsite klappt damit sehr gut. Danke! Das erspart mir doch den umständlichen Weg über DOS .

Wie man aber an bestimmte Dateiinfos (Aufnahmedatum von Fotos) kommt, habe ich nicht rausbekommen.

Gruß

E. Berger

Hallo Herr Berger,

da ich mich heute erst an diesem Forum angemeldet habe kommt meine Antwort etwas später. Aber ich habe da noch was für Sie. Mit dem Freeware Programm jhead.exe können Sie die s.g. EXIF Daten einer Bilddatei auslesen und das sogar rekursiv über mehrere oder alle Unterverzeichsebenen.

Siehe www.sentex.net/~mwandel/jhead/. Mit dem folgenden SAS Datastep können Sie die Ausgabe des Programms für alle *.jpg Dateien unter dem Verzeichnis x:\ordner einlesen:

filename exif pipe "jhead.exe %bquote("x:\ordner\**\*.jpg")";
data work.exif(drop=dummy);
format
path $255.
filename $32.
filedate ddmmyyp10.
filetime time.
;
retain filename path dummy;
infile exif;
input;
if _infile_ =: 'File name' then do;
dummy = reverse(substr(_infile_, 16));
filename = reverse(substr(dummy, 1, index(dummy, '\')-1));
path = left(trim(reverse(substr(dummy, index(dummy, '\')))));
end;
else if _infile_ =: 'File date' then do;
filedate = input(trim(substr(_infile_, 16, 10)), yymmdd10.);
filetime = input(trim(substr(_infile_, 27, 8)), time8.);
output;
end;
run;


Jetzt müssten Sie allerdings in einem weiteren Schritt noch die Dateiattribute (Dateiänderungsdatum etc.) ergänzen.

Eine alternative Lösung wäre die Programmierung eines Perl Scripts, welches die gewünschten EXIF Daten und gleichzeitig die Dateiattribute ausgeben kann. Ich habe ein solches Script mal geschrieben. Wenn Sie Interesse habe würde ich es Ihnen zusenden.

M.f.G.

Thomas Frerichs
Datafocus GmbH
www.datafocus.de

Hallo Herr Berger,

hier noch eine (verspätete) Lösung, die auf der KSFE (von Grischa Pfister) unter Tipps und Tricks vorgestellt wurde:

%Let dir = c:\*.txt;
Filename in Pipe "dir &dir";
Data _null_;
Length file $256;
Retain rx;
If ( _n_ = 1 ) Then rx = rxparse(" ( ' '*
' '*
' '
) TO =4 ");
Infile in End = eof;
Input;
If ( rxmatch(rx,_infile_) ) Then Do;
Call rxchange(rx,1,_infile_,file);
Put file=;
End;
If ( eof ) Then Call rxfree(rx);
run;
Filename in Clear;

Dieses Beispiel zeigt den Einsatz vordefinierter Patterns. Ziel ist es, eine Liste aller TXT-Dateien im Verzeichnis „C:\“ zu erstellen. Dafür wird ein Filename vom Typ Pipe auf das entsprechende DOSKommando
gesetzt und das Ergebnis in einem Data-Step eingelesen. Mithilfe eines regulären Ausdruckes werden die Zeilen selektiert, die Dateinamen enthalten (nur diese Zeilen beginnen mit einem Datum, gefolgt von einer Uhrzeit und der Dateigröße), bei der anschließenden Ersetzung werden diese zusätzlichen Informationen entfernt,
so dass nur der Dateiname übrig bleibt.

%Let dir = c:\*.txt;
Filename in Pipe "dir &dir";
Data _null_;
Length file $256;
Retain rx;
If ( _n_ = 1 ) Then rx = rxparse(" ( ' '*
' '*
' '
) TO =4 ");
Infile in End = eof;
Input;
If ( rxmatch(rx,_infile_) ) Then Do;
Call rxchange(rx,1,_infile_,file);
Put file=;
End;
If ( eof ) Then Call rxfree(rx);
run;
Filename in Clear;

hallo uefa1997,
für mich sind die code-sequencen identisch. Vielleicht noch ein
cut and paste problem ?
Gruß
Friedrich von der Emde