DecimalBASIC Update...

! Decleration of Array.

DIM admNu(60), admName$(60), admTag$(60), admDate$(60), admDay$(60), admType$(60), dbNu(100), dbName$(100), dbTag$(100), dbDATE$(100), dbDay$(100), dbType$(100)

! Read-in of Current Pt. list (adm.csv)

OPEN #1: NAME "C:\Documents and Settings\shaegis\바탕 화면\adm.csv", ACCESS INPUT

LET i = 1

DO

INPUT #1, IF MISSING THEN EXIT DO: admNu(i), admName$(i), admTag$(i), admDate$(i)

LET i = i + 1

LOOP

CLOSE #1

! Read-in of DB

OPEN #1: NAME "C:\Documents and Settings\shaegis\바탕 화면\ptDB.csv", ACCESS INPUT, RECTYPE INTERNAL

LET j = 1

DO

READ #1, IF MISSING THEN EXIT DO: dbNu(j), dbName$(j), dbTag$(j), dbDATE$(j), dbDay$(j), dbType$(j)

LET j = j + 1

LOOP

CLOSE #1

! Match CurrentPtList to PtDB.

! adm is [i]

! DB is [j]

FOR m = 1 TO i

FOR n = 1 TO j

IF admNu(m) = dbNu(n) THEN

LET admDay$(m) = dbDay$(n)

END IF

NEXT n

NEXT m

! Match CurrentPtList to PtDB.

! adm is [i]

! DB is [j]

FOR e = 1 TO i

FOR r = 1 TO j

IF admNu(e) = dbNu(r) THEN

LET admType$(e) = dbType$(r)

END IF

NEXT r

NEXT e

! Write Results to csv-file.

OPEN #1: NAME "C:\Documents and Settings\shaegis\바탕 화면\admDATA.csv", ACCESS OUTPUT, RECTYPE INTERNAL

FOR k = 1 TO i-1

WRITE #1: admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k), admType$(k)

NEXT k

CLOSE #1

! Pick-up new adm. pt.

OPEN #1: NAME "C:\Documents and Settings\shaegis\바탕 화면\newAdmPt.csv", ACCESS OUTPUT, RECTYPE INTERNAL

FOR k = 1 TO i-1

IF admDay$(k) = "" THEN

WRITE #1: admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k)

END IF

NEXT k

CLOSE #1

! Make the List of Repeat-Order

OPEN #1: NAME "C:\Documents and Settings\shaegis\바탕 화면\repeatOrderPtList.csv", ACCESS OUTPUT, RECTYPE INTERNAL

INPUT toDay$

IF toDay$ = "mon" THEN

FOR k = 1 TO i-1

IF admDay$(k) = "화목" OR admDay$(k) = "수목" OR admDay$(k) = "수토" OR admDay$(k) = "금토" OR admDay$(k) = "화금" THEN

WRITE #1: toDay$, admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k), admType$(k)

END IF

NEXT k

END IF

IF toDay$ = "tue" THEN

FOR k = 1 TO i-1

IF admDay$(k) = "월목" OR admDay$(k) = "수목" OR admDay$(k) = "월금" OR admDay$(k) = "수토" OR admDay$(k) = "금토" THEN

WRITE #1: toDay$, admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k), admType$(k)

END IF

NEXT k

END IF

IF toDay$ = "wed" THEN

FOR k = 1 TO i-1

IF admDay$(k) = "월목" OR admDay$(k) = "화목" OR admDay$(k) = "월금" OR admDay$(k) = "금토" OR admDay$(k) = "화금" THEN

WRITE #1: toDay$, admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k), admType$(k)

END IF

NEXT k

END IF

IF toDay$ = "thu" THEN

FOR k = 1 TO i-1

IF admDay$(k) = "월금" OR admDay$(k) = "수토" OR admDay$(k) = "금토" OR admDay$(k) = "화금" THEN

WRITE #1: toDay$, admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k), admType$(k)

END IF

NEXT k

END IF

IF toDay$ = "fri" THEN

FOR k = 1 TO i-1

IF admDay$(k) = "월목" OR admDay$(k) = "화목" OR admDay$(k) = "수목" OR admDay$(k) = "수토" THEN

WRITE #1: toDay$, admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k), admType$(k)

END IF

NEXT k

END IF

IF toDay$ = "sat" THEN

FOR k = 1 TO i-1

IF admDay$(k) = "월목" OR admDay$(k) = "월금" OR admDay$(k) = "화목" OR admDay$(k) = "수목" OR admDay$(k) = "화금" THEN

WRITE #1: toDay$, admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k), admType$(k)

END IF

NEXT k

END IF

IF toDay$ = "sun" THEN

FOR k = 1 TO i-1

WRITE #1: toDay$, admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k), admType$(k)

NEXT k

END IF

CLOSE #1

! WeekDay Statistics

LET MO = 0

LET TU = 0

LET WE = 0

LET TH = 0

LET FR = 0

LET SA = 0

FOR k = 1 TO i-1

IF admDay$(k) = "월목" OR admDay$(k) = "모두" OR admDay$(k) = "월금" THEN

LET MO = MO + 1

END IF

NEXT k

FOR k = 1 TO i-1

IF admDay$(k) = "화목" OR admDay$(k) = "모두" OR admDay$(k) = "화금" THEN

LET TU = TU + 1

END IF

NEXT k

FOR k = 1 TO i-1

IF admDay$(k) = "수목" OR admDay$(k) = "수토" OR admDay$(k) = "모두" THEN

LET WE = WE + 1

END IF

NEXT k

FOR k = 1 TO i-1

IF admDay$(k) = "수목" OR admDay$(k) = "화목" OR admDay$(k) = "모두" OR admDay$(k) = "월목" THEN

LET TH = TH + 1

END IF

NEXT k

FOR k = 1 TO i-1

IF admDay$(k) = "금토" OR admDay$(k) = "월금" OR admDay$(k) = "모두" OR admDay$(k) = "화금" THEN

LET FR = FR + 1

END IF

NEXT k

FOR k = 1 TO i-1

IF admDay$(k) = "수토" OR admDay$(k) = "금토" OR admDay$(k) = "모두" THEN

LET SA = SA + 1

END IF

NEXT k

! Write-out Statistics results.

OPEN #1: NAME "C:\Documents and Settings\shaegis\바탕 화면\admWeekDayDATA.csv", ACCESS OUTPUT, RECTYPE INTERNAL

WRITE #1: "MON", "TUH", "WED", "THU", "FRI", "SAT"

WRITE #1: MO, TU, WE, TH, FR, SA

WRITE #1: MO*15, TU*15, WE*15, TH*15, FR*15, SA*15

WRITE #1: MO*15/60, TU*15/60, WE*15/60, TH*15/60, FR*15/60, SA*15/60

CLOSE #1

END