gggg.bas

来自「广州公交车查询程序」· BAS 代码 · 共 27 行

CLS
OPEN "GZ.TXT" FOR INPUT AS #1
OPEN "GZZZ.TXT" FOR OUTPUT AS #2
DO
  INPUT #1, a$
  IF a$ = "" THEN GOTO labelnext
  IF RIGHT$(a$, 1) = ";" THEN
     a$ = MID$(a$, 1, LEN(a$) - 1)
     PRINT #2, a$
  ELSE

    le = INSTR(1, a$, "-")
    IF le = 0 THEN
      PRINT #2, a$ + ",";
    ELSE
      b$ = MID$(a$, 1, le - 1)
      PRINT #2, b$ + ",";
      ghr$ = MID$(a$, le + 1)
      PRINT #2, ghr$ + ",";
    END IF
  END IF
labelnext:
LOOP UNTIL EOF(1)
CLOSE