AZ = 0
BZ = 0
CZ = 0
DZ = 0
EA = 0
ColA = getNominal("cfs").measElements.collection
setParameterNamed("AZ", ColA.size)
for AA = 1 to AZ
	ColB[AA] = getTechnologySegment(ColA, AA)
next AA
for AB = 1 to AZ
	if inStr(text(ColB[AB]), "OMMSetOfTasks") <> 0 then
		ColB[AB] = ColB[AB].collection
		setParameterNamed("BZ", ColB[AB].size)
		for BA = 1 to BZ
			ColC[BA] = getTechnologySegment(ColB[AB], BA)
		next BA
		for BB = 1 to BZ
			if inStr(text(ColC[BB]), "OMMSetOfTasks") <> 0 then
				ColC[BB] = ColC[BB].collection
				setParameterNamed("CZ", ColC[BB].size)
				for CA = 1 to CZ
					ColD[CA] = getTechnologySegment(ColC[BB], CA)
				next CA
				for CB = 1 to CZ
					if inStr(text(ColD[CB]), "OMMSetOfTasks") <> 0 then
						ColD[CB] = ColD[CB].collection
						setParameterNamed("DZ", ColD[CB].size)
						for DA = 1 to DZ
							EA = EA+1
							Meas[EA] = ColD[DA]
						next DA
					else
						EA = EA+1
						Meas[EA] = ColD[CB]
					endif
				next CB
			else
				EA = EA+1
				Meas[EA] = ColC[BB]
			endif
		next BB
	else
		EA = EA+1
		Meas[EA] = ColB[AB]
	endif
next AB

FB = 0
FZ = 0
FX = 0
for FA = 1 to EA
	if inStr(text(Meas[FA].technology), "OMTecMeasPath") <> 0 then
		FY = 0
		FB = FB+1
		IDENTME[FB] = Meas[FA].identifier
		IDColl[FB] = Meas[FA].technology.segments
		setParameterNamed("FZ", IDColl[FB].size)
		for FC = 1 to FZ
			SEGID[FC] = IDColl[FB].first
			gibtSpeed = (inStr(text(SEGID[FC]), "OMTecDisc") <> 0) or (inStr(text(SEGID[FC]), "OMTecPolyline") <> 0) or (inStr(text(SEGID[FC]), "OMTecHelix") <> 0) or (inStr(text(SEGID[FC]), "OMTecFormLine") <> 0) or (inStr(text(SEGID[FC]), "OMTecCurveSegment") <> 0) or (inStr(text(SEGID[FC]), "OMTecLine") <> 0)
			if gibtSpeed == true then
				FY = FY+1
				FX = FX+1
				IDENTSEG[FY] = SEGID[FC].identifier
				SPEEDSEG[FY] = SEGID[FC].speed
				LINE[FX] = text(IDENTME[FB], chr(009), FY, chr(009), IDENTSEG[FY], chr(009), SPEEDSEG[FY])
			endif
			IDColl[FB].removeFirst
		next FC
	endif
next FA

for G = 1 to FX
	addToFile("Geschwindigkeiten.txt", LINE[G])
next G