vfp读取config.ini文件

*!* 建立config.ini文件

*!*--------------------

[ServerName]
ServerName=csxt

[Database]
Database=hisdata

*!*--------------------

 

 *!*读取程序

PUBLIC lcPCName,lcDBName

If !File('Config.ini')
    Messagebox('配制文件 Config.ini 不存在！'+Space(5),16,'信息提示')
 quit
Endif
lcConfigStr=Upper(Filetostr('Config.ini')) &&将INI文件转成字符串
lnConfigStrLine=Memlines(lcConfigStr)      &&取得INI文件的行数
Store '' To lcPCName,lcDBName &&如果有必要也可以将这几个变量定义为全局变量
For I=1 To lnConfigStrLine
    lcRowStr=Mline(lcConfigStr,I)  &&取得INI文件的每行
    Do Case
        Case Upper('ServerName=')$l