说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB使用INI文件

HTML文档下载 WORD文档下载 PDF文档下载
VB使用INI文件
INI文件是Win16时代程序记录自身信息的方式,尽管当时的Windows 3.1也有注册表。在Win32时代,INI文件依然有其生存知道。比如一个绿色软件等等。
下面是读写INI文件的方法,为此我写了两个函数。
首先,声明两个API函数WritePrivateProfileString和GetPrivateProfileString,一下是代码:

Private Sub WriteToIni(ByVal Filename As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
  Dim buff As String * 128
  buff = Value + Chr(0)
  WritePrivateProfileString Section, Key, buff, Filename
End Sub
Private Function ReadFromIni(ByVal Filename As String,ByVal Section As String, ByVal Key As String) As String
  Dim i As Long
  Dim buff As String * 128
  GetPrivateProfileString Section, Key, "", buff, 128, Filename
  i = InStr(buff, Chr(0))
  ReadFromIni = Trim(Left(buff, i - 1))
End Function
应用举例:
一、写INI文件
Dim Counter As Long
For Counter=1 To 4
  Call WriteToIni(App.Path & "\Options.ini", "Test", "Name" & Counter, "Value" & Counter)
Next Counter
运行后Options.ini内容如下:
[Test]
Name1=Value1
Name2=Value2
Name3=Value3
Name4=Value4
二、读INI文件
Dim Counter As Long
Dim Value(3) As String
For Counter=1 To 4
  Value(Counter-1)=ReadFromIni(App.Path & "\Options.ini", "Test", "Name" & Counter)
Next Counter
即将到来的数据中心僵尸末日,谁能成为最后的幸存者?! Andorid APK反逆向解决方案:梆梆加固原理探寻 科技拥抱设计:体验设计如何创新? Rails 4.0正式发布 命途多舛的webOS,两度易主,生生死死多少回 Citrix全面开源XenServer 为了三十亿人的网络幸福:Google投资O3b发射网络卫星 Windows 8.1中IE 11开始支持WebGL和SPDY/3 微软Build 2013开发者大会:盘点Windows 8.1的15个重大更新 瞧!这是摩托罗拉移动新Logo,你有什么感觉? 专访UEditor创始人战毅:打造最佳的用户编辑体验 Eclipse 4.3 正式版发布 代号Kepler 为兴趣而生 七大编程挑战项目,你敢来吗? iOS 7辅助功能:左右摇头控制iOS设备 挑战传统关系型数据库:Facebook图形数据库TAO揭秘 揭秘“棱镜计划”幕后的技术 你更新了吗?Visual Studio 2013 Preview和.NET 4.5.1同时发布 你主要使用什么编程语言? 跨平台游戏开发工具App Game Kit或将新增更多强悍功能 移动应用推广的那些事儿:应用发现篇 DDoS攻击也能成为一种云计算服务 Netflix开源Hadoop集群调度工具:日处理近万作业、上千TB数据 传谷歌正开发自己的视频游戏主机和智能手表 AMD APU战略转型:全民四核,发力“云+端” 富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) 工作变得简单又高效 试试这八个WebApp 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? WinCE.NET 系统上如何拷屏 请问如何选择录音的输入设备? 引用“&”和union有没有区别啊? 本版的“跳楼大放送,今年高程、系分模拟试题及备考指南、考前培训笔记、心得,保证通过率。 (romantic999 ) ”你们打的开吗?我打不开 哪里有 车辆管理系统 的资料 请教:(在程序中)如何判断我的系统是否安装SQL Server数据库。如果安装,如何获取SQL Server的版本信息?谢谢! 小问题 请教 将RS232输入的信息转成键盘输入??? 关于表生成文本文件遇到的事情,急 西北人在外(北京,上海,深圳,广州等)打工的兄弟们进来聊聊。 数组问题 急~!!! 如何获得多选框是否被选中 怎样将2003-3-16的字符串串换成时间值 jdom中问题 大家知道今年各个级别考试的通过率是多少吗?什么地方能查到吗? 刷涂料用的滚筒刷子有哪几种类型? 其实在我们的生活中,有着许许多多的爱.同学之间的爱,老师之间的爱,朋友之间的爱...其中,最伟大的就是母爱了,请问母爱都体现在什么地方了?《妈妈,谢谢你》这骗作文怎么写才能得做高分(5 in your line of...You cant interpret the letter in your line of argument.It should be read in its own right.请问这两句话翻译成中文的意思是什么?in your line of argument这部分的分析?in one's line of有这个词组吗? 刷涂料用的滚筒刷子有哪几种类型? 什么事情最能体现母爱 过滤纸怎么叠 求作文:国庆见闻,不少于500字,求大家了啊啊啊啊啊啊啊啊啊啊,我现在初一,求大家了啊啊啊啊啊啊啊啊 关于母爱的事件 要一篇写了小伙伴的作文 初一五十词短文 谁有 急求 啊啊啊啊啊啊啊 石家庄身边的新变化作文征文要以“身边的新变化”、“身边的新现象”、“身边的文明故事”、“未来的新发展”、“自己的幸福感悟”为主题用文字描述城市的新变化和新发展,以及对幸 今天大家是不是都用不了line这个软件呀 黑金鱼开过滤泵肚子上会有气泡 金鱼是新买的 水是没困过的自来水 怎么破? 求石家庄暴雪作文有高人来写一篇石家庄暴雪作文吗? 我最敬佩的人300字-400字 过滤泵内置的还是外置的好?为什么? 以变化为主题初二作文 LINE工具怎么样 一条红领巾的底长是100厘米,高是33厘米,做400条红领巾需要红布多少平方米? 向石灰水中加过量的碳酸钠溶液,反应后溶液ph是碳酸钠ph么我认为不是,毕竟里面还有NAOH,但老师是这样讲的,是老师讲错了么 line聊天工具是那个国家的?line聊天工具到底是那个国家开发的,是韩国还是日本?还是其他? 沉默非金辩论赛的总结词怎么说啊?我是四辩,近期需要啊! 安全帽标R代表什么? 体育通讯稿 小学老师培养应侧重与全科化还是专业化 辩论赛 四辩小结 急求 明天就要比赛了啊T我们是正方,说的是专业化,急求高手指点一二啊.不知道该怎么写四辩的小结啊,还有,我们是正方 如果有很 求伴你成长六年级下第九课假如给我三天光明的全部答案,急!明天要交滴!速度啊大神们!求! NOIP2011普及组的题目会太难吗? 【我的初一生活】作文怎么写.买噶,我要自己写早就写完了,关键是不会写 爸爸的年龄是红红的4倍,红红比爸爸小27岁,爸爸和红红各多少岁?解方程题解方程 dot line report是什么意思 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音具有_________的功能? 让什么让什么作对偶句 例如:让理想与风筝齐飞,让希望与春天同在! finish line dot 5.1怎么样 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能_________? 如何放飞风筝 尊师爱师的故事 人民公园100人以上的团体门票是按原价的五五折优惠的.五年级160人去公园游玩,买门票一共花去528元.每张门票多少元 最能体现出母爱的一件事今天11点前要答案!不需要给我作文 尊师故事我眼豪富火堆四哦扶绥 人民公园的杜鹃花盆数是长春公园的4倍,如果从人民公园搬出188盆杜鹃花放入长春公园则人民公园的杜鹃花盆就比长春公园少25盆,两个公园原来各有杜鹃花多少盆. 位趁东风放纸鸢的上句 Our teather often asks us_(not cut)in line when we're waiting for a bus proteus 原理图绘制问什么它自己会关掉 几句话的字谜是什么 wait in line 的告示牌用英语怎么写?you should keep__________clean.紧急!wait in line意思为排好队 proteus中蓝色小三角形是什么,在哪找? noip2011普及组复赛浙江所有人的成绩 PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1 盘点2009作文(班级)编一个故事(真实) noip2011普及组复赛成绩什么时候出啊 PASCAL NOIP1997复赛普及组第二题2.将1,2,••••••,9共9个数排成下列形态的三角形.(30%) a b c d e f 盘点2009国家大事 这方面的高中作文要800字左右,围绕国家大事的 紧急!NOIP2011普及组复赛,复测如果原来错的批下来还是错的,今年是国家同批,去年和前年我参加的是省里批的,如果错的还是错了要扣10%的分数.今年扣不扣?不懂的别来说. I m on line,so you take your heart on your breast. 2009中国大事件盘点(可用于作文材料)答的好的后加分 爸爸的年龄是红红的4倍,红红比爸爸小27岁,爸爸和红红各多少岁? in your line of什么意思 过年想自己用滚筒把家里粉刷一下,用的油漆还是涂料,········希望可以详细一点,我一点也不懂. 有关母爱的事件 要真实的! line of your email 美国使馆神秘“白盒”遍布全球 疑为监美国空管局解除禁令 航班乘客飞行全程亚太地区癌症新增病例占到全球的45%日本防相:警戒中国舰机无问题 不理解第四届世界社会主义论坛召开教皇被爆长期遭美监听 梵蒂冈意大利“日本民主党报出现印刷错误出洋相 党员美将俄歌星列入黑名单 俄抗议表示不可肯尼亚16岁少女遭轮奸疑犯仅被罚剪草F-35战机炸坦克疑似脱靶 美方称获尼日尔移民车沙漠抛锚 致90人干渴而日本最先进潜艇“黑龙”举行下水仪式(米粉店枪杀细节曝光:事发前一广东老板以色列军队炮击加沙打死一名巴勒斯坦人旧金山地方检察院举行反家暴妇女维权座日防相:警戒中国舰机无问题 不理解中沙特女性反抗禁驾令 小伙因改编歌曲助西班牙走出两年经济衰退 首次出现经济约旦河西岸推进环保 巴以或实现“环境日方回应“中国抗议日舰闯入中方演习区新闻分析:俄乌“斗气” 影响有限荐号 | 大批富人将雪崩式返贫,大批天天果园关于褚橙的公开信谷歌错失五年 重返中国前景难料四大酒店集团抱团对抗OTA京东宣布与褚橙合作 然而对方发声明否加息板上钉钉,现货白银创新低,抄底时“美丽曲线”网上热销 原来是假药!6.6%受访者感觉“双11”严重超支支付宝pk微信支付 移动支付战火花四朋友圈最受欢迎的12大微信号!为什么有些人能用一年获得你三年的工作产品经理与产品运营谁更有前景?一定能带给你惊喜的13个微信号!通讯:把推广中医作为己任 记匈牙利针中越两国商讨联手打击走私濒危野生动植有人比你工作忙还比你会享受生活,你信明白你和高级管理者的7大差距,不仅是大揭秘,公寓史上之最!在北京:最稀缺的顶豪别墅是谁?中国创大许洪波投资河南互联网企业消费恒大北京公司高管近乎全体离职:年底H
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘