gd.bas

广州公交车查询程序

CITY$ = "_zq"
div1$ = "路　"
div2$ = "→"


CLS
OPEN "H:\BUS\" + CITY$ + ".txt" FOR INPUT AS #1
OPEN "H:\BUS\" + CITY$ + ".BUS" FOR OUTPUT AS #2
h = 0
DO
  LINE INPUT #1, a$
  a$ = LTRIM$(RTRIM$(a$)) '去左右空格

  IF MID$(a$, 1, 1) = "#" THEN GOTO nextline   '# 开头的为注释行
IF a$ <> "" THEN
''''''''''  IF RIGHT$(a$, 1) = ";" THEN a$ = MID$(a$, 1, LEN(a$) - 1)
  PRINT MID$(a$, 1, 5),
  le = INSTR(1, a$, div1$)
  
  busid$ = MID$(a$, 1, le - 1)
  PRINT #2, busid$ + ",";
  a$ = MID$(a$, le + LEN(div1))
  DO
    le = INSTR(1, a$, div2$)
    IF le < 1 THEN EXIT DO
    zan$ = MID$(a$, 1, le - 1)
    PRINT #2, zan$ + ",";
    a$ = MID$(a$, le + 2)
  LOOP UNTIL a$ = ""
  PRINT #2, a$ + ";"
END IF
nextline:

LOOP UNTIL EOF(1)
CLOSE