不知道大家使用沒使用我前幾天寫的操作INI檔案的COM呢?我把代碼貼出來。

來源:互聯網
上載者:User
這個是VB的代碼,自己建立一個ActiveX DLL,然後改變工程名稱和類名稱,然後在類中輸入如下內容即可。

'//////////////////////////////
'中文名稱:INI檔案操作類
'英文名稱:Blood_INI Class
'作者:Blood
'製作時間:2002.2.8
'版本:1.0
'著作權 Blood 2002-2003
'//////////////////////////////

'申明變數
Private strAppName As String              'INI小節名稱
Private strKeyName As String              'INI項目名
Private strValueStr As String             'INI的項目值
Private strFileName As String             'INI檔案名稱

'申明操作INI檔案的API
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
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

'////////////////////
'開始定義函數
'////////////////////

'定義寫INI檔案的函數
Public Function WriteINI() As Long
    '通過API將值寫入INI檔案
    WriteINI = WritePrivateProfileString(strAppName, strKeyName, strValueStr, strFileName)
End Function

'定義讀INI檔案的函數
Public Function GetINI() As String
Const STRING_SIZE = 255                       '指定字串長度
Dim lngLength As Long                         '定義API函數返回的長度
Dim strDefault As String * STRING_SIZE        '定義在沒有找到指定的項目時返回的預設值
Dim strReturn As String * STRING_SIZE         '定義一個字串緩衝區

'通過API函數取得INI檔案的內容
lngLength = GetPrivateProfileString(strAppName, strKeyName, strDefault, strReturn, STRING_SIZE, strFileName)

'通過判斷API函數返回的長度來確定返回的值
If (lngLength = 0) Then
    GetINI = strValueStr
Else
    GetINI = Mid(strReturn, 1, lngLength)
End If

End Function

'////////////////////
'定義函數結束
'////////////////////

'////////////////////
'開始定義屬性
'////////////////////

'取得INI檔案的名稱
Public Property Let FileName(ByVal strFile As String)
    strFileName = strFile
End Property

'取得項目值
Public Property Let ValueStr(ByVal strValue As String)
    strValueStr = strValue
End Property

'取得項目名稱
Public Property Let KeyName(ByVal strKey As String)
    strKeyName = strKey
End Property

'取得小節名稱
Public Property Let AppName(ByVal strApp As String)
    strAppName = strApp
End Property

'////////////////////
'結束定義屬性
'////////////////////



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。