PB 对配置文件进行操作(.ini)


//删除rcpt.ini
int ii
if FileExists("rcpt.ini") then
filedelete("rcpt.ini")
end if

//重建rcpt.ini
ii = FileOpen("rcpt.ini",StreamMode!, Write!, LockWrite!, Replace!)
fileclose(ii)

//写ini
SetProfileString("rcpt.ini","rcpt_master","rcpt_no",ls_rcpt_no)

//读ini
charge_type=profilestring("obilling.ini","unit_in_contract","contract_charge_type","")

PB