📄 操作ini文件的com.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0047)http://www.abc800.com/news/artdetail.asp?id=876 -->
<HTML><HEAD><TITLE>操作INI文件的COM</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR><LINK
href="操作INI文件的COM.files/putong_1t" rel=StyleSheet type=text/css>
<SCRIPT language=javascript src="操作INI文件的COM.files/fun_Script.js"></SCRIPT>
</HEAD>
<BODY background=操作INI文件的COM.files/r_bg.gif>
<P align=center><BR></P>
<TABLE align=center class=tableFrame height=311 width="90%">
<TBODY>
<TR align=middle>
<TD align=right bgColor=#decbad class=listcelltitle height=274 vAlign=top
width=717>
<P align=center><BR><FONT color=#000000
style="FONT-SIZE: 14px"></FONT><FONT color=#000080
style="FONT-SIZE: 14px"><B>操作INI文件的COM</B></FONT><FONT color=#000000
style="FONT-SIZE: 14px"><BR></P>
<P align=right>更新日期：2002-11-5 阅读次数：747</FONT></P>
<P align=left style="FONT-SIZE: 14px">这个是VB的代码，自己新建一个ActiveX
DLL，然后改变工程名称和类名称，然后在类中输入如下内容即可。<BR><BR>'//////////////////////////////<BR>'中文名称：INI文件操作类<BR>'英文名称：Blood_INI
Class<BR>'作者：Blood<BR>'制作时间：2002.2.8<BR>'版本：1.0<BR>'版权所有 Blood
2002-2003<BR>'//////////////////////////////<BR><BR>'申明变量<BR>Private
strAppName As String 'INI小节名称<BR>Private strKeyName As String
'INI项目名<BR>Private strValueStr As String 'INI的项目值<BR>Private strFileName
As String 'INI文件名<BR><BR>'申明操作INI文件的API<BR>Private Declare Function
GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA"
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal
lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As
Long, ByVal lpFileName As String) As Long<BR>Private Declare Function
WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String) As
Long<BR><BR>'////////////////////<BR>'开始定义函数<BR>'////////////////////<BR><BR>'定义写INI文件的函数<BR>Public
Function WriteINI() As Long<BR>'通过API将值写入INI文件<BR>WriteINI =
WritePrivateProfileString(strAppName, strKeyName, strValueStr,
strFileName)<BR>End Function<BR><BR>'定义读INI文件的函数<BR>Public Function
GetINI() As String<BR>Const STRING_SIZE = 255 '指定字符串长度<BR>Dim lngLength As
Long '定义API函数返回的长度<BR>Dim strDefault As String * STRING_SIZE
'定义在没有找到指定的项目时返回的默认值<BR>Dim strReturn As String * STRING_SIZE
'定义一个字符串缓冲区<BR><BR>'通过API函数取得INI文件的内容<BR>lngLength =
GetPrivateProfileString(strAppName, strKeyName, strDefault, strReturn,
STRING_SIZE, strFileName)<BR><BR>'通过判断API函数返回的长度来确定返回的值<BR>If (lngLength =
0) Then<BR>GetINI = strValueStr<BR>Else<BR>GetINI = Mid(strReturn, 1,
lngLength)<BR>End If<BR><BR>End
Function<BR><BR>'////////////////////<BR>'定义函数结束<BR>'////////////////////<BR><BR>'////////////////////<BR>'开始定义属性<BR>'////////////////////<BR><BR>'取得INI文件的名称<BR>Public
Property Let FileName(ByVal strFile As String)<BR>strFileName =
strFile<BR>End Property<BR><BR>'取得项目值<BR>Public Property Let
ValueStr(ByVal strValue As String)<BR>strValueStr = strValue<BR>End
Property<BR><BR>'取得项目名称<BR>Public Property Let KeyName(ByVal strKey As
String)<BR>strKeyName = strKey<BR>End Property<BR><BR>'取得小节名称<BR>Public
Property Let AppName(ByVal strApp As String)<BR>strAppName = strApp<BR>End
Property<BR><BR>'////////////////////<BR>'结束定义属性<BR>'////////////////////
<BR><BR><BR><BR>原作者：blood<BR>来 源：开发者俱乐部<BR><BR></P></TD></TR>
<TR>
<TD align=right bgColor=#decbad class=listcelltitle height=29 vAlign=top
width=717><INPUT class=button name=Submit2 onclick=javascript:window.close() style="FONT-SIZE: 9pt" type=button value=关闭窗口>
</TD></TR></TBODY></TABLE><BR></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -