GetPrivateProfileString函数问题求解

crazymanonly 2005-09-15 11:00:47

GetPrivateProfileString是用来读ini函数的
现在有一个配置文件run.ini如下
[配置参数]
Address=notebook
Catalog=hr

现在有一段代码如下
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(App.Path + "\run.ini")) Then

Else
MsgBox "配置文件出错,程序不能运行"
Exit Sub
End If

INIfileName = App.Path + "\run.ini"
n = GetPrivateProfileString("配置参数", "Address", "", ip, Len(ip), INIfileName)
ip = Left(ip, n)

INIfileName = App.Path + "\run.ini"
n = GetPrivateProfileString("配置参数", "Catalog", "", catalog, Len(catalog), INIfileName)
catalog = Left(catalog, n)

我想在catalog里面添加多个选项，把catalog写成这样的
Catalog=hr1,hr2,hr3,hr4,hr5
可能还有hr6,hr7,hr8
然后把这些hr读到变量里面

请问怎么实现

...全文

179 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

winehero 2005-09-15

打赏
举报

不错，用split后数组catalogx(0)为hr1,catalogx(1)为hr2依次类推。。。

northwolves 2005-09-15

打赏
举报

Dim Catalogx() as string
INIfileName = App.Path + "\run.ini"
n = GetPrivateProfileString("配置参数", "Catalog", "", catalog, Len(catalog), INIfileName)
catalog = Left(catalog, n)
Catalogx=split(catalog,",")

crazymanonly 2005-09-15