Initial commit

2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
--- a/EDOKA_Toolset/Plugin_EDKTester/Form1.vb
+++ b/EDOKA_Toolset/Plugin_EDKTester/Form1.vb
@@ -0,0 +1,125 @@
+Public Class Form1
+
+    Dim cdb As New DB_Connection
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        OpenFileDialog1.ShowDialog()
+        If OpenFileDialog1.FileName <> "" Then Me.TextBox1.Text = Me.OpenFileDialog1.FileName
+    End Sub
+
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
+
+
+        If Me.RadioButton1.Checked Then
+            Me.TextBox1.Text = ""
+            Me.TextBox1.Enabled = False
+            Me.Button1.Enabled = False
+        Else
+            Me.TextBox1.Enabled = True
+            Me.Button1.Enabled = True
+
+        End If
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        FileOpen(1, Globals.Paramdatei, OpenMode.Input)
+        Input(1, Globals.Applicationdata)
+        FileClose(1)
+
+        Dim words() As String
+        Dim s As String
+
+        ListBox1.Items.Clear()
+        ListBox2.Items.Clear()
+
+
+        FileOpen(1, Globals.Applicationdata + "\Params.txt", OpenMode.Input)
+        While Not EOF(1)
+            Input(1, s)
+            words = s.Split(":")
+            Select Case words(0)
+                Case "EXE-Datei"
+                    Me.TextBox1.Text = words(1)
+                    If Me.TextBox1.Text <> "" Then
+                        Me.RadioButton2.Checked = True
+                        Me.RadioButton1.Checked = False
+                    End If
+                Case "Partnernr"
+                    Me.TextBox2.Text = words(1)
+                Case "Berater"
+                    Me.TextBox3.Text = words(1)
+            End Select
+        End While
+        FileClose(1)
+
+        OpenFileDialog1.Filter = "Exe-Dateien (*.exe)|*.exe|Alle Dateien (*.*)|*.*"
+
+        FileOpen(1, Globals.Applicationdata + "\edkdateien.txt", OpenMode.Input)
+        While Not EOF(1)
+            Input(1, s)
+            words = s.Split(";")
+            ListBox1.Items.Add(words(0))
+            ListBox2.Items.Add(words(1))
+        End While
+        FileClose(1)
+
+    End Sub
+
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
+        Me.ListBox2.SelectedIndex = Me.ListBox1.SelectedIndex
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Replace_Text()
+        'FileCopy(ListBox2.SelectedItem, Application.StartupPath + "\tmpedk.edk")
+        Dim p As New Process
+        If Me.RadioButton1.Checked Then
+            p.StartInfo.FileName = Globals.Applicationdata + "\tmpedk.edk"
+        Else
+            p.StartInfo.FileName = Me.TextBox1.Text
+            p.StartInfo.Arguments = Globals.Applicationdata + "\tmpedk.edk"
+        End If
+        p.Start()
+    End Sub
+
+    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
+        Me.ListBox2.SelectedIndex = Me.ListBox1.SelectedIndex
+        Button2_Click(sender, e)
+    End Sub
+
+    Sub Replace_Text()
+        Dim myStreamReaderL1 As System.IO.StreamReader
+        Dim myStream As System.IO.StreamWriter
+
+        Dim myStr As String
+        If Trim(Me.txtedkdatei.Text) <> "" Then
+            myStreamReaderL1 = System.IO.File.OpenText(Me.txtedkdatei.Text)
+        Else
+            myStreamReaderL1 = System.IO.File.OpenText(ListBox2.SelectedItem)
+        End If
+
+        myStr = myStreamReaderL1.ReadToEnd()
+        myStreamReaderL1.Close()
+
+        If Me.TextBox2.Text <> "" Then
+            myStr = myStr.Replace("<PartnerNr>????????</PartnerNr>", "<PartnerNr>" + Trim(Me.TextBox2.Text) + "</PartnerNr>")
+        End If
+
+        If Me.TextBox2.Text <> "" Then
+            myStr = myStr.Replace("<creatorTg>??????</creatorTg>", "<creatorTg>" + Trim(Me.TextBox3.Text) + "</creatorTg>")
+        End If
+
+
+        myStream = System.IO.File.CreateText(Globals.Applicationdata + "\tmpedk.edk")
+        myStream.WriteLine(myStr)
+        myStream.Close()
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        OpenFileDialog1.FileName = ""
+        OpenFileDialog1.Filter = "EDK-Dateien|*.edk|Alle Dateien (*.*)|*.*"
+        OpenFileDialog1.FilterIndex = 1
+        OpenFileDialog1.ShowDialog()
+        If OpenFileDialog1.FileName <> "" Then Me.txtedkdatei.Text = Me.OpenFileDialog1.FileName
+    End Sub
+End Class