vb loop escribe ini

Función de declaración privada GetPrivateProfileString Lib "kernel32" Alias ​​​​"GetPrivateProfileStringA" (ByVal lpApplicationName como cadena, ByVal lpApplicationName como cadena, ByVal lpKeyName como cadena, ByVal lpDefault como cadena, ByVal lpReturnedString como cadena, ByVal nSize como larga, ByVal lpFileName como cadena) Mientras

Función de declaración privada WritePrivateProfileString Lib "kernel32" Alias ​​​​"WritePrivateProfileStringA" (ByVal lpApplicationName como cadena, ByVal lpKeyName como cualquiera, ByVal lpString como cualquiera, ByVal lpFileName como cadena) Mientras

Atenuar matriz (1 a 40) como cadena

'Escribir

Subcomando privado1_ Click()

Atenuar F como cadena

F = Ruta.Aplicación & "(\...)". Ruta amp; "\My.ini"

Para i = 1 a 40

dl = WritePrivateProfileString(i, "Text", array(i), F)

Siguiente

Fin Sub

'Leer

Subcomando privado2_Click()

Atenuar F como cadena

F = App.Path & "\My.ini"

Para i = 1 a 40

GetPrivateProfileString i, "Text", vbNullString, array(i), 255, F

Siguiente

End Sub

'Las siguientes líneas no son necesarias, son solo para pruebas

Private Sub Form_Load( )

Para i = 1 a 40

Array(i) = Str(i)

Siguiente

Fin Sub