function [heading, numtable] = streamlinedata(dateiname)
%{
[heading, numtable] = streamlinedata(dateiname)
streamlinedata liest die Textdatei der von COMSOL exportierten
Feldliniendaten ein und gibt den Kopf (heading) und die Zahlenwerte als
Matrix zurück. Für den Export muss die Option 'Spreadsheet' gewählt worden
sein.

Parameter:
	dateiname
	Name der Datei mit Erweiterung
	
Ausgabe:
	heading
	Ein Zeilenvektor, der den Kopf enthält

	numtable
	Eine Matrix mit Spaltenweise getrennten Werten:
	1. Spalte:	x
	2. Spalte:	y
	3. Spalte:	Feldliniennummer
%}

	% Datei öffnen
	file = fopen(dateiname,'r');
	% Zeilen mit Informationen überspringen
	headings = textscan(file,'%s %s %s %s',8);
	% Kopf einlesen
	headings = textscan(file,'%s %s %s %s',1);
	% Kopf als Stringvektor abspeichern
	head1 = headings(2);
	head2 = headings(3);
	head3 = headings(4);
	heading = [head1{1}; head2{1}; head3{1}];
	% Initialisierung
	numtable = zeros(1,3);
	% Zahlenwerte als volle Zeilen einlesen
    stable = textscan(file,'%s');
    %save('stable.mat','stable');
	%stable = cell2mat(textscan(file,'%s'));
    %stable = cell2mat(stable{1,1});
	% Zeilen aufteilen und in Zahlen umwandeln
	for index = 3:3:(size(stable{1,1},1))
		numtable = [numtable; str2num(stable{1,1}{index-2,1}), str2num(stable{1,1}{index-1,1}), str2num(stable{1,1}{index,1})];
	end
	% Initialisierung löschen
	numtable(1,:) = [];
	% Datei schließen
	fclose(file);
end