Lezen van een TAB of CSV delimited file De rijen worden in een Data multidimensional property gezet gelijkaardig aan dat van %ResultSet De hoofding bepaald de labels in de Data maar deze kunnen dmv een vertaaltabel omgezet worde Als hoofding niet beschikbaar is dan wordt columnnr gebruikt, instellen dmv Do Reader.SetHeaderRow(O)) Codesnippet: Set reader=##class(TECH.FileReader).%New("c:\test.txt") Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB Do reader.SetHeaderRow(1) ; optioneel, default = 1 Do reader.SetFirstDataRow(2) ; optioneel, default = 2 Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0 Do reader.AddHeaderTranslation(From, To) ; optioneel, 1 per translatie While reader.Next() { Set x=reader.Data("HeaderName") Set y=reader.Column(1) } Voor debugging zijn er volgende 2 methods, eerst min. eenmaal reader.Next() uitvoeren Do reader.DumpHeader() Do reader.DumpRow() 1 %RegisteredObject 0 %String 1 1 %String 2 1 %FileCharacterStream 1 %String " " 1 %Boolean 1 %String 0 1 %String 1 FileHeader to TranslateHeader %String 1 1 ColumnNr to FileHeader %String 1 1 %String 1 %String 1 %Integer 1 %Boolean 1 %Boolean 1 1 D ##class(TECH.FileReader).%New().test() FilePath,Delimiter %Status %Boolean %Boolean %Integer ColumnNr:%Integer %String ColumnNr:%Integer %String ColumnNr:%Integer %String ColumnNr:%Integer %String HeaderName:%String %String 1 1 1 %Boolean 1 1 %String 1 1 1 1 Stream:%FileCharacterStream Delimiter:%String Char HeaderNameInFile,TranslatedHeaderName,DataType RowNr RowNr ..FirstDataRowNr ..HeaderRowNr=..FirstDataRowNr-1 ]]>