VB6.0实现读写配置文件(*.ini文件)

你的名字 2022-07-15 05:49 560阅读 0赞

## VB6.0实现读写配置文件(\*.ini文件) ##

2013-11-08  [HydroLIB][]  [文章来源][Link 1]

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div style="margin:0px; padding:0px; width:656px; height:0px"></div> 
    <div>
      '声明： 
    </div> 
    <div>
      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 
     <br> Declare Function WritePrivateProfileStrin g Lib "kernel32" Alias "WritePrivateProfileStrin gA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long 
     <br> 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 
    </div> 
    <div>
      '读写例子： 
    </div> 
    <div>
      Sub RWConfigFile() 
     <br> &nbsp; &nbsp; &nbsp;  '读字符串 
     <br> &nbsp; &nbsp; &nbsp;  Dim lng As Long 
     <br> &nbsp; &nbsp; &nbsp;  Dim retstr As String 
     <br> &nbsp; &nbsp; &nbsp;  retstr = String(260, 0) 
     <br> &nbsp; &nbsp; &nbsp;  lng = GetPrivateProfileString("config", "para1", "", retstr, 256, "c:\config.ini") 
     <br> &nbsp; &nbsp; &nbsp;  retstr = Replace(retstr, Chr(0), "") 
     <br> &nbsp; &nbsp; &nbsp;  
     <br> &nbsp; &nbsp; &nbsp;  '读整数 
     <br> &nbsp; &nbsp; &nbsp;  lng = GetPrivateProfileInt("config", "para2", 0, "c:\config.ini") 
     <br> &nbsp; &nbsp; &nbsp;  
     <br> &nbsp; &nbsp; &nbsp;  '写字符串 
     <br> &nbsp; &nbsp; &nbsp;  lng = WritePrivateProfileStrin g("config", "para3", "写文件测试", "c:\config.ini") 
     <br> End Sub 
    </div> 
    <div>
      &nbsp; 
    </div> 
    <div>
      &nbsp; 
    </div> 
    <div>
      config.ini配置文件格式： 
    </div> 
    <div>
      [config] 
     <br> para1=你好abc111 
     <br> para2=123 
     <br> para3=写文件测试 
    </div> 
    <div>
      特别提示： 
    </div> 
    <div>
      声明在模块内，配置文件中值两边的空格会被忽略掉。“para1=你好abc111” 和 “para1= 你好abc111&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;  ”效果相同。 
    </div> 
    <div>
      如果文件没有全路径,而是只写文件名config.ini，则读写路径为%windir%\config.ini。 
    </div> 
    <div> 
     <p>说明:上面的文章虽然是转载来的,不过我测试后读写字符串没问题但读整数部分不正确,希望能对才学VB6.0的朋友们有所帮助</p> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

转藏到我的图书馆 献花（0） \+1  分享： 微信

QQ空间 QQ好友 新浪微博 腾讯微博 推荐给朋友

来自： [HydroLIB][]> [《待分类1》][1]

[以文找文][Link 2]   |   举报

上一篇：[【VB6.0】VB常用术语/内部函数][VB6.0_VB]

[HydroLIB]: http://www.360doc.com/userhome/14550199
[Link 1]: http://sphyj.blog.163.com/blog/static/6609646201221411208190/
[1]: http://www.360doc.com/userhome.aspx?userid=14550199&cid=2
[Link 2]: https://www.baidu.com/s?wd=byval+ini+config&tn=SE_hldp01010_6r0gix1f
[VB6.0_VB]: http://www.360doc.com/content/13/1108/09/14550199_327595043.shtml