VB操作.ini后缀文件的方法_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

VB操作.ini后缀文件的方法

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:文件方法操作'
黑客防线网安网讯:读文件用到GetPrivateProfileString,写文件需要用到WritePrivateProfileString。  在窗体放置两个命令按钮Command1与Command2,分别用来执行写操作与读操作。  PrivateDeclareFunction...
读文件用到GetPrivateProfileString写文件需要用到WritePrivateProfileString
  在窗体放置两个命令按钮Command1与Command2分别用来执行写操作与读操作
  PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong
  PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong
  
  
  PrivateSubCommand1_Click()
  DimAAsLong
  '写信息
  '修改ABC.INI文件中TIP字段中START的值为当前系统时间
  '如果该文件不存在会自动建立,当函数返回值为0时说明修改不成功
  A=WritePrivateProfileString("TIP","START",Time$,App.Path&"ABC.INI")
  IfA=0ThenMsgBox("写文件时出错")
  EndSub
  
  
  PrivateSubCommand2_Click()
  DimAAsLong
  DimTAsString
  '读取信息
  T=Space$(1000)'事先定义读取值的字串宽度
  '读取ABC.INI文件中TIP字段中START的值并打印出来
  '当函数返回值为0时说明读取数据出错
  A=GetPrivateProfileString("TIP","START","",T,1000,App.Path&"ABC.INI")
  IfA=0ThenMsgBox"找不到所需字段":ExitSub
  PrintLeft$(T,Len(Trim$(T))-1)
  EndSub->

    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14581-1.html
网站维护教程更新时间:2012-04-03 01:10:03  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer