TECH.DataExporter.impl.DataExporter TECH.File.FileWriter %String "," 1 %Boolean 0 1 ExportInfoValidator:TECH.DataExporter.impl.ExportInfoValidator,FileWriter:TECH.File.FileWriter 1 1 %Status 1 Teken:%String BestandNaam:%String,Info:TECH.DataExporter.ExportInfo Info:TECH.DataExporter.ExportInfo 1 Info:TECH.DataExporter.ExportInfo 1 List:%ListOfDataTypes 0 { set NewList = ##class(%ListOfDataTypes).%New() set ListIterator = ##class(TECH.ListIterator).%New(List) while ListIterator.HasNext() { #dim Waarde As %String = ListIterator.Next() if ##class(TECH.StringUtils).Contains(Waarde,$$$EnkeleQuotes){ set Waarde = $$$TussenQuotes(##class(TECH.StringUtils).Replace(Waarde,$$$EnkeleQuotes,$$$DubbeleQuotes)) } if ##class(TECH.StringUtils).Contains(Waarde,..ScheidingsTeken) { set Waarde = $$$TussenQuotes(Waarde) } if ..AllesTussenQuotes && ( $$$Not(##class(TECH.StringUtils).Contains(Waarde,$$$EnkeleQuotes))) { set Waarde = $$$TussenQuotes(Waarde) } do NewList.Insert(Waarde) } do ..FileWriter.WriteLine(##class(TECH.ListUtils).ListToPieces(NewList,..ScheidingsTeken)) } ]]>