vb循环写入ini

来源：百度知道 编辑：UC知道 时间：2024/06/17 20:45:15
我现在有一个数组包含40个元素，每个元素都有其自己的字符串，请问怎样实现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
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Dim 数组(1 To 40) As String

'写入
Private Sub Command1_Click()
Dim F As String
F = App.Path & "\My.ini"
For i = 1 To 40
dl = WritePrivateProfileString(i, "Text", 数组(i), F)
Next
End Sub

'读取
Private Sub Command2_Click()
Dim F As String
F = App.Path & "\My.ini"
For i = 1 To 40
GetPrivateProfileString i, "Tex