VB源码推荐:一个操作Ini文件的类
【VB源代码推荐:一个操作Ini文件的类】
&急性;-cini file . cls code-
& acute;此处定义了cIniFile class
Option Explicit。
&急性;//持有对
& acute;的引用的私有成员;//我们的ini文件的路径
Private strInI作为String
&急性;// Win API声明
私有声明函数WritePrivateProfileString _
Lib " kernel 32 " Alias " WritePrivateProfileString a " _
(ByVal lpApplicationName为String,_
ByVal lpKeyName为Any,_
ByVal lpString为Any,_
ByVal lpFileName为String)Long
私有声明函数GetPrivateProfileString _
Lib " kernel 32 " Alias " GetPrivateProfileString a " _
(ByVal lpApplicationName为String,_
ByVal lpKeyName为Any,_
ByVal lpDefault为String,_
ByVal lpReturnedString为String,_
ByVal nSize为Long,_
ByVal lpFileName为String)Long
私有函数MakePath(ByVal strDrv作为字符串,_
ByVal strDir作为字符串)作为字符串
&急性;//生成INI文件:保证sub dir
Do While Right $(str drv,1)= " \ "
str drv = Left $(str drv,Len(str drv)-1)
循环
Do While Left$(strDir,1) = "\"
strDir = Mid$(strDir,2)
循环
&急性;//返回path
MakePath = strrv & " \ " & strDir
End函数
公共Sub CreateIni(strDrv为字符串,strDir为字符串)
& acute;//创建新的ini文件
strInI = MakePath(strDrv,strDir)
End Sub
Public Sub WriteFile(strSection为String,_
strKey为String,_
strValue为String)
0条评论