关于VB读取*.INI的操作方法

KA

如何能够象FISHEDIT一样,可以读取*.INI的数据呢?
我希望作一个这样的东西
---------------------------------------------------------------------------------------------------
保存在[A.INI]的
120 200 1 30 (类似这样的数据)
然后VB由来读取出,然后放入四个变量中,如
dim a,b,c as int
a=120
b=200
c=1
d=30
------------------------------------------------------------------------------------------------------
我在网上发现一个模块,但是自己不会用,他的格式是GetINI(ByRef inifile As String, ByVal section As String, ByVal key As String, Optional ByVal defvalue As String = vbNullString)这样的调用事件
注释中写:'inifile string ini文件名
'section string ini文件中的段落
'key string ini文件的关键字
'defvalue string ini文件中的值，输入时取空值
但是我还是用不来...晕~~

---------------------------------------------------------------------------------------------------------
模块原码如下:

1. Option Explicit
   
2. Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" _
   
3. (ByVal lpApplicationName As String, _
   
4. ByVal lpKeyName As String, _
   
5. ByVal nDefault As Long, _
   
6. ByVal lpFileName As String) As Long
   
7. Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
   
8. (ByVal lpApplicationName As String, _
   
9. ByVal lpKeyName As Any, _
   
10. ByVal lpDefault As String, _
    
11. ByVal lpReturnedString As String, _
    
12. ByVal nSize As Long, _
    
13. ByVal lpFileName As String) As Long
    
14. Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
    
15. (ByVal lpApplicationName As String, _
    
16. ByVal lpKeyName As Any, _
    
17. ByVal lpString As Any, _
    
18. ByVal lpFileName As String) As Long
    
19. 
    
20. '读
    
21. '输入
    
22. 'inifile string ini文件名
    
23. 'section string ini文件中的段落
    
24. 'key string ini文件的关键字
    
25. 'defvalue string ini文件中的值，输入时取空值
    
26. 
    
27. '输出
    
28. 'getini string 取得的ini文件中的值
    
29. Public Function GetINI(ByRef inifile As String, ByVal section As String, ByVal key As String, Optional ByVal defvalue As String = vbNullString) As String
    
30. Dim stemp As String * 256
    
31. Dim nlen As Integer
    
32. stemp = Space$(256)
    
33. nlen = GetPrivateProfileString(section, key, defvalue, stemp, 255, App.Path & "" & inifile)
    
34. GetINI = Left$(stemp, nlen)
    
35. End Function
    
36. '写
    
37. 'inifile string ini文件名
    
38. 'section string ini文件中的段落
    
39. 'key string ini文件的关键字
    
40. 'value string ini文件中的值，可以是数字字符串
    
41. Public Sub WriteINI(ByRef inifile As String, ByVal section As String, ByVal key As String, ByVal value As String)
    
42. Dim x As Long, buff As String * 256, i As Integer
    
43. buff = value + Chr(0)
    
44. x = WritePrivateProfileString(section, key, buff, App.Path & "" & inifile)
    
45. End Sub

复制代码

--------------------------------------------------------------------------------------------------------------------------------------------
现在问题是
1.如何靠以上的模块读取INI里的指定的数据?
2.如何调用此模块?此模块还有其他的作用吗?
以上一个问题300,全部回答600两,第一个回答正确者拿分.

aawc1144

顶上去..

weyl

............

[发帖际遇]: weyl跑去泰国取经，回来后出版《葵花宝典--2008奥运免自宫限量特别珍藏版》，获利银两13.

ciictiger

到程序员之家去发......

KA

问题解决~~
看来网络上还是好人多
BZ请锁贴,谢谢~