VB对ini文件操作的方法

Question

比如这个
[BugTrace]
DumpType = 1

[BugTrace]这个代表什么
DumpType还有这个，能简单的解释一下么？
还有怎么对这种文件进行读和写？格式怎样？

Answer 1

BugTrace ：Bug Trace，bug不用解释了吧，trace 痕迹，意思是bug痕迹，就是bug出现时记录的

DumpType：dump 转储，倾倒 ， Type 类型，这个不好理解，大约是错误类型吧

用这个例子来写好了，比方说这个ini文件保存在C:\1.ini，然后内容为
[BugTrace]
DumpType = 1
那么代码就是这样写

'首先是API的声明：
'读取用的API
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

'写入用的API
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 Sub Command1_Click()
Dim F As String
F = "C:\1.ini"
dl = WritePrivateProfileString("BugTrace", "DumpType", 写入的变量, F)

End Sub

'读取
Private Sub Command2_Click()
Dim F As String
F = "C:\1.ini"
GetPrivateProfileString "BugTrace", "DumpType", vbNullString, 读取的变量, 255, F
MsgBox 读取的变量 '这句可以省略，用于显示读取到的数字，如前面的例子就是1
End Sub

上面的 写入的变量 和 读取的变量 请自行修改。

Answer 2

用API函数GetPrivateProfileString，WritePrivateProfileString，GetPrivateProfileInt
即可。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 Any, ByVal lpFileName As String) As Long
Private 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

写INI文件

WritePrivateProfileString "系统时间", "本次操作日期", Str$(Date), "C:\记录.INI"

读INI文件：

Dim T As String '定义字符变量
T = Space$(1000) '事先定义读取值的字串宽度
GetPrivateProfileInt "系统时间", "本次操作日期", T, "C:\记录.INI"
T = Left$(T, Len(Trim$(T)) - 1)

Answer 3

[BugTrace]
是这个ini的某个设置的分类
DumpType是某个设置的值
Vb中可以用Open 关键字进行读写
Open "X:\Y.ini" For Input As #1
Line Input #1,Varent
读出其值

Answer 4

方括号[]里是字段,代表一个类型的参数,下面的是具体参数与赋值

我有现成的ini类模块,需要可以给你用用.

HI我哦

Answer 5

标题

有专门的操作ini文件的API,

也可以自己写一个