VB读写配置文件

芦芭荞

于 2025-06-13 08:50:59 发布

阅读量107

点赞数 2

CC 4.0 BY-SA版权

文章标签：笔记

本文链接：https://blog.youkuaiyun.com/qq_23136415/article/details/148623675

Option Explicit
'获取ini文件中的数据
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As _
String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As _
Long, ByVal lpFileName As String) As Long
' 写入到ini文件中的数据
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As _
String, ByVal lpString As String, ByVal lpFileName As String) As Long

Private Sub Command1_Click()
   Dim F, dl0 As String
   F = "D:\chenhe\setting.ini"
   dl0 = WritePrivateProfileString("Set", "m0", "111", F)
   
   
   Dim nStr As String, nSize As Long, S As Long
 nSize = 255: nStr = String(nSize, 0)
dl0 = GetPrivateProfileString("Set", " m0", vbNullString, nStr, nSize, F)
'显示出来
dl0 = WritePrivateProfileString("Set", "m01", nStr, F)

End Sub