请教一下INI文件的操作

2006-03-22 02:52:13 217 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

1984bobby 墨衍会员 · AI 创作全网分发关注 + 加入社区

【C++】STL简介 STL简介。开始学习STL之前，是不是得先知道STL是个什么东西，以及如何学习STL呢？话不多说，开始我们今天的内容！是C++标准库的重要组成部分，不仅是一个可复用的组件库，而且是一个包罗数据结构与算法的软件框架。本篇博客主要介绍了有关STL的历史，主流版本，六大组件，以及其优缺点和学习方法等内容。希望能帮助到大家。♥C++ 阅读详情

小弟搜索了网上很多关于INI文件的读写等操作等文章，但实在看不懂，希望各位大侠指导一下

问题：
现在有一个窗体Frm1.frm,一个模块setdata.bas，setdata
模块setdata中存储程序中的数据库连接等信息,现在需要在程序启动的时候初始化程序的数据库连接,要求在系统启动的时候自动读入setdata.ini中的数据库文件路径赋予给setdata中的dbpath变量(方便生成连接字符串),就这么简单，只要演示让我明白ini文件的读入跟写入的过程让我明白就可以了，如果有好的教程麻烦贴个连接让小弟看看，不胜感激啊

...全文

C++中的STL C++中STL部分的内容，主要提供了一些同样的模板类和函数模板，详细结合代码对容器、算法、迭代器进行了例子讲解。阅读详情

1984bobby

数据库(包含打印，安装，报表) 1,218 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

hgw520 2006-03-24

打赏
举报

[Dir Info]
OpenDir=C:\Documents and Settings\Administrator\桌面\test.txt
SaveDir=C:\Documents and Settings\Administrator\桌面\222.txt

[Dir Info] 是节名
OpenDir 是项名
C:\Documents and Settings\Administrator\桌面\test.txt 是写入的字符串

hgw520 2006-03-24

打赏
举报

GetPrivateProfileString("节名","项名","默认返回串","缓存",缓存大小,ini文件名)
WritePrivateProfileString("节名","项名","要写入字符串",ini文件名)

1984bobby 2006-03-23

打赏
举报

一楼的程序还是看得不太懂

射天狼 2006-03-22

打赏
举报

'INI文件操作函数
Private Declare Function GetPrivateProfileStringByKeyName& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpszKey$, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function GetPrivateProfileStringKeys& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function GetPrivateProfileStringSections& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName&, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function WritePrivateProfileStringByKeyName& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String)
Private Declare Function WritePrivateProfileStringToDeleteKey& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Long, ByVal lplFileName As String)
Private Declare Function WritePrivateProfileStringToDeleteSection& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Long, ByVal lpString As Long, ByVal lplFileName As String)

'***************************************************
'名称：GetIniStringValue
'功能：读取INI文件内容
'输入：Section：扇区；Key：键值；File：文件全路径
'输出：
'返回：键值数据
'***************************************************
Public Function GetIniStringValue(Section As String, Key As String, File As String) As String
Dim KeyValue As String
Dim characters As Long

KeyValue$ = String$(128, 0)
characters = GetPrivateProfileStringByKeyName(Section$, Key$, "", KeyValue$, 127, File$)

If characters > 1 Then
KeyValue$ = Left$(KeyValue$, characters)
End If

GetPrivateStringValue = KeyValue$
End Function

╭════════════════════════════╮
║　　　　　　　　　　　　　　　　　　　　　　　　　　　　║
║　　免费的学习、交流、源码、工具网站，欢迎大家访问！　　║
║　　http://www.j2soft.cn/ 　　　　　　　　　　　　　　　║
╰════════════════════════════╯

faysky2 2006-03-22

打赏
举报

这里的具体一点：
http://community.csdn.net/Expert/topic/4509/4509943.xml?temp=.5230219

faysky2 2006-03-22

打赏
举报

http://community.csdn.net/Expert/topic/4436/4436050.xml?temp=.248501

请教一下INI文件的操作

相关推荐