Visual Basic Tutorial Deutsch - Übersetzer programmieren (HD)

Dies ist unser erstes Tutorial und wir hoffen euch gefällt es. Bei Fragen einfach in die Kommentare schreiben, wenn wir mehr Tutorials machen sollen, liken ;)

Code:
Public Class Form1
Dim ordnerpfad As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetEntryAssembly.Location)
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
RichTextBox2.Text = ""
Dim textboxinhalt() As Char = RichTextBox1.Text.ToCharArray + " "
Dim wort As String = ""
For Each zeichen As Char In textboxinhalt
If zeichen = " " Or zeichen = "." Or zeichen = "!" Or zeichen = "?" Then
Try
Dim Liste1d As String = ordnerpfad + "\Daten\" + wort + ".txt"
Dim laden1d As New IO.StreamReader(Liste1d)

While Not laden1d.EndOfStream
RichTextBox2.Text = RichTextBox2.Text + " " + (laden1d.ReadLine)
End While
Catch ex As Exception
RichTextBox2.Text = RichTextBox2.Text + " " + wort
End Try
wort = ""
Else
wort = wort + zeichen
End If
Next
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Liste5 As String = ordnerpfad + "\Daten\" + RichTextBox1.Text + ".txt"
Dim speicherer5 As New System.Text.StringBuilder
speicherer5.Append(RichTextBox2.Text)

IO.File.WriteAllText(IO.Path.Combine(IO.Path.GetTempPath, Liste5), speicherer5.ToString)

Catch ex As Exception

MsgBox("Error!")

End Try

End Sub

[boracasli]

I have questions:


How can I translate more than two words into one word (e.g. "olmak istiyorum" to "boʻlmoqchiman", not "boʻlmoq istayman")?
How can I prevent punctuation to not change the word's translation? (e.g. "bilmiyorum." to "bilmayman.", not "bilmiyorum." again)

[danielbeigel]

Wie kann man das ganze mit ganzen Sätzen mach?
Bsp: Deutsch: Hallo ich bin 20 Jahre alt
        Englisch: Hello I#m 20 years old

Bitte schnell antworten

[intellielse]

Einen Downloadlink können wir leider nicht zur Verfügung stellen, ich kann Ihnen höchstens den Quellcode geben:
Public Class Form1
    Dim ordnerpfad As String =
    Private Sub As Object, e As EventArgs) Handles RichTextBox1.TextChanged
        RichTextBox2.Text = ""
        Dim textboxinhalt() As Char = RichTextBox1.Text.ToCharArray + " "
        Dim wort As String = ""
        For Each zeichen As Char In textboxinhalt
            If zeichen = " " Or zeichen = "." Or zeichen = "!" Or zeichen = "?" Then
                Try
                    Dim Liste1d As String = ordnerpfad + "\Daten\" + wort + ".txt"
                    Dim laden1d As New IO.StreamReader(Liste1d)

                    While Not laden1d.EndOfStream
                        RichTextBox2.Text = RichTextBox2.Text + " " + (laden1d.ReadLine)
                    End While
                Catch ex As Exception
                    RichTextBox2.Text = RichTextBox2.Text + " " + wort
                End Try
                wort = ""
            Else
                wort = wort + zeichen
            End If
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim Liste5 As String = ordnerpfad + "\Daten\" + RichTextBox1.Text + ".txt"
            Dim speicherer5 As New System.Text.StringBuilder
           

            IO.File.WriteAllText(IO.Path.Combine(IO.Path.GetTempPath, Liste5), speicherer5.ToString)
            
        Catch ex As Exception
           
                MsgBox("Error!")

        End Try

    End Sub

[limezz]

Wie speichert man die Wörter vorher ein ?

[UnlegitDqrk]

Oder man nutzt einfach die google api :)