// // OUTLOOKEXPORT.VDM Ch. Ziemski 12.06.2001 // // // Reformats the CSV-Export from Outlook to remove the line breaks within fields. // // "Title","First Name","Middle Name","Last Name","Suffix","Company","Department","Job Title","Business Street","Business Street 2","Business Street 3","Business City","Business State","Business Postal Code","Business Country","Home Street","Home Street 2","Home Street 3","Home City","Home State","Home Postal Code","Home Country","Other Street","Other Street 2","Other Street 3","Other City","Other State","Other Postal Code","Other Country","Assistant's Phone","Business Fax","Business Phone","Business Phone 2","Callback","Car Phone","Company Main Phone","Home Fax","Home Phone","Home Phone 2","ISDN","Mobile Phone","Other Fax","Other Phone","Pager","Primary Phone","Radio Phone","TTY/TDD Phone","Telex","Account","Anniversary","Assistant's Name","Billing Information","Birthday","Categories","Children","Directory Server","E-mail Address","E-mail Display Name","E-mail 2 Address","E-mail 2 Display Name","E-mail 3 Address","E-mail 3 Display Name","Gender","Government ID Number","Hobby","Initials","Internet Free Busy","Keywords","Language","Location","Manager's Name","Mileage","Notes","Office Location","Organizational ID Number","PO Box","Priority","Private","Profession","Referred By","Sensitivity","Spouse","User 1","User 2","User 3","User 4","Web Page" // "","Jon","","Pilling","","ServerSys Limited","","Senior Consultant","Hobbs Boat House // High Street",,,"Goring","Berkshire","RG8 9AB","United Kingdom","7 Saxel CLose // Aston",,,"Nr Bampton","Oxon","OX18 2EB","United Kingdom",,,,,,,,,,"01491 870 100",,,,,,"01993 850 930",,,"07748 305 621",,,,,,,,"","0/0/00",,,"0/0/00",,,,"/o=Serversys Ltd/ou=ICMSOL/cn=Recipients/cn=JonP","Jonp",,,,,"Unspecified",,,"J.P.",,"","","",,,"These are a few notes // ",,,,"Normal","False",,,"Normal" // // to: // // "Title","First Name","Middle Name","Last Name","Suffix","Company","Department","Job Title","Business Street","Business Street 2","Business Street 3","Business City","Business State","Business Postal Code","Business Country","Home Street","Home Street 2","Home Street 3","Home City","Home State","Home Postal Code","Home Country","Other Street","Other Street 2","Other Street 3","Other City","Other State","Other Postal Code","Other Country","Assistant's Phone","Business Fax","Business Phone","Business Phone 2","Callback","Car Phone","Company Main Phone","Home Fax","Home Phone","Home Phone 2","ISDN","Mobile Phone","Other Fax","Other Phone","Pager","Primary Phone","Radio Phone","TTY/TDD Phone","Telex","Account","Anniversary","Assistant's Name","Billing Information","Birthday","Categories","Children","Directory Server","E-mail Address","E-mail Display Name","E-mail 2 Address","E-mail 2 Display Name","E-mail 3 Address","E-mail 3 Display Name","Gender","Government ID Number","Hobby","Initials","Internet Free Busy","Keywords","Language","Location","Manager's Name","Mileage","Notes","Office Location","Organizational ID Number","PO Box","Priority","Private","Profession","Referred By","Sensitivity","Spouse","User 1","User 2","User 3","User 4","Web Page" // "","Jon","","Pilling","","ServerSys Limited","","Senior Consultant","Hobbs Boat House # High Street",,,"Goring","Berkshire","RG8 9AB","United Kingdom","7 Saxel CLose # Aston",,,"Nr Bampton","Oxon","OX18 2EB","United Kingdom",,,,,,,,,,"01491 870 100",,,,,,"01993 850 930",,,"07748 305 621",,,,,,,,"","0/0/00",,,"0/0/00",,,,"/o=Serversys Ltd/ou=ICMSOL/cn=Recipients/cn=JonP","Jonp",,,,,"Unspecified",,,"J.P.",,"","","",,,"These are a few notes # ",,,,"Normal","False",,,"Normal" BoF Line(1) While(! At_EoF){ EoL while(Cur_Char(-1) != '"'){ if(Cur_Char == 13){ // CR Del_Char(1) } if(Cur_Char == 10){ // LF Del_Char(1) } Ins_Text(" # ") // or something other as devider EoL } Line(1, NOERR+ERRBREAK) }