% Zeichenkette blablabla
% Aufruf mit : zk
wdh = 'j';
z=' ';
while wdh == 'j'
	clc;
	disp('****  Zeichenkette  ****');
	disp(' ');
	disp('(1)	neue Zeichenkette einlesen');
	disp('(2)	Anzahl der Wörter ausgeben');
	disp('(3)	Anzahl der Vokale ausgeben');
    disp('(4)	Anzahl der Umlaute ausgeben');
	disp('(5)	Programm beenden');
	disp(' ');
	if z==' '
        disp(' ');
    else
        disp(['Ihr Text: ',z]);
    end
    disp(' ');
    switch input('Auswahl: ')
	case 1
        disp(' ');
        z=input('Text eingeben: ','s');
        disp(' ');
        disp('Weiter mit Enter');
        pause;
    case 2
        disp(' ');
        if length(findstr(z,' '))>0
            disp([num2str(length(findstr(z,' '))+1),' Wörter']);
        else
            disp('lehre Zeichenkette oder nur ein Wort');
        end
        disp(' ');
        disp('Weiter mit Enter');
        pause;
    case 3 
        disp(' ');
        disp(['A,a : ',num2str(length(findstr(lower(z),'a')))]);
        disp(['E,e : ',num2str(length(findstr(lower(z),'e')))]);
        disp(['I,i : ',num2str(length(findstr(lower(z),'i')))]);
        disp(['O,o : ',num2str(length(findstr(lower(z),'o')))]);
        disp(['U,u : ',num2str(length(findstr(lower(z),'u')))]);
        disp(' ');
        disp('Weiter mit Enter');
        pause;
    case 4
        disp(' ');
        disp(['Ä,ä : ',num2str(length(findstr(lower(z),'ä')))]);
        disp(['Ö,ö : ',num2str(length(findstr(lower(z),'ö')))]);
        disp(['Ü,ü : ',num2str(length(findstr(lower(z),'ü')))]);
        disp(' ');
        disp('Weiter mit Enter');
        pause;
    case 5
        wdh = 'n';
	otherwise disp(' ');
	    disp('Wählen Sie eine gültige Nummer !');
	    disp(' ');
        disp('Weiter mit "Enter"!');
        pause;
    end;	
end;
clc;