注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

在VB中INI文件的读写  

2007-07-05 10:45:27|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
在VB中INI文件的读写
 很多时候我们编一个程序不一定要用到注册表来保存设置(如果说一个程序没有

设置就不算好程序了)。
INI是一个很好的选择。有人说,Savesetting是一个不错的选择,但是我了解到

,不能永久的保存(起码在系统重装的时候会丢失)。于是Ini作为一个Windows

配置文件,可以放在本地路径,优势就呈现出来。下面讨论一下这个问题。

1,模块:
Declare Function GetPrivateProfileString Lib "Kernel32" Alias

"GetPrivateProfileStringA" (ByVal lpApplicationName As String,

lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As

String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function SaveINI Lib "Kernel32" Alias

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal

lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String)

As Long
Function GetINI(AppName As String, KeyName As String, filename As

String) As String
   Dim RetStr As String
   RetStr = String(10000, Chr(0))
   GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal

KeyName, "", RetStr, Len(RetStr), filename))
End Function

2,调用:
读:Rtn=GetINI(appname, keyname, filename)
写:SaveINI appname,keyname,string,filename

调用例子:SaveINI "main","FontColor","801085","D:\"


3,参数解释:
例如INI文件中有这么一块:
[main]     
FontColor=801085  

其中:
main     .................是appname
FontColor   ..........是KeyName
801085  ...............是String
Filename  ............INI的绝对路径


怎么,是不是现在可以用INI文件保存你的设置啦。  
  评论这张
 
阅读(863)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017