RegToCSV.bbc

10 REM > RegToCSV

20 :

30 A$="":in%=OPENIN("!Make"):IF in%=0:in%=OPENIN("!Make."):IF in%=0:in%=OPENIN("!Make.bat")

40 IF in%:REPEAT:A$=GET$#in%:UNTIL EOF#in% OR INSTR(A$,"rem") OR INSTR(A$,"REM"):CLOSE#in%:in%=0

50 A%=INSTR(A$,"reg=") :IF A%:reg$ =STR$(VALMID$(A$,A%+4))

60 A%=INSTR(A$,"year="):IF A%:year$=STR$(VALMID$(A$,A%+5))

70 A%=INSTR(A$,"max=") :IF A%:max% =VALMID$(A$,A%+4)

80 DIM info$(10)

90 :

100 out%=OPENOUT(year$+"-Register.csv")

110 BPUT#out%,"VANID,PD,NUM,NAME,ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4,POSTTOWN,POSTCODE"

120 READ file$:REPEAT

130 PRINTfile$;

140 in%=OPENIN(year$+"-"+file$+".txt")

150 ptr%=0

160 IF in% THEN

170 REPEAT

180 n%=0

190 done%=0

200 PTR#in%=ptr%

210 REPEAT

220 ptr%=PTR#in%:A$=GET$#in%

230 info$(n%)=A$

240 n%=n%+1

250 IF LEN A$=8:IF VALA$:done%=done%+1

260 UNTIL done%=2 OR EOF#in%

270 IF done%<>2:n%=n%+1

280 :

290 REM FOR A%=0 TO n%-7:info$(9-A%)=info$(n%-A%-2):NEXT A%

300 REM IF n%<11:FOR A%=5 TO 15-n%:info$(A%)="":NEXT A%

310 :

320 REM Move POSTTOWN and POSTCODE:

330 info$(9)=info$(n%-2):info$(8)=info$(n%-3)

340 IF n%<11:FOR A%=n%-3 TO 7:info$(A%)="":NEXT A%

350 :

360 FOR n%=0 TO 8

370 BPUT#out%,info$(n%)+",";

380 NEXT n%

390 BPUT#out%,info$(9)

400 UNTIL EOF#in%

410 CLOSE#in%

420 ELSE

430 PRINT" - not found";

440 ENDIF

450 PRINT

460 READ file$

470 UNTIL file$="*"

480 CLOSE#out%

490 QUIT

500 :

510 REM SBC wards

520 DATA Burniston,Castle,Cayton,Danby,DerwentValley

530 DATA Eastfield,EskValley,Falsgrave,Filey

540 DATA Fylingdales,Hunmanby,Mayfield,Newby

550 DATA Northstead,Scalby,Seamer,Streonshalh

560 DATA Weaponness,WestCliff,Woodlands,*

570 :

580 REM NYCC divisions within SBC

590 DATA Castle,Eastfield,EskValley,Falsgrave,Filey,Hertford

600 DATA Mayfield,Newby,Northstead,Scalby,Seamer,Streonshalh

610 DATA Weaponness,Woodlands,*