4GL中常用的文件处理函数

4GL文件处理函数.4gl

类型：

售价：0

大小：6KB

下载：69次

描述：

[下载]

#获得客户端IP
FUNCTION getClientIP()
  DEFINE a,b String
  DEFINE p Integer
  LET a=fgl_getenv("FGLSERVER")
  LET p=a.getIndexOf(":",1)
  LET b=a.subString(1,p-1)
  RETURN b
END FUNCTION
#获得文件名 例如filepath ='/u1/topprod/tiptop/axm/4gl/axmt410.4gl' 则返回'axmt410.4gl'
FUNCTION file_get_short_filename(filepath)
  DEFINE filepath STRING
  RETURN os.Path.basename(filepath)
END FUNCTION
#获得文件目录信息 例如filepath ='/u1/topprod/tiptop/axm/4gl/axmt410.4gl' 则返回'/u1/topprod/tiptop/axm/4gl'
FUNCTION file_get_dirname(filename)
  DEFINE filename STRING
  DEFINE dirname STRING
  LET dirname=os.Path.dirname(filename)
  IF dirname IS NULL THEN
    LET dirname="."
  END IF
  RETURN dirname
END FUNCTION
#检测文件是否存在
FUNCTION file_exists(filename)
  DEFINE filename STRING
  RETURN os.Path.exists(filename)
END FUNCTION
#判断文件是目录还是文件
FUNCTION file_is_dir(filename)
  DEFINE filename STRING
  RETURN os.Path.isdirectory(filename)
END FUNCTION
#判断文件结构是WINDOWS 还是LINUX
FUNCTION file_on_windows()
  IF fgl_getenv("WINDIR") IS NULL THEN
    RETURN 0
  ELSE
    RETURN 1
  END IF
END FUNCTION
-------->其他函数在附件里