Write to excel without automation (Part 2)

FileVendor File
StreamVendor OutStream
recVendor Record Vendor
txtVendor text 250


FileVendor.CREATE('c:\vend.csv');
FileVendor.CREATEOUTSTREAM(streamVendor);
FileVendor.TEXTMODE(TRUE);

IF recVendor.FIND('-') THEN REPEAT
txtVendor := '';
txtVendor := FORMAT(recVendor."No.") + ';';
txtVendor := txtVendor + FORMAT(recVendor.Name) + ';';

// ... and so on ...

StreamVendor.WRITETEXT(txtVendor);
StreamVendor.WRITETEXT();
UNTIL recVendor.NEXT = 0


FileVendor.CLOSE;
HYPERLINK('c:\vend.csv');

PS This method requires conversion of local chars.