欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

     VB6中一個(gè)非常好用的讀寫(xiě)Ini文件的模塊
                                                               hejianzhong

        網(wǎng)上讀寫(xiě)Ini文件的例子只有幾篇相同的文章，而并不好用，奇怪的是各網(wǎng)站都是同樣的例程，高手也就罷了，三下五除二就搞定，初學(xué)者會(huì )被搞得一頭霧水，看著(zhù)一個(gè)好好的模塊就是不能用。
        所以我整理了一下（最早是在騰訊答一個(gè)貼子時(shí)寫(xiě)的），這個(gè)也就是修改了一下，不是我自已的發(fā)明(至于這個(gè)代碼起先不知是誰(shuí)寫(xiě)的),不過(guò)非常的好用 

新建模塊（建議不使用注冊表） 命名為rwini
‘ini文件在有回車(chē)換行符會(huì )出錯，經(jīng)過(guò)測試，漢字要小于86字節，英言文要小于143字節才能返回列表框。（這是我以前的code，是記錄列表框內容的）
Option Explicit
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 Long

‘****************************************獲取Ini字符串值(Function)******************************************
Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As String
Dim ResultString As String * 144, Temp As Integer
Dim s As String, i As Integer
Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, AppProFileName(iniFileName))
‘檢索關(guān)鍵詞的值
If Temp% > 0 Then ‘關(guān)鍵詞的值不為空
s = ""
For i = 1 To 144
If Asc(Mid$(ResultString, i, 1)) = 0 Then
Exit For
Else
s = s & Mid$(ResultString, i, 1)
End If
Next
Else
Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, AppProFileName(iniFileName))
‘將缺省值寫(xiě)入INI文件
s = DefString
End If
GetIniS = s
End Function

‘**************************************獲取Ini數值(Function)***************************************************
Function GetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Long) As Integer
Dim d As Long, s As String
d = DefValue
GetIniN = GetPrivateProfileInt(SectionName, KeyWord, DefValue, AppProFileName(iniFileName))
If d <> DefValue Then
s = "" & d
d = WritePrivateProfileString(SectionName, KeyWord, s, AppProFileName(iniFileName))
End If
End Function

‘***************************************寫(xiě)入字符串值(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
‘****************************************寫(xiě)入數值(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


‘這是我自已不知道怎樣清除一個(gè)鍵(keyword) 時(shí)
寫(xiě)的一個(gè)清除字符串值的過(guò)程，是有write函數寫(xiě)入一個(gè)空的值實(shí)現的，‘Sub DelIniS(ByVal SectionName As String, ByVal KeyWord As String)
‘Dim retval As Integer
‘retval = WritePrivateProfileString(SectionName, KeyWord, "", AppProFileName(iniFileName))
‘End Sub
‘其實(shí)0&表示前面的一個(gè)被清除，我多寫(xiě)了一個(gè)“”，如果是清除section就少寫(xiě)一個(gè)Key多一個(gè)“”。

‘***************************************清除KeyWord"鍵"(Sub)*************************************************
Sub DelIniKey(ByVal SectionName As String, ByVal KeyWord As String)
Dim RetVal As Integer
RetVal = WritePrivateProfileString(SectionName, KeyWord, 0&, AppProFileName(iniFileName))
End Sub

‘如果是清除section就少寫(xiě)一個(gè)Key多一個(gè)“”。
‘**************************************清除 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后綴
‘這就是說(shuō)，你可以賦值給iniFileName就可以寫(xiě)入記錄，而且你可以隨時(shí)寫(xiě)入不同的ini文件(不管這個(gè)文件是否已存在），通過(guò)修改這個(gè)公用變量。

‘然后   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) 寫(xiě)入數 
          ‘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) 寫(xiě)入字符 
          ‘GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) 讀取字符

調用例子如下：

Sub RiniN()
Dim Initemp As String
    Initemp = iniFileName ‘暫存原來(lái)的Ini文件名
    iniFileName = App.EXEName ‘寫(xiě)入到另外一個(gè)Ini文件，App.EXEName是你的程序的名程
    If GetIniN("lstBackup", "backupnumber", 0) < lstBackUp.ListCount Then
        ‘這里的第三個(gè)參數“0”表示在沒(méi)有找到指定的鍵值時(shí)返回的缺省值為“0”
        SetIniN "lstBackup", "backupnumber", lstBackUp.ListCount
        ‘......
    End If
    iniFileName = Initemp ‘繼續使用原來(lái)的Ini文件
End Sub
 
‘你在你的電腦子上搜索*.ini就看一下,最上面是部,每一個(gè)key后面是一個(gè)對應的值

再次重申，這個(gè)Ini讀寫(xiě)的例子是網(wǎng)上找來(lái)改寫(xiě)的，我只是為方便大家使用。算不得我的發(fā)明。(我本來(lái)不想寫(xiě)VB6的東西---我本來(lái)就不曾認真學(xué)過(guò)VB6的了，實(shí)在不明白為什么要傳播一個(gè)不完整的例程這么久）,如果有任何不當的地方，就“權且”吧。