SUPERCAT.DEV

Imports System.IO

Module Module1

    Sub Main()

        Dim cs_1 As String = "    <add key=""ConnectionString"" value=""data source=DB1;User ID=User;initial catalog=DB1;persist security info=False;Connect Timeout=60""/>"
        Dim cs_2 As String = "    <add key=""ConnectionString"" value=""data source=DB2;User ID=User;initial catalog=DB2;persist security info=False;Connect Timeout=60""/>"
        
        Dim fileconf As String = "C:\\sviluppo\\App.exe.config"
		Dim numeroRigaConn As Integer = 3
        
		Dim ss() As String
        Dim risposta As ConsoleKeyInfo

        ' LEGGI IL FILE DI CONFIGURAZIONE
        ss = File.ReadAllLines(fileconf)

        Console.Clear()
        If ss(numeroRigaConn) = cs_1 Then
            Console.WriteLine("Profilo attuale: DB1")
        Else
            Console.WriteLine("Profilo attuale: DB2")
        End If
		
        Console.WriteLine("Passare App.exe a DB1 o a DB2? (A/B o altro tasto per uscire)")
        risposta = Console.ReadKey()
        Console.WriteLine()

        If (risposta.Key = ConsoleKey.A Or risposta.Key = ConsoleKey.B) Then

            If risposta.Key = ConsoleKey.A Then
                ss(numeroRigaConn) = cs_1
            End If

            If risposta.Key = ConsoleKey.B Then
                ss(numeroRigaConn) = cs_2
            End If

			' RISCRIVI IL FILE DI CONFIGURAZIONE
            File.WriteAllLines(fileconf, ss)
        Else
            Console.WriteLine("Premere 'A' o 'B' per modificare la configurazione")
        End If

    End Sub

End Module