Hola adoradores del código binario!
En este artículo veremos una forma fácil y rápida para leer y escribir archivos .ini con VB.NET. Los archivos .ini pueden servirnos para guardar y posteriormente rescatar valores de configuración para nuestra aplicación y así ahorrarle al usuario final el tener que introducir esos valores personalizados cada vez se que ejecuta nuestro programa.
Lo primero que haremos será colocar 2 labels, un par de controles TextBox y 2 botones en nuestro formulario para que nos quede así:
Seguidamente añadiremos a nuestro proyecto una nueva hoja de clase llamada INIReadWrite y dentro añadiremos este código:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Imports System.Runtime.InteropServices Imports System.Text Public Class INIReadWrite <DllImport("kernel32.dll", SetLastError:=True)> Private Shared Function GetPrivateProfileString(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer End Function <DllImport("kernel32.dll", SetLastError:=True)> Private Shared Function WritePrivateProfileString(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Boolean End Function Public Shared Function ReadINI(ByVal File As String, ByVal Section As String, ByVal Key As String) As String Dim sb As New StringBuilder(500) GetPrivateProfileString(Section, Key, "", sb, sb.Capacity, File) Return sb.ToString End Function Public Shared Sub WriteINI(ByVal File As String, ByVal Section As String, ByVal Key As String, ByVal Value As String) WritePrivateProfileString(Section, Key, Value, File) End Sub End Class |
Luego, en el evento Click del control Button1 ponemos este código:
|
1 2 |
TextBox1.Text = INIReadWrite.ReadINI(Application.StartupPath & "\settings.ini", "Connection", "ServerIP") TextBox2.Text = INIReadWrite.ReadINI(Application.StartupPath & "\settings.ini", "Connection", "Port") |
Y en el evento Click del control Button2 ponemos este otro código:
|
1 2 |
INIReadWrite.WriteINI(Application.StartupPath & "\settings.ini", "Connection", "ServerIP", TextBox1.Text) INIReadWrite.WriteINI(Application.StartupPath & "\settings.ini", "Connection", "Port", TextBox2.Text) |
Para hacer pruebas, este es el contenido del archivo settings.ini que pondré en la misma carpeta que el ejecutable de nuestro programa:
|
1 2 3 |
[Connection] ServerIP=192.168.1.23 Port=2234 |
Al pulsar el control Button1 de nuestro programa, automáticamente se leerán los valores dentro del archivo .ini y se mostrarán en los controles TextBox1 y TextBox2 del formulario:
Ahora, si queremos, podemos modificar los valores mostrados en ambos TextBox y pulsar el control Button2 para guardar los nuevos valores en el archivo settings.ini.
Si te ha gustado este pequeño tutorial no olvides puntuarlo y compartirlo en tus redes sociales. Gracias por visitar mi blog y nos vemos en el próximo tutorial!.
Es muy bueno el materia, como se podría contar el total de registros?
Gracias amigo, me sirvió!