<< Click to Display Table of Contents >> Navigation:  Macro's > Macro: commando's en parameters > Macro: inleescommando's > Macro: lezen uit tekstbestand > Macrocommando TfReadLn

Doel:

Lees uit een regel van een tekstbestand en ga naar de volgende regel

 

Algemene notatie:

TfReadLn( FileIndex, waarde1 [ , waarde2 [ , waarde3 … ]  ]   )

 

Het scheidingsteken wordt met TfOpenForRead gedefinieerd en wordt geacht aanwezig te zijn tussen de onderlinge waardes.

Bij het gebruik van TfRead wordt op de actuele regel gelezen en wordt vervolgens gesprongen naar de volgende regel.

Indien er geen gegevens meer om te lezen zijn, worden de getalsvariabelen gevuld met 0 en de tekstvariabelen met een lege string.

 

Voorbeeld:

TfOpenForRead( 1, 'uitvoer.txt' , ';' )

TfRead( 1, Tekstvariabele )

text(Tekstvariabele )

TfReadLn( 1, Getalvariabele1, Getalvariabele2, Getalvariabele3  )

//        Nu is de invoer overgegaan op de nieuwe regel

text(Getalvariabele1, ',', Getalvariabele2, ',', Getalvariabele3 )

TfRead( 1, Tekstvariabele )

text(Tekstvariabele )

TfRead( 1, Getalvariabele1, Getalvariabele2, Getalvariabele3  )

text(Getalvariabele1, ',', Getalvariabele2, ',', Getalvariabele3 )

TfClose( 1 )

 

Geeft met onderstaande gegevens in het bestand 'uitvoer.txt':

'een';2;3;4;vijf;6;  1.23

'een';2;3;4;vijf;6;  1.23

 

als resultaat:

'een'

2,3,4

'een'

2,3,4