DECLARE FUNCTION ini$ (a$, b$, c$)
CLS
g$ = ini$("1.ini", "EEE", "d")
PRINT g$, LEN(g$)

FUNCTION ini$ (a$, b$, c$)
  IF DIR$(a$) <> "" THEN
    OPEN a$ FOR INPUT AS #1
    t$ = INPUT$(LOF(1), #1)
    n = INSTR(1, t$, b$)
  IF n <> 0 THEN
      a = INSTR(n, t$, c$)
      IF a <> 0 THEN
        c = a + LEN(c$) + 1
        b = INSTR(c, t$, CHR$(13))
        ini$ = MID$(t$, c, b - c)
      END IF
  END IF
  ELSE
  ini$ = ""
  END IF
END FUNCTION


;现在QBASIC的资料很少,网上又找不到,只好根据自己的一点基础写了...请看看对不对