Einlesen von Feldern IV

CutFields.om

fieldno := 0; insertsep := FALSE; WHILE Read.FieldS(in, field) DO IF fieldno IN selected THEN IF insertsep THEN Write.CharS(out, fieldsep); ELSE insertsep := TRUE; END; Write.StringS(out, field); END; INC(fieldno); END;

Da Read.FieldS nicht den Zeilentrenner überspringt, können bequem alle Felder einer Zeilen mit einer WHILE-Schleife abgearbeitet werden.

Zu beachten ist hier, daß bei einer unzureichenden Länge des Arrays field Feldinhalte stillschweigend abgeschnitten werden.

	Da Read.FieldS nicht den Zeilentrenner überspringt, können bequem alle Felder einer Zeilen mit einer WHILE-Schleife abgearbeitet werden.
	Zu beachten ist hier, daß bei einer unzureichenden Länge des Arrays field Feldinhalte stillschweigend abgeschnitten werden.