本文目录一览：
- 1、VB读写配置INI文件
- 2、用C语言读取一个文件中的内容，如何对不同的行进行解析，比如是配置文件？
- 3、C语言 INI文件内数据读取方法
- 4、vba如何读取ini文件信息
- 5、vb ini详细操作
VB读写配置INI文件
用INI文件的读写函数比较好
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 -ini文件if函数
Private Function WriteIniFileString(StandKey As String, keyName As String, keyValue As String, FileName) As Long -ini文件if函数
'写INI文件函数
Dim leninikey As Long
Dim strkey As String * 255
WriteIniFileString = WritePrivateProfileString(StandKey, keyName, keyValue, FileName) -ini文件if函数
End Function
Private Function GetIniFileString(StandKey As String, keyName As String, Default As String, FileName As String) As String -ini文件if函数
'读取INI文件函数
Dim leninikey As Long
Dim strkey As String * 255
leninikey = GetPrivateProfileString(StandKey, keyName, Default, strkey, Len(strkey), FileName)-ini文件if函数
用C语言读取一个文件中的内容，如何对不同的行进行解析，比如是配置文件？
很简单的
配置文件 微软有抓们的一套解析函数
INI文件是Windows系统中一类比较重要的文件，通常用来存放系统或者应用程序的配置信息，以方便系统或者应用 程序在初始化时再次读入。比如Windows系统中的配置文件win.ini和system.ini，它们就主要存放系统启动或用户登陆时的系统信息。这 项功能在方便了系统配置的同时，也为非法程序的自动运行提供了可乘之机。显然，这类文件的重要性应该引起我们的重视。但是对于这样的ini文件的读写操作 却与普通文本文件有着种种的不同，尤其体现在编程实现上。笔者曾经尝试用手动更改的方法在文件中加入一些项，使得自己的程序能够在初始化时自动运行，但是 却没有成功，最后还是藉由编程的方法来实现了。这里主要涉及到一些API函数，而这些函数又往往不被人们所熟知，本文的任务就是在介绍这些函数的同时，用 简单的程序作了示例，下面我们言归正传。-ini文件if函数
先来看几个往配置文件中写入信息的函数：
（1）WritePrivateProfileSection()用来在ini文件中直接向指定区域写入键和值的信息，其原型如下：
BOOL WritePrivateProfileSection(
LPCTSTR lpAppName, // 指向指定字段的字符串
LPCTSTR lpString, // 指向要写入的键与值字符串
LPCTSTR lpFileName // 指向文件名称字符串，如果不包含完整路径，则在windows目录下创建
);
用法示例：
WritePrivateProfileSection(_T(“windows”),_T(“load=c:\\winnt\\notepad.exe”),_T(“c:\\winnt\\win.ini”));-ini文件if函数
（2）WritePrivateProfileString（）与上一个函数的不同点在于其将键和值分开了，原型如下：
BOOL WritePrivateProfileString(
LPCTSTR lpAppName, // 指向指定字段的字符串
LPCTSTR lpKeyName, // 指向指定键的字符串
LPCTSTR lpString, // 指向指定值的字符串
LPCTSTR lpFileName // 指向文件名称字符串
);
用法示例：
WritePrivateProfileString(_T(“windows”),_T(load”)_T(“c:\\winnt\\notepad.exe”),_T(“c:\\winnt\\win.ini”));-ini文件if函数
（3）WritePrivateProfileStruct()与前面两个的不同在于文件尾有校验和，原型如下：
BOOL WritePrivateProfileStruct(
LPCTSTR lpszSection, //指向指定字段的字符串
LPCTSTR lpszKey, //指向指定键的字符串
LPVOID lpStruct, //指向存放要加入的数据的缓冲区，如果为NULL，则删除键
UINT uSizeStruct, //缓冲区大小，以字节为单位
LPCTSTR szFile //以零结尾的文件名称字符串，如果为空，则向win.ini写入
);
用法示例：
WritePrivateProfileStruct(_T(“windows”),_T(“load”),pBuffer,sizeof(pBuffer),_T(“c:\\winnt\\win.ini”));-ini文件if函数
(4)还有两个函数，是专门用来向win.ini文件写入的，函数原型如下：
BOOL WriteProfileSection(
LPCTSTR lpAppName, //指向指定字段的字符串
LPCTSTR lpString //指向指定值的字符串
);
BOOL WriteProfileString(
LPCTSTR lpAppName, //指向指定字段的字符串
LPCTSTR lpKeyName, //指向指定键的字符串
LPCTSTR lpString //指向指定值的字符串
);
下面来看几个对应的从ini文件获取信息的API函数，上面已经说得很详细了，这里只说其中两个：
DWORD GetPrivateProfileString(
LPCTSTR lpAppName, //指向指定字段的字符串
LPCTSTR lpKeyName, //指向键的字符串
LPCTSTR lpDefault, //如果INI文件中没有前两个参数指定的字段名或键名，则将此值赋给变量
LPTSTR lpReturnedString, //存放INI文件中值的目的缓存区
DWORD nSize, //目的缓冲区的大小，以字节为单位
LPCTSTR lpFileName //指向INI文件名称的字符串
);
UINT GetPrivateProfileInt(
LPCTSTR lpAppName, //指向指定字段的字符串
LPCTSTR lpKeyName, //指向键的字符串
INT nDefault, //如果INI文件中没有前两个参数指定的字段名或键名，则将此值赋给变量
LPCTSTR lpFileName //指向INI文件名称的字符串
);
程序示例1： 我们在这里建立了一个应用程序“App Name”，并且使用了一个INI文件“appname.ini”，在此INI文件中，我们写入如下内容：
[Section1]
FirstKey = It all worked out okay.
SecondKey = By golly, it works.
ThirdKey = Another test.
代码分析如下：
#include stdio.h
#include windows.h
//主函数
main()
{
//定义局部
CHAR inBuf[80];
HKEY hKey1, hKey2;
DWORD dwDisposition;
LONG lRetCode;
// 试图创建INI文件的键值
lRetCode = RegCreateKeyEx ( HKEY_LOCAL_MACHINE,
"SOFTWARE\\Microsoft\\Windows NT
\\CurrentVersion\\IniFileMapping\\appname.ini",
0, NULL, REG_OPTION_NON_VOLATILE, KEY_WRITE,
NULL, hKey1,
dwDisposition);
//判断是否出错
if (lRetCode != ERROR_SUCCESS){
printf ("Error in creating appname.ini key\n");
return (0) ;
}
//试图设置一个节区的值
lRetCode = RegSetValueEx ( hKey1,
"Section1",
0,
REG_SZ,
"USR:App Name\\Section1",
20);
//判断是否出错
if (lRetCode != ERROR_SUCCESS) {
printf ( "Error in setting Section1 value\n");
return (0) ;
}
//试图创建一个应用名称键值
lRetCode = RegCreateKeyEx ( HKEY_CURRENT_USER,
"App Name",
0, NULL, REG_OPTION_NON_VOLATILE, KEY_WRITE,
NULL, hKey2,
dwDisposition);
//判断是否出错
if (lRetCode != ERROR_SUCCESS) {
printf ("Error in creating App Name key\n");
return (0) ;
}
//强制系统重新读取映射区的内容到共享内存中，以便于将来对应用程序的调用可//以找到它，而不需要重新启动系统
WritePrivateProfileStringW( NULL, NULL, NULL, L"appname.ini" );
//向INI文件中添加一些键值
WritePrivateProfileString ("Section1", "FirstKey",
"It all worked out okay.", "appname.ini");
WritePrivateProfileString ("Section1", "SecondKey",
"By golly, it works.", "appname.ini");
WritePrivateProfileSection ("Section1", "ThirdKey = Another Test.",
"appname.ini");
//测试一下添加的正确性
GetPrivateProfileString ("Section1", "FirstKey",
"Bogus Value: Get didn't work", inBuf, 80,
"appname.ini");
printf ("%s", inBuf);
return(0);
}
程序示例2：通过修改win.ini中的字段[windows]中的键load或run，或者是为system.ini中的字段[boot]中的键 shell增加值，可以达到设置程序自动运行的目的。假设我们要自动运行notepad.exe，修改后的win.ini或system.ini文件象这 样就可以：-ini文件if函数
win.ini
[windows]
load=c:\winnt\notepad.exe
run=c:\winnt\notepad.exe
system.ini
[boot]
shell=c:\winnt\explorer.exe c:\winnt\notepad.exe
注意：system.ini文件的修改要特别注意，如果你单纯改成shell=c:\winnt\notepad.exe，则不能首先运行 explorer.exe，很明显你将看不到桌面和任务栏，呵呵，笔者在做实验时就曾因为粗心造成了这样的后果，不过不用害怕，只要你用我们下面提供的程 序，将它修改过来就可以了，默认时，系统在system.ini中的[boot]下是shell=c:\winnt\explorer.exe。很多非法 程序就是通过修改这两个文件来达到自启动的目的的。-ini文件if函数
下面这个程序可以在附书光盘中找到，名称为“AutoPlay”，使用VC++6.0写成，核心程序源代码如下：
void CAutoRunDlg::OnBrowse()
{
//只浏览exe文件
CfileDialog fileDlg(TRUE,_T("EXE"),_T("*.exe"),OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,(_T("Executable Files (*.exe) |*.exe ||")));//显示打开文件的对话框-ini文件if函数
//当操作者选择OK时，程序取得选择文件的全路径名（包括文件的路径及文件名称），并将相应的数值传输给相关的控件变量。
if(fileDlg.DoModal()==IDOK)
{
m_strFileName=fileDlg.GetPathName();
//向将变量中的数值传输给控件显示出来。
UpdateData(FALSE);
}
}
void CAutoRunDlg::OnApply()
{
//更新数据
UpdateData(TRUE);
//写入ini文件
LPCTSTR filename;
filename=m_strFileName;
WritePrivateProfileString(_T("windows"),_T("load"),filename,_T("c:\\winnt\\win.ini"));
}
您如果要更改system.ini，可以将WritePrivateProfileString(_T("windows"),_T("load"),filename,_T("c:\\winnt\\win.ini"));-ini文件if函数
改为 WritePrivateProfileString(_T("boot"),_T("shell"),filename,_T("c:\\winnt \\system.ini"));并且在输入文件名时输入c:\winnt\explorer.exe c:\winnt\notepad.exe。-ini文件if函数
写到这里，本文的意图基本达到，如果您可以把某些代码亲自实现，相信读者会有比较大的收获。
C语言 INI文件内数据读取方法
ini文件和普通txt文件相同，都是文本格式，使用普通文本操作函数读取即可。
1、C语言标准库提供了一系列文件操作函数。文件操作函数一般以f+单词的形式来命名(f是file的简写)，其声明位于stdio.h头文件当中。例如：fopen、fclose函数用于文件打开与关闭；fscanf、fgets函数用于文件读取；fprintf、fputs函数用于文件写入；ftell、fseek函数用于文件操作位置的获取与设置。一般的C语言教程都有文件操作一章，可以找本教材进一步学习。-ini文件if函数
2、例程：
#includestdio.h
int a;
char b,c[100];
int main(){
FILE * fp1 = fopen("input.ini", "r");//打开输入文件input.ini
FILE * fp2 = fopen("output.txt", "w");//打开输出文件
if (fp1==NULL || fp2==NULL) {//若打开文件失败则退出
puts("不能打开文件！");
rturn 0;
}
fscanf(fp1,"%d",a);//从输入文件读取一个整数
b=fgetc(fp1);//从输入文件读取一个字符
fgets(c,100,fp1);//从输入文件读取一行字符串
printf("%ld",ftell(fp1));//输出fp1指针当前位置相对于文件首的偏移字节数
fputs(c,fp2);//向输出文件写入一行字符串
fputc(b,fp2);//向输出文件写入一个字符
fprintf(fp2,"%d",a);//向输出文件写入一个整数
fclose(fp1);//关闭输入文件
fclose(fp2);//关闭输出文件，相当于保存
return 0;
}
vba如何读取ini文件信息
功能实现函数如下
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
'********************************************************************
'* Sub : ReadFromIni and WriteIntoIni
'*
'* Purpose: 读写INI文件
'*
'********************************************************************
Public Function ReadFromIni(ByVal IniFile As String, ByVal Section As String, ByVal Key As String, ByVal DefaultValue As String) As String-ini文件if函数
Dim strRtn As String
strRtn = Space(256)
Dim lngRtn As Long
lngRtn = GetPrivateProfileString(Section, Key, DefaultValue, strRtn, 255, IniFile)
If lngRtn 0 Then
strRtn = Trim(strRtn)
ReadFromIni = Mid(strRtn, 1, Len(strRtn) - 1)
Else
ReadFromIni = DefaultValue
End If
End Function
Public Sub WriteIntoIni(ByVal IniFile As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)-ini文件if函数
Dim lngRtn As Long
lngRtn = WritePrivateProfileString(Section, Key, Value, IniFile)
If lngRtn 0 Then
Else
Call Err.Raise(-1, "IniFileUtil.WriteIntoIni", "Failed to write")
End If
End Sub
函数使用测试如下
Sub Main()
Dim strIniFile As String
strIniFile = ActiveWorkbook.Path "\example.ini"
Dim strSection As String
strSection = "Application"
Dim strKey As String
strKey = "Version"
Dim strValue As String
strValue = "1.0.30"
Call WriteIntoIni(strIniFile, strSection, strKey, strValue)
strValue = ReadFromIni(strIniFile, strSection, strKey, "")
MsgBox "Version = " strValue, vbInformation
End Sub
运行上面的函数，程序会在当前目录生成一个example.ini文件，并向里面写入如下信息
[Application]
Version=1.0.30
然后再读取显示出来，如下
vb ini详细操作
一、实现方法如下：1、新建一个工程/窗体(窗体取名为ini.frm)，在此窗体中添加三个命令按钮控件，分别为command1、command2、command3
command1.Caption= "write"
command2.Caption= "read"
command3.Caption= "End"2、代码部分：
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-ini文件if函数
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-ini文件if函数
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
Private Sub Command1_Click()
Dim A As Long
'写信息
'修改ABC.INI文件中各字段中关键字的值
'如果该文件不存在会自动建立,当函数返回值为0时说明修改不成功
A = WritePrivateProfileString("系统时间", "本次操作日期", Str$(Date), App.Path "\ABC.INI")
A = WritePrivateProfileString("系统时间", "本次操作时间", Str$(Time), App.Path "\ABC.INI")
A = WritePrivateProfileString("窗体位置及大小", "顶部", Str$(Form1.Top), App.Path "\ABC.INI")
A = WritePrivateProfileString("窗体位置及大小", "高度", Str$(Form1.Height), App.Path "\ABC.INI")
A = WritePrivateProfileString("窗体位置及大小", "宽度", Str$(Form1.Width), App.Path "\ABC.INI")
A = WritePrivateProfileString("窗体位置及大小", "左部", Str$(Form1.Left), App.Path "\ABC.INI")
If A = 0 Then MsgBox ("写文件时出错")
End Sub
Private Sub Command2_Click()
Dim A As Long
Dim T As String
Dim x As Integer
'读取信息
Form1.Cls 'Form1清屏
T = Space$(1000) '事先定义读取值的字串宽度
'读取ABC.INI文件中TIP字段中START的值并打印出来
'当函数返回值为0时说明读取数据出错
A = GetPrivateProfileString("系统时间", "本次操作时间", "", T, 1000, App.Path "\ABC.INI")
Print Left$(T, Len(Trim$(T)) - 1)
If A = 0 Then MsgBox "找不到所需字段": Exit Sub
x = GetPrivateProfileInt("窗体位置及大小", "高度", x, App.Path "\ABC.INI")
Print "高度=" x
x = GetPrivateProfileInt("窗体位置及大小", "宽度", x, App.Path "\ABC.INI")
Print "宽度=" x
x = GetPrivateProfileInt("窗体位置及大小", "左部", x, App.Path "\ABC.INI")
Print "左部=" x
x = GetPrivateProfileInt("窗体位置及大小", "顶部", x, App.Path "\ABC.INI")
Print "顶部=" x
If A = 0 Then MsgBox "找不到所需字段": Exit Sub
A = GetPrivateProfileString("系统时间", "本次操作日期", "", T, 1000, App.Path "\ABC.INI")
Print Left$(T, Len(Trim$(T)) - 1)
End SubPrivate Sub Command3_Click()
Call Command1_Click
End
End SubPrivate Sub Form_Load()
Dim A As Long
Dim T As String
Dim x As Integer
'读取信息
x = 0
T = Space$(1000) '事先定义读取值的字串宽度
'读取ABC.INI文件中TIP字段中START的值并打印出来
'当函数返回值为0时说明读取数据出错
x = GetPrivateProfileInt("窗体位置及大小", "高度", x, App.Path "\ABC.INI")
Form1.Height = x
x = GetPrivateProfileInt("窗体位置及大小", "宽度", x, App.Path "\ABC.INI")
Form1.Width = x
x = GetPrivateProfileInt("窗体位置及大小", "左部", x, App.Path "\ABC.INI")
Form1.Left = x
x = GetPrivateProfileInt("窗体位置及大小", "顶部", x, App.Path "\ABC.INI")
Form1.Top = x
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case 0:
Call Command1_Click
Case 1:
Call Command1_Click
Case 2:
Call Command1_Click
End Select
End Sub
二、说明：
注意是指定数据否与函数参数类型相一致
