%ô > BLib.FileCSV 1.02 10-Aug-2017 =ô Read and write CSV files, protecting entries from Excel =ô Needs BASIC V or equivalent for DIM(), GET$#, BPUT#n,s$ (: 2Ýòcsv_rd(i%,array$()) <+ê n%:array$()="":A$=¾#i%:çA$="":A$=¾#i% F A$=A$+"," Põ Zç ÀA$,2)="=""":A$=ÁA$,2) dç ÀA$,1)="""" Œ n,A%=§A$,""",",2)+1:array$(n%)=ÁA$,2,A%-3) xÌ ‚$A%=§A$,","):array$(n%)=ÀA$,A%-1) ŒÍ –A$=ÁA$,A%+1):n%=n%+1 ý A$="" „ n%>Þ(array$(),1) ªá ´: ¾Ýòcsv_wr(o%,array$()) Èê n%,q%:n%=Þ(array$(),1) Òã A%=0 ¸ n%:A$=array$(A%) Üq%=§A$,",") æ>ç q%=0:q%=(—A$=48)€(§A$,"/")=0) :ô leading zeros 00001 ð9ç q%=0:ç»ÀA$,1):q%=§A$,"E") :ô preserve 1234E5678 úHç q%=0:q%=©Ã»A$>8 :ô long numbers 12345678901234 7ç q%=0:ç»A$:q%=§A$,"/")€(—A$<>48):ô fractions 12/34 ?ç q%=0:q%=ÀA$,1)="-" :ô leading hyphen - ;ç q%=0:q%=ÁA$,3,1)=" "€ÁA$,7,1)=" ":ô dates xx XXX xxxx ".ç q%:A$=""""+A$+"""":ç§A$,",")=0:A$="="+A$ ,Õ#o%,A$;:ç A%<>n%:Õ#o%,","; 6í A%:Õ#o%,"" @á J: ÿ