Imports System.IO
Imports CLIENTE.dmModulo

Public Class LeeEditorRegistro

    Public Sub LEE(ByVal sAmbienteConexion As String)

        Dim StrMFile As System.IO.FileStream
        Dim StrMRead As System.IO.StreamReader
        Dim strLocation As String = ""
        Dim strCtlCadena As String = String.Empty
        Dim strValorRead As String = String.Empty

        Dim StrBasedatos As String = String.Empty
        Dim StrPassword As String = String.Empty
        Dim StrServidor As String = String.Empty
        Dim StrTipoSer As String = String.Empty
        Dim StrUsuario As String = String.Empty
        Dim strFile As String = String.Empty
        Try
            strLocation = Application.StartupPath & "\Conexion_MindsOP.ini"
            strFile = strLocation
            If Dir(strFile) <> "" Then
                StrMFile = New System.IO.FileStream(strFile, IO.FileMode.Open, IO.FileAccess.Read)
                StrMRead = New System.IO.StreamReader(StrMFile)
                Do While StrMRead.Peek >= 0
                    strCtlCadena = StrMRead.ReadLine.ToString
                    strValorRead = strCtlCadena.Trim.Substring(0, 3).ToUpper
                    Select Case strValorRead
                        Case "BAS"
                            StrBasedatos = BuscaValores(strCtlCadena, "=")
                        Case "PAS"
                            StrPassword = BuscaValores(strCtlCadena, "=")
                        Case "SER"
                            StrServidor = BuscaValores(strCtlCadena, "=")
                        Case "TIP"
                            StrTipoSer = BuscaValores(strCtlCadena, "=")
                        Case "USU"
                            StrUsuario = BuscaValores(strCtlCadena, "=")
                    End Select
                Loop '
                StrMRead.Close()
                StrMFile.Close()
            End If
            dmModulo.CadenaConexion(StrTipoSer, StrServidor, StrBasedatos, StrUsuario, Registro.DesEncripta(StrPassword))
            strConnection = dmModulo.strConnection
        Catch ex As Exception
            MessageBox.Show("Error al intentar conectarse ... " & ex.Message)
        End Try
    End Sub

    Public Sub LeeNombre_BD_Servidor()

    End Sub

    Public Function BuscaValores(ByVal Cadena As String, ByVal strDelimited As String) As String
        Dim ArrBuscaVal As System.Array

        Try

            If Cadena <> "" Then

                ArrBuscaVal = Cadena.Trim.Split(strDelimited)

                BuscaValores = ArrBuscaVal(1)

            End If

        Catch
            MsgBox(Err.Number & ": " & Err.Description & Chr(13) & "Fallo la conexion....Verifique sus propiedades", MsgBoxStyle.Critical)
        End Try

    End Function


    Public Function cad(ByVal sAmbienteConexion As String) As String
        LEE(sAmbienteConexion)
        Return strConnection
    End Function

End Class