VB原始碼推薦:一個操作Ini檔案的類 (轉)
【VB原始碼推薦:一個操作Ini的類】
'--------cIniFile.cls 程式碼----------------
'這裡定義了一個cIniFile類
Option Explicit
'// Private member that holds a reference to
'// the path of our ini file
Private strInI As String
'// Win Declares
Private Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
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 Function MakePath(ByVal strDrv As String, _
ByVal strDir As String) As String
'// Makes an INI file: Guarantees a sub dir
Do While Right$(strDrv, 1) = ""
strDrv = Left$(strDrv, Len(strDrv) - 1)
L
Do While Left$(strDir, 1) = ""
strDir = Mid$(strDir, 2)
Loop
'// Return the path
MakePath = strDrv & "" & strDir
End Function
Public Sub CreateIni(strDrv As String, strDir As String)
'// Make a new ini file
strInI = MakePath(strDrv, strDir)
End Sub
Public Sub WriteFile(strSection As String, _
strKey As String, _
strValue As String)
'// Write to strINI
WritePrivateProfileString strSection, _
strKey, strValue, strInI
End Sub
Public Function GetFile(strSection As String, _
strKey As String) As String
Dim strTmp As String
Dim lngRet As String
strTmp = String$(100, Chr(32))
lngRet = GetPrivateProfileString(strSection, _
strKey, "", strTmp, _
Len(strTmp), strInI)
GetFile = strTmp
End Function
Public Property Let INIFile(ByVal New_IniPath As String)
'// Sets the new ini path
strInI = New_IniPath
End Property
Public Property Get INIFile() As String
'// Returns the current ini path
INIFile = strInI
End Property
'--------cIniFile.cls 使用舉例----------------
Dim myIniFile As New cIniFile
'---指定訪問的ini檔案
If Len(App.Path) > 3 Then
'under disk dir , eg: "C:"
myIniFile.INIFile = App.Path & "setting.ini"
Else
myIniFile.INIFile = App.Path & "setting.ini"
End If
'---寫入ini檔案
myIniFile.WriteFile "setting", "username", strUser
'---讀出ini檔案的資料
' 注意,如果是字串,則去掉末尾一個字元
' ----flybird@china.com
strUser = Trim(myIniFile.GetFile("setting", "username"))
strUser = Left(strUser, Len(strUser) - 1)
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-987495/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- VB讀寫ini檔案 (轉)
- 原始碼推薦:vb的GUID生成演算法 (轉)原始碼GUI演算法
- 推薦一個java操作ftp的工具類JavaFTP
- 程式執行資訊的非登錄檔儲存類(ini 檔案操作類) (轉)
- asp.net 操作INI配置檔案類ASP.NET
- 在VB應用程式中使用INI檔案的一點體會 (轉)
- VB.NET 讀寫ini檔案
- 推薦一個yaml檔案轉json檔案的線上工具YAMLJSON
- java操作ini檔案Java
- VB原始碼推薦: 動態的顯示/隱藏start按鈕 (轉)原始碼
- VB中檔案操作的兩種方式 (轉)
- Symbian中操作ini檔案
- 讀寫INI檔案的四個函式 (轉)函式
- 原始碼推薦:一個使用C#繪製圖形引擎的Framework (轉)原始碼C#Framework
- delphi讀取ini檔案 (轉)
- 超讚!推薦一個專注於Java後端原始碼分析的Github專案!Java後端原始碼Github
- Golang 原始碼學習(一) —— os/file 檔案操作Golang原始碼
- PHP獲取和操作配置檔案php.ini的幾個函式PHP函式
- ini檔案解析c庫(iniparser)【轉】
- 原始碼面前沒有祕密,推薦 9 個帶你閱讀原始碼的開源專案原始碼
- Vb下呼叫Help檔案 (轉)
- 推薦一個檔案文件線上預覽專案解決方案【kkFileView】View
- 用vb操作檔案或資料夾
- 用VB編寫一個彈出選單類 (轉)
- .NET程式配置檔案操作(ini,cfg,config)
- 推薦一個攝影專案《面孔》
- 推薦16個國外的原始碼下載網站原始碼網站
- 成品直播原始碼推薦,用JNI生成so檔案,加密解密需要的hascode生成程式碼原始碼加密解密
- 檔案操作類FileUtil
- 在VB中使用檔案物件 (轉)物件
- 真正開源的商城原始碼推薦原始碼
- 一個可以自己佈局的推箱子游戲 (附原始碼) (轉)原始碼
- 一個CSV檔案解析類
- Python 使用ConfigParser操作ini配置檔案教程。Python
- 推薦:門戶portal系統的兩個開發原始碼原始碼
- 推薦一個工具
- 推薦個超好玩的專案
- 推薦一個php7+ mongodb三方類PHPMongoDB