魔塔之拯救白娘子 完整工程下載地址：
讀寫ini.bas 用來讀寫ini文件

Option Explicit '讀寫INI聲明Dim TempBol Public iniFileName As String Public Declare Function GetPrivateProfileInt Lib "Kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long Public 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 Public Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPublic Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long '-----------------------判斷文件與文件夾是否存在函數 Public Function FiFoExists(ByVal FileName As String) As BooleanIf FileName <> "" Then FiFoExists = CBool(PathFileExists(FileName)) End Function '-----------------------判斷文件是否存在函數 Public Function FileExists(ByVal FileName As String) As BooleanDim TempBol As BooleanIf FileName <> "" Then TempBol = CBool(PathFileExists(FileName))If TempBol Then FileExists = Not FolderOrFile(FileName) End Function '-----------------------判斷文件夾是否存在函數 Public Function FolderExists(ByVal FileName As String) As Boolean If FileName <> "" Then TempBol = CBool(PathFileExists(FileName)) If TempBol Then FolderExists = FolderOrFile(FileName) End Function '-----------------------判斷一個路徑是文件夾還是文件 Public Function FolderOrFile(strPath As String) As BooleanIf GetAttr(strPath) And vbDirectory Then FolderOrFile = True Else FolderOrFile = False End Function'****************************************獲取Ini字符串值(Function)****************************************** Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As StringDim ResultString As String * 144, Temp As IntegerDim s As String, i As IntegerTemp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, AppProFileName(iniFileName))'檢索關鍵詞的值If Temp% > 0 Then '關鍵詞的值不為空s = ""For i = 1 To 144If Asc(Mid$(ResultString, i, 1)) = 0 ThenExit ForElses = s & Mid$(ResultString, i, 1)End IfNextElseTemp% = WritePrivateProfileString(SectionName, KeyWord, DefString, AppProFileName(iniFileName))'將缺省值寫入INI文件s = DefStringEnd IfGetIniS = s End Function'**************************************獲取Ini數值(Function)*************************************************** Function GetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Long) As LongDim d As Long, s As Stringd = DefValueGetIniN = GetPrivateProfileInt(SectionName, KeyWord, DefValue, AppProFileName(iniFileName))If d <> DefValue Thens = "" & dd = WritePrivateProfileString(SectionName, KeyWord, s, AppProFileName(iniFileName))End If End Function'***************************************寫入字符串值(Sub)************************************************** Sub SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) Dim res% res% = WritePrivateProfileString(SectionName, KeyWord, ValStr, AppProFileName(iniFileName)) End Sub '****************************************寫入數值(Sub)****************************************************** Sub SetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValInt As Long)Dim res%, s$s$ = Str$(ValInt)res% = WritePrivateProfileString(SectionName, KeyWord, s$, AppProFileName(iniFileName)) End Sub'這是我自已不知道怎樣清除一個鍵(keyword) 時 '寫的一個清除字符串值的過程，是有write函數寫入一個空的值實現的，'Sub DelIniS(ByVal SectionName As String, ByVal KeyWord As String) 'Dim retval As Integer 'retval = WritePrivateProfileString(SectionName, KeyWord, "", AppProFileName(iniFileName)) 'End Sub '其實0&表示前面的一個被清除，我多寫了一個“”，如果是清除section就少寫一個Key多一個“”。'***************************************清除KeyWord"鍵"(Sub)************************************************* Sub DelIniKey(ByVal SectionName As String, ByVal KeyWord As String)Dim RetVal As IntegerRetVal = WritePrivateProfileString(SectionName, KeyWord, 0&, AppProFileName(iniFileName)) End Sub'如果是清除section就少寫一個Key多一個“”。 '**************************************清除 Section"段"(Sub)*********************************************** Sub DelIniSec(ByVal SectionName As String) '清除section Dim RetVal As Integer RetVal = WritePrivateProfileString(SectionName, 0&, "", AppProFileName(iniFileName)) End Sub'*************************************定義Ini文件名(Function)*************************************************** '定義ini文件名 Function AppProFileName(iniFileName)AppProFileName = App.Path & "\" & iniFileName & ".ini" End Function'#######################################################################'用法: 首先 定義iniFileName="文件名" 不需要 加ini后綴 '這就是說，你可以賦值給iniFileName就可以寫入記錄，而且你可以隨時寫入不同的ini文件(不管這個文件是否已存在），通過修改這個公用變量。'然后 DelInikey（ByVal SectionName As String, ByVal KeyWord As String） 清除鍵 'DelIniSec(ByVal SectionName As String)) 清除部 'SetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValInt As Long) 寫入數 'GetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Long)讀取數 'SetIniS (ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) 寫入字符 'GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) 讀取字符'調用例子如下:Sub RiniN()Dim Initemp As StringInitemp = iniFileName '暫存原來的Ini文件名iniFileName = App.EXEName '寫入到另外一個Ini文件，App.EXEName是你的程序的名程' If GetIniN("lstBackup", "backupnumber", 0) < lstBackUp.ListCount Then'這里的第三個參數“0”表示在沒有找到指定的鍵值時返回的缺省值為“0”'SetIniN "lstBackup", "backupnumber", lstBackUp.ListCount'......'End IfiniFileName = Initemp '繼續使用原來的Ini文件 End Sub

總結

以上是生活随笔為你收集整理的魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~4读写ini文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。