VB操作.ini后缀文件的方法
2006-02-27 11:41:06 来源:WEB开发网核心提示:读文件用到GetPRivateProfileString,写文件需要用到WritePrivateProfileString,VB操作.ini后缀文件的方法,在窗体放置两个命令按钮Command1与Command2,分别用来执行写操作与读操作
读文件用到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->
在窗体放置两个命令按钮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->
赞助商链接