Hallo
ich habe folgendes Problem ich habe ein kleine Programm zum test für einen ersatz der ini geschrieben ist fast ini mässig
das tool list nach kleinen anfang schwierigkeiten 4 sachen aus nur leider möchte er die 5 sache nicht aus lesen
so sieht es aus
der Ladebereich
der Schreib bereich
augabe der Datei
meine Connection.dll
bei der roten Makierung bleibt er leer aber er schreibt es ja in die Setting.enc ohne probleme nur er holt sie nicht raus
könnte mir da möglicherweise jemand auf die sprünge Helfen wie ich das beheben kann
ich habe folgendes Problem ich habe ein kleine Programm zum test für einen ersatz der ini geschrieben ist fast ini mässig
das tool list nach kleinen anfang schwierigkeiten 4 sachen aus nur leider möchte er die 5 sache nicht aus lesen
so sieht es aus
der Ladebereich
VB.NET-Quellcode
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- tbHost.Text = con.ReadSettings("Host")
- tbUsername.Text = con.ReadSettings("User")
- tbPassword.Text = con.ReadSettings("Password")
- tbDBname.Text = con.ReadSettings("Database")
- tbsprache.Text = con.ReadSettings("Language")
- End Sub
der Schreib bereich
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim textWriter As TextWriter = DirectCast(New StreamWriter("Data/config/Settings.enc"), TextWriter)
- textWriter.WriteLine("## MySql Setting ")
- textWriter.WriteLine("SQL_HOST=" + tbHost.Text)
- textWriter.WriteLine("SQL_USER=" + tbUsername.Text)
- textWriter.WriteLine("SQL_PASSWORD=" + tbPassword.Text)
- textWriter.WriteLine("SQL_DATABASE=" + tbDBname.Text)
- textWriter.WriteLine("## Language")
- textWriter.WriteLine("SQL_LANGUAGE=" + tbsprache.Text)
- textWriter.Close()
- Me.Close()
- 'My.Settings.a_sprache = TextBox6.Text.ToString
- End Sub
augabe der Datei
meine Connection.dll
VB.NET-Quellcode
- Imports System.IO
- Public Class Connection
- Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
- target = value
- Return value
- End Function
- Public Function ReadSettings(var As String) As String
- If Not File.Exists("Data/config/Settings.enc") Then
- Return ""
- End If
- Dim Host As String = ""
- Dim User As String = ""
- Dim Password As String = ""
- Dim Database As String = ""
- Dim Episode As String = ""
- Dim Language As String = ""
- Dim textReader As TextReader = DirectCast(New StreamReader("Data/config/Settings.enc"), TextReader)
- Dim str1 As String
- While (InlineAssignHelper(str1, textReader.ReadLine())) IsNot Nothing
- If Not str1.Contains("#") AndAlso str1.Length <> 0 Then
- Dim strArray As String() = str1.Split("="c)
- For Each str3 As String In strArray
- If strArray(0) = "SQL_HOST" Then
- Host = strArray(1)
- End If
- If strArray(0) = "SQL_USER" Then
- User = strArray(1)
- End If
- If strArray(0) = "SQL_PASSWORD" Then
- Password = strArray(1)
- End If
- If strArray(0) = "SQL_DATABASE" Then
- Database = strArray(1)
- End If
- If strArray(0) = "SQL_Language" Then
- Language = strArray(1)
- End If
- If strArray(0) = "Episode" Then
- Episode = strArray(1)
- End If
- Next
- End If
- End While
- textReader.Close()
- If var = "Host" Then
- Return Host
- ElseIf var = "User" Then
- Return User
- ElseIf var = "Password" Then
- Return Password
- ElseIf var = "Database" Then
- Return Database
- ElseIf var = "Language" Then
- Return Language
- ElseIf var = "Episode" Then
- Return Episode
- Else
- Return ""
- End If
- End Function
- End Class
bei der roten Makierung bleibt er leer aber er schreibt es ja in die Setting.enc ohne probleme nur er holt sie nicht raus
könnte mir da möglicherweise jemand auf die sprünge Helfen wie ich das beheben kann