|
本帖最后由 mdyblog 于 2015-1-31 05:02 编辑
- // ReadINI "文件名" "字段名" "关键字" "返回引用名"
- _SUB ReadINI
- SET &fnm=%~1
- SET &snm=%~2
- SET &knm=%~3
- SET &retnm=%~4
- SET &ret=
- STRL &LN=%knm%=
- {
- ENVI^ ForceLocal=1
- READ %fnm%,*r,&&Vall
- TEAM SET &fundk=0| SET &L1=| SET &Li=
- FORX *NL Vall,&&vi,
- {* IFEX $%fundk%=1,!! TEAM LSTR &L1=1,%vi%| LSTR &&Li=%LN%,%vi%| FIND $%L1%=[, SET fundk=0| FIND $%Li%=%knm%=, TEAM ENVI ret=%vi%|| EXIT
- IFEX $%fundk%=0,!! FIND $%vi%=[%snm%], SET fundk=1
- }
- CALC Ln=%Ln%+1
- MSTR ret=%Ln%,0,%ret%
- }
- ENVI-ret %&retnm%=%&ret%
- _END
- ReadINI 123.ini "DMI" "处理器1|CPU 制造商|公司名称" 公司名称
- MESS. [%公司名称%]
复制代码
//[Intel Corporation]
ReadIni.wcs.zip
(1.69 KB, 下载次数: 7)
|
|