[Release] Code Converter

[l1ght #]

Ich habe mich mal wieder an ein Tool rangesetzt und finde das es echt Nützlich ist.















// Theme by AeonHack

[Kraizy​]

Läuft es über einen Online-Konverter?

[l1ght #]

Originally Posted by xKraizy

Läuft es über eine Internetseite?

Nein

[.exTremez™]

Also wenn ich etwas translaten will kommt:

[.exTremez™]

Ich habe ein Projekt mithilfe deines "Open Project" button geladen(VB.Net)
Dieser Sourcecode kam dann in die Linke richtextbox

dann habe ich auf "Convert to C#" gedrückt und der fehler kam

[Kraizy​]

Evtl. die Details noch posten, damit l1ght sieht, in welcher Zeile der Fehler aufgetreten ist, ein kleines Bild hilft da auch nicht viel weiter...

[.exTremez™]

Ja habe ich, sonst würde ich die Datei ja nicht sehen >.<

[l1ght #]

Originally Posted by .exTremez™

Ja habe ich, sonst würde ich die Datei ja nicht sehen >.<

stimmt, hmm da weiß ich auch nicht was du falsch machst... sonst mach einfach c&p von der source und mach das manuell

[.exTremez™]

Auch wenn ich es manuell mache funzt es nicht, habe es auch mit verschiedenen sources versucht.

Hier mal ein Source:

PHP Code:

Public Class Form1
    Dim jobname As String = ""
    Dim fullname As String = ""
    Dim shortname As String = ""
    Dim lvleq As String = ""
    Dim expeq As String = ""
    Dim incomeq As String = ""
    Dim break As String = ""
    Dim place As String = ""
    Dim kills As String = ""
    Dim customkills As String = ""
    Dim chatcolor As String = ""
    Dim chatdisplay As String = ""
    Dim output As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox2.Items.Clear()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox3.Items.Clear()
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ListBox4.Items.Clear()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
        ComboBox2.SelectedIndex = 0
        ComboBox3.SelectedIndex = 0
        ComboBox4.SelectedIndex = 0
        ComboBox5.SelectedIndex = 0
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Not ListBox1.Items.Contains(ComboBox3.Text) Then
            ListBox1.Items.Add(ComboBox3.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
        End If
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Not ListBox2.Items.Contains(ComboBox4.Text) Then
            ListBox2.Items.Add(ComboBox4.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
        End If
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Not ListBox3.Items.Contains(ComboBox5.Text) Then
            ListBox3.Items.Add(ComboBox5.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
        End If
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Not ComboBox6.Text = Nothing Then
            If Not ListBox4.Items.Contains(ComboBox6.Text) Then
                ListBox4.Items.Add(ComboBox6.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
            End If
        End If
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim jobname As String = ""
        Dim fullname As String = ""
        Dim shortname As String = ""
        Dim lvleq As String = ""
        Dim expeq As String = ""
        Dim incomeq As String = ""
        Dim break As String = ""
        Dim place As String = ""
        Dim kills As String = ""
        Dim customkills As String = ""
        Dim chatcolor As String = ""
        Dim chatdisplay As String = ""
        Dim output As String = ""
        jobname = textbox1.Text & ":" & vbNewLine
        fullname = "fullname: " & TextBox2.Text & vbNewLine
        shortname = "shortname: " & TextBox3.Text & vbNewLine
        lvleq = "leveling-progression-equation: " & TextBox4.Text & vbNewLine
        expeq = "experience-progression-equation: " & TextBox5.Text & vbNewLine
        incomeq = "income-progression-equation: " & TextBox6.Text & vbNewLine
        chatcolor = "ChatColour: " & ComboBox1.Text & vbNewLine
        chatdisplay = "chat-display: " & ComboBox2.Text & vbNewLine
        If ListBox1.Items.Count > 0 Then
            Dim breaksplit() As String
            break = "Break:" & vbNewLine
            For Each item In ListBox1.Items
                breaksplit = item.ToString.Split("|")
                break &= breaksplit(0) & ":" & vbNewLine & "income: " & breaksplit(1) & vbNewLine & "experience: " & breaksplit(2) & vbNewLine
            Next
        End If
        If ListBox2.Items.Count > 0 Then
            Dim placesplit() As String
            place = "Place:" & vbNewLine
            For Each item In ListBox2.Items
                placesplit = item.ToString.Split("|")
                place &= placesplit(0) & ":" & vbNewLine & "income: " & placesplit(1) & vbNewLine & "experience: " & placesplit(2) & vbNewLine
            Next
        End If
        If ListBox3.Items.Count > 0 Then
            Dim killsplit() As String
            kills = "Kill:" & vbNewLine
            For Each item In ListBox3.Items
                killsplit = item.ToString.Split("|")
                kills &= killsplit(0) & ":" & vbNewLine & "income: " & killsplit(1) & vbNewLine & "experience: " & killsplit(2) & vbNewLine
            Next
        End If
        If ListBox4.Items.Count > 0 Then
            Dim customsplit() As String
            customkills = "custom-kill:" & vbNewLine
            For Each item In ListBox4.Items
                customsplit = item.ToString.Split("|")
                customkills &= customsplit(0) & ":" & vbNewLine & "income: " & customsplit(1) & vbNewLine & "experience: " & customsplit(2) & vbNewLine
            Next
        End If
        output = jobname & fullname & shortname & chatcolor & chatdisplay & lvleq & incomeq & expeq & break & place & kills & customkills
        Form2.Show()
        Form2.RichTextBox1.Text = output
    End Sub
End Class 


[l1ght #]

Originally Posted by .exTremez™

Auch wenn ich es manuell mache funzt es nicht, habe es auch mit verschiedenen sources versucht.

Hier mal ein Source:

PHP Code:

Public Class Form1
    Dim jobname As String = ""
    Dim fullname As String = ""
    Dim shortname As String = ""
    Dim lvleq As String = ""
    Dim expeq As String = ""
    Dim incomeq As String = ""
    Dim break As String = ""
    Dim place As String = ""
    Dim kills As String = ""
    Dim customkills As String = ""
    Dim chatcolor As String = ""
    Dim chatdisplay As String = ""
    Dim output As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox2.Items.Clear()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox3.Items.Clear()
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ListBox4.Items.Clear()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
        ComboBox2.SelectedIndex = 0
        ComboBox3.SelectedIndex = 0
        ComboBox4.SelectedIndex = 0
        ComboBox5.SelectedIndex = 0
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Not ListBox1.Items.Contains(ComboBox3.Text) Then
            ListBox1.Items.Add(ComboBox3.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
        End If
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Not ListBox2.Items.Contains(ComboBox4.Text) Then
            ListBox2.Items.Add(ComboBox4.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
        End If
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Not ListBox3.Items.Contains(ComboBox5.Text) Then
            ListBox3.Items.Add(ComboBox5.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
        End If
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Not ComboBox6.Text = Nothing Then
            If Not ListBox4.Items.Contains(ComboBox6.Text) Then
                ListBox4.Items.Add(ComboBox6.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
            End If
        End If
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim jobname As String = ""
        Dim fullname As String = ""
        Dim shortname As String = ""
        Dim lvleq As String = ""
        Dim expeq As String = ""
        Dim incomeq As String = ""
        Dim break As String = ""
        Dim place As String = ""
        Dim kills As String = ""
        Dim customkills As String = ""
        Dim chatcolor As String = ""
        Dim chatdisplay As String = ""
        Dim output As String = ""
        jobname = textbox1.Text & ":" & vbNewLine
        fullname = "fullname: " & TextBox2.Text & vbNewLine
        shortname = "shortname: " & TextBox3.Text & vbNewLine
        lvleq = "leveling-progression-equation: " & TextBox4.Text & vbNewLine
        expeq = "experience-progression-equation: " & TextBox5.Text & vbNewLine
        incomeq = "income-progression-equation: " & TextBox6.Text & vbNewLine
        chatcolor = "ChatColour: " & ComboBox1.Text & vbNewLine
        chatdisplay = "chat-display: " & ComboBox2.Text & vbNewLine
        If ListBox1.Items.Count > 0 Then
            Dim breaksplit() As String
            break = "Break:" & vbNewLine
            For Each item In ListBox1.Items
                breaksplit = item.ToString.Split("|")
                break &= breaksplit(0) & ":" & vbNewLine & "income: " & breaksplit(1) & vbNewLine & "experience: " & breaksplit(2) & vbNewLine
            Next
        End If
        If ListBox2.Items.Count > 0 Then
            Dim placesplit() As String
            place = "Place:" & vbNewLine
            For Each item In ListBox2.Items
                placesplit = item.ToString.Split("|")
                place &= placesplit(0) & ":" & vbNewLine & "income: " & placesplit(1) & vbNewLine & "experience: " & placesplit(2) & vbNewLine
            Next
        End If
        If ListBox3.Items.Count > 0 Then
            Dim killsplit() As String
            kills = "Kill:" & vbNewLine
            For Each item In ListBox3.Items
                killsplit = item.ToString.Split("|")
                kills &= killsplit(0) & ":" & vbNewLine & "income: " & killsplit(1) & vbNewLine & "experience: " & killsplit(2) & vbNewLine
            Next
        End If
        If ListBox4.Items.Count > 0 Then
            Dim customsplit() As String
            customkills = "custom-kill:" & vbNewLine
            For Each item In ListBox4.Items
                customsplit = item.ToString.Split("|")
                customkills &= customsplit(0) & ":" & vbNewLine & "income: " & customsplit(1) & vbNewLine & "experience: " & customsplit(2) & vbNewLine
            Next
        End If
        output = jobname & fullname & shortname & chatcolor & chatdisplay & lvleq & incomeq & expeq & break & place & kills & customkills
        Form2.Show()
        Form2.RichTextBox1.Text = output
    End Sub
End Class 


Hmm komisch, habe es auch versucht, klappt auch nicht :s aber bei meinen sourcecodes klappt es.

[.exTremez™]

Tjoaaa überarbeiten ist da wohl angesagt :P

Würde mich aber freuen, wenn du es schaffst dass es funktioniert

Bis dahin, Viel Glück