UC知道急，请高手帮我写个VBScript！！！
来源：百度知道 编辑：UC知道 时间：2024/06/10 10:26:48
我需要写个VBScript函数来读取一个ini文件，文件内容如下：
[First]
color=red
size=2
[Second]
color=blue
size=3
...
当我向函数中传入First时就要分别得到First下的color和size的值；我传入Second时就要得到Second下的color和size的值；
希望高手帮忙！感激不尽！！
希望是有用的回答，那些无聊的回答就不要回了，能用的我会加分的！如果用vbs写不出来的话，谁能用vb写一个我参考参考呢？
[First]
color=red
size=2
[Second]
color=blue
size=3
...
当我向函数中传入First时就要分别得到First下的color和size的值；我传入Second时就要得到Second下的color和size的值；
希望高手帮忙！感激不尽！！
希望是有用的回答，那些无聊的回答就不要回了，能用的我会加分的！如果用vbs写不出来的话，谁能用vb写一个我参考参考呢？
呵呵 vbs些不出来么? 你懂vbs不? it's so easy~ code: (vbs代码)
msgbox"请先选择ini文件",4096+64,"温馨提示 制作: BY 飘零"
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "*.ini|*.ini"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
BrowseForFile = objDialog.FileName
if len(BrowseForFile)<4 then
msgbox"路径无效!",4096+48,"温馨提示 制作: BY 飘零"
wscript.quit
end if
find(BrowseForFile)
sub find(files)
a=lcase(inputbox("请输入关键字","温馨提示 制作: BY 飘零","first"))
if len(a)<3 then
msgbox"您输入的关键字不合法!",4096+48,"温馨提示 制作: BY 飘零"
wscript.quit
end if
a=ucase(mid(a,1,1))&mid(a,2,len(a) - 1 )
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile(files)
do while file.atendofstream<