Como crear un archivo.ini y utilizar su contenido

Estoy comensando mis estudios de computacion en la universidad y tengo que hacer un proyecto pero no ce ni como comensarlo talves me puedas dar una idea.
Como puedo crear una archivo .INI desde visual basic 2005 en el siguiente directotio c:/windows  pero aparte de crearlo tambien tengo que utilizarlo y pasar su contenido a una variable para utilizarlo en un proceso del mismo proyecto lo que pasa es que no puedo perder el valor de esa variable aun asi cierre el proyecto agradeciara tu ayuda

1 Respuesta

Respuesta
1
Este ejemplo lo hice con un form para q guardara sus datos
Public Class FrmUsuario
    Dim obj As New ClsGeneral
    Private Sub BtnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancelar.Click
        Me.Close()
    End Sub
    Private Sub BtnGuadar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuadar.Click
        Try
            If obj.crearPropietario(TxtApellidos.Text, TxtNombres.Text, TxtCelular.Text, TxtCorreo.Text) = True Then
                MessageBox.Show("Modificado con exito", "Exito", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
                Me.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(ex. Message, "Error", MessageBoxButtons. OK, MessageBoxIcon. Error, MessageBoxDefaultButton. Button1)
        End Try
    End Sub
    Private Sub FrmUsuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Nom As String = Nothing
        Dim Ape As String = Nothing
        Dim cel As String = Nothing
        Dim Cor As String = Nothing
        obj.leerPropietario(Ape, Nom, cel, Cor)
        TxtApellidos.Text = Ape
        TxtNombres.Text = Nom
        TxtCelular.Text = cel
        TxtCorreo.Text = Cor
    End Sub
End Class
Imports System.IO
Imports System.Windows.Forms.RichTextBox
Public Class ClsGeneral
    Public Function exportarArchivo(ByVal Str_Ruta As String, ByVal RtbObjeto As RichTextBox) As Boolean
        Try
            Dim obj As New StreamWriter(Str_Ruta, False)
            obj.Write(RtbObjeto.Text)
            obj.Close()
            Return True
        Catch ex As IOException
            Throw New Exception("Error: " & ex.Message, ex)
            Return False
        Catch ex As Exception
            Throw New Exception("Error: " & ex.Message, ex)
            Return False
        Finally
            GC.Collect()
        End Try
    End Function
    Public Function crearPropietario(ByVal Apellidos As String, ByVal Nombre As String, ByVal Celular As String, ByVal Correo As String) As Boolean
        Try
            Dim ruta As String = CurDir() & "\Usuario.ini"
            Dim obj As New StreamWriter(ruta, False)
            Obj. WriteLine(Apellidos)
            Obj. WriteLine(Nombre)
            Obj. WriteLine(Celular)
            Obj. WriteLine(Correo)
            Obj. Close()
            Return True
        Catch ex As IOException
            Throw New Exception("Error: " & ex.Message, ex)
            Return False
        Catch ex As Exception
            Throw New Exception("Error: " & ex.Message, ex)
            Return False
        Finally
            GC.Collect()
        End Try
    End Function
    Public Function leerPropietario(ByRef Apellidos As String, ByRef Nombre As String, ByRef Celular As String, ByRef Correo As String) As Boolean
        Try
            Dim ruta As String = CurDir() & "\Usuario.ini"
            If IO.File.Exists(ruta) = True Then
                Dim obj As New StreamReader(ruta)
                Apellidos = obj.ReadLine
                Nombre = obj.ReadLine
                Celular = obj.ReadLine
                Correo = obj.ReadLine
                obj.Close()
            End If
            Return True
        Catch ex As IOException
            Throw New Exception("Error: " & ex.Message, ex)
            Return False
        Catch ex As Exception
            Throw New Exception("Error: " & ex.Message, ex)
            Return False
        Finally
            GC.Collect()
        End Try
    End Function
End Class

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas