※ 引述《[email protected] (挑战人生)》之铭言： > 上面这些数字，我写在另外一个资料档案，前面数字代表时间，第二排资料是我要用的 > 我现在写一个主程式，首先我先把这些资料读过 > 接下来，例如: 我想抓 2005072117 这个时间点的资料值 03. > 然後接下来能让电脑可以自动去抓 05. 05. 04. 04. 05. 这些值 > 但是接在2005072117後面时间点，我不用再去碰它 > 将变成 2005072117 03. > 05. > 05. > 04. > 04. > 05. 这不就是先找到一项然後读後面五项嘛 那就是两个状态 找到了 读完了 寻找状态 ────→ 读取状态 ────→ 结束 没找到当然还是维持读取状态，没读完还是读取状态，不用写出来 简单写起来就是 OPEN(3, ...) READ(3, '(I4,I2,I2,I2,X,I2)') YY,MM,DD,HH,NN IF ({YY/MM/DD/HH符合要求}) THEN DO I=1, 5 READ(3, '(11X, I2)') NN END DO END IF CLOSE(3) 如果在读取阶段还要判断什麽，比如说後面五天要distinctive 那麽自己写if下去判断就成了 回圈也可以改成用DO ... WHILE，或者用EXIT离开DO回圈 详情请多看online help 如果这还不是你的想法，那是因为从你上面的描述看起来就是如此 因为不太清楚你还要做什麽，所以就是这样了 　 -- X-URL1: http://www.aviationnow.com/ ‧李登辉＝格达费＝外星人‧有厕 检举匪谍 人人有责 ⊙ 检举匪谍 安居乐业 人所 检举匪谍渗透破坏 人人安居乐业｜肃清贪污经济犯罪 社会繁荣进步 　 破案奖金三百万｜知情不报判徒刑 检举要件：请用真实姓名、地址，受理机关绝对保密 X-Disclaimer: 李登辉一定是外星人！ Mk.22 Mod4 5/15/01 Mod3 6/9/98 -- ┌─────◆ＫＫＣＩＴＹ◆─────┐ ★ 人人可架站，经营社群联谊天地 ★ │ bbs.kkcity.com.tw │ 欢迎社团/班系/歌友/艺文创作/公益申请 └──《From:59.115.193.230 》──┘ 到 KKCity 开设自己喜爱的主题ＢＢＳ站 --