[Visual Basic]VB源码推荐:一个操作Ini文件的类

原创 2000年12月20日 02:28:00

【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 API 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)
Loop

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 root 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@chinaasp.com
    strUser = Trim(myIniFile.GetFile("setting", "username"))
    strUser = Left(strUser, Len(strUser) - 1)

版权声明:本文为博主原创文章,未经博主允许不得转载。

vs2010 .vb如何生成类库(DLL)

vs2010 vb如何生成类库(DLL) 1.打开VS2010,文件,新建项目-visual basic -windows-类库 .vb如何生成类库(DLL)" TITLE="vs2010 .vb如...
  • esonbest1234
  • esonbest1234
  • 2016年02月24日 11:36
  • 2051

【Visual Basic】纯代码不拖控件,利用动态生成控件的方式完成一个简单的四则运算计算器

vb6是一个典型的拖控件加代码的编程代表,因此也一直被认为难登大雅之堂,但是,在vb6中可以完全纯粹地使用代码控制这个窗体与窗体的控件。这样生成出来的控件位置摆放精确无比,无须拖好控件之后,再利用工具...
  • yongh701
  • yongh701
  • 2015年05月26日 20:55
  • 2408

MFC中对INI文件的读写操作总结

在南京第二家公司刚接触到在MFC下读写INI配置文件,下面介绍一下关于如何去读写INI配置文件吧。 首先说明一下配置文件的格式: 例如: [COUNT] COUNT=6 [LONGIN] USER=...
  • songchao_2011
  • songchao_2011
  • 2013年12月29日 19:57
  • 1424

一个封装好的ini文件操作类

  • 2012年10月23日 17:09
  • 3KB
  • 下载

VB6: Ini文件操作类

Option Explicit '' INI文件读写Api Private Declare Function GetPrivateProfileString Lib "kernel32" Alias...
  • yao_yu_126
  • yao_yu_126
  • 2013年05月12日 20:30
  • 1686

vb.net操作ini配置文件的类(源代码)

  • 2016年04月25日 14:12
  • 5KB
  • 下载

VC实现一个库,并用VB(Visual Basic)来调用的方法,包括传递数组的方法

因为工作需要,最近写了一个VB小软件,很多功能已经用VC写好了,如果再用VB整一遍太麻烦。最好的方法将VC程序编译成dll库,然后用VB来调用就行了。虽然VB已经很老了,但是做一些小软件还是非常方便的...
  • xueyushenzhou
  • xueyushenzhou
  • 2016年12月05日 11:59
  • 565

INI文件操作源码

  • 2013年12月09日 15:43
  • 2KB
  • 下载

linux下ini文件操作源码

  • 2012年03月16日 21:36
  • 5KB
  • 下载

读写ini文件 vb源码

  • 2010年09月29日 10:47
  • 8KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[Visual Basic]VB源码推荐:一个操作Ini文件的类
举报原因:
原因补充:

(最多只允许输入30个字)