Dokument [PDF, 9,1 MB] - FB 4 Allgemein - Fachhochschule ...

20. Anhang 206
dateiname
index1 = findstr(dateiname,'_MP');
%- Ist es eine Messpunktdatei ?
if index1
index = index1
else index2 = findstr(dateiname,'_KALI');
%- Ist es eine Kalibrierdatei
if index2
index = index2
else index3 = findstr(dateiname,'_HOCH');
%- Ist es eine Datei der Hochfahrt ?
if index3
index = index3
%- Wenn nichts zutrifft, dann wird der gesamte Dateiname als
%- Stammname genommen.
else index = length(dateiname)-3
end %- if-Anweisung
end %- if-Anweisung
end %- if-Anweisung
index;
stammname = dateiname(1:(index-1))
%- Der Stammname wird für den Verzeichnisnamen der MAT-Dateien übernommen
dir_erw = stammname;
%- Zu öffnende Textdatei mit den Kalibrierfaktoren, wenn sie vorhanden ist
textdatei = strcat(pfad, stammname,'_Kalibrierfaktor.txt');
%- Existitert die Textdatei mit den Kalibrierfaktoren ?
dat_exist = exist(textdatei)
%- Wenn die Datei existiert, lade sie
if dat_exist > 0
[zahl_1, string_1, zahl_2, string_2] = ↵
textread(textdatei,'%f\t%s\n%f\t%s');
if strcmp(string_1, kanal)
kalibrierfaktor = zahl_1
elseif strcmp(string_2, kanal)
kalibrierfaktor = zahl_2
end %- if-Anweisung
else
%- Wenn die Datei nicht existiert, dann setze den Kalibier faktor auf
%- den Wert 1
disp('ACHTUNG: Keine Kalibrierfaktoren !');
kalibrierfaktor = 1
end %- if-Anweisung
%- MAT Verzeichnis erstellen, mit dem Namen dir_erw
switch kanal
case 'rechts'
ka = '_re';
case 'links'
ka = '_li';
otherwise
disp('Kein Kanal');
end
dir_name = strcat(dir_erw, '_MAT', ka);
[status, msg] = mkdir (pfad, dir_name);
if (status == 1) | (status == 2) %- Verzeichnis wurde erfolgreich
%- erstellt (1) oder existiert
Fachhochschule Düsseldorf Diplomarbeit 2002/03, Terence Klitz