一键读写配置源码

winbei2010

function save_form(hd)
    //保存界面配置
    var arr0,ret,ret2,ret3,key,value
    var list=array("复选框","单选框","编辑框","浏览框")
    strsplit(filereadex("d:\\main.twin"),"|",arr0)
    for(var i = 0; i < arraysize(arr0); i++)
        for(var z = 0; z < arraysize(list); z++)
            ret=strfind(arr0[i],list[z]&" ")
            if(ret>0)
                ret2=strlen(list[z]&" ")
                ret3=strfind(strsub(arr0[i],ret+ret2,strlen(arr0[i]))," ")
                key=strsub(arr0[i],ret+ret2,ret+ret2+ret3)
                select(list[z])
                    case "复选框"
                    if(checkgetstate(key)==true)
                        value=1
                    else
                        value=0
                    end
                    case "单选框"
                    if(radiogetstate(key)==true)
                        value=1
                    else
                        value=0
                    end
                    case "编辑框"
                    value=editgettext(key)
                    case "浏览框"
                    value=browsegettext(key)
                    case "下拉框"
                    value=combogetcursel(key)
                    if(value<0)
                        value=0
                    end
                end
                filewriteini("config",key,value,"d:\\uservar.ini")
                break
            end
        end
    end
end

zhjingv9999

xuexi

pengtusheng

学习下

q940505050

0000000000

xinyv

111111111

zcb201

6666666666666666666666666666666

lanchc

点麻烦哈，有想法的可以指点12
代码没有整理，也没有详细测试。有问题麻烦告知

wjyzl0569

看看什么鬼

无啦啦

1111111111111

a145356

此帖仅作者可见