Tiptop 4gl 程序读取格式化的文本文件

有时候，某些Tiptop参数不用用户去改动，在数据库中增加表或字段有点复杂，而且占用资源，所以可以考虑用配置文件的方式来处理。

此处的配置文件用竖线（|）将数据分开，保存在Server上。

程序示例如下：

 DEFINE p_oeaud10     LIKE oea_file.oeaud10
 DEFINE buff1, buff2  STRING
 DEFINE ch_in         base.Channel
 DEFINE l_file        STRING

  LET ch_in  = base.Channel.create()   #创建Channel对象
  LET l_file = FGL_GETENV("CUST"),'/csf/4gl/csfr300.cfg'
  CALL ch_in.setDelimiter("|")         #设定分隔符
  CALL ch_in.openFile(l_file,"r")      #读取文件
  WHILE ch_in.read([buff1,buff2])      #逐行遍历
     IF buff1 = p_oeaud10 THEN
        RETURN buff2
     END IF
  END WHILE
  CALL ch_in.close()                   #关闭Channel对象

  RETURN 'N'