vb循環寫入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, "Text", vbNullString, 數組(i), 255, F

Next

End Sub

'下面幾行不用的，只是用於測試

Private Sub Form_Load()

For i = 1 To 40

數組(i) = Str(i)

Next

End Sub

上一篇:怎麽用qq搖骰子

下一篇:我的機子是華為C8500 固件版本2.1-update1 基帶版本22201003 內核版本 2.6.29-perf ANDROID@LOCALHOST #1