Hi zusammen. Das ist auch mein erster Post, daher auch ein "Schön hier zu sein"
Ich bastle zur Zeit an einem Tool, welches das übersetzen eines Spieles beitragen soll, bzw den übersetzern etwas Arbeit abnehmen soll.
Bis jetzt Funktioniert auch alles ganz gut, jedoch habe ich Probleme beim einfügen von Zeilenumbrüchen.
Was das Tool macht:
Im großen und ganzen ist es so, dass das Tool nach 18 Zeichen den Satz bricht, da 18 die höchstzugelassene anzahl an Chars pro Zeile ist, welche der compiler schluckt.
Dazu wird noch an die Sätze der code für den compiler angehängt.
Code vom Button und Funktion:
Button:
Funktion:
Das Ergebnis ist ok aber nicht perfekt
Bsp:
Folgender Text in dem Tool Sehr langer String der alle 18 zeichen gebrochen wird und so wweiter und so fort lalalal blablablabla laaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaanger Text
Leider weis ich wirklich nicht weiter
Hab schon alles mögliche versucht komme aber nicht dahinter, wie ich auch bei einem leerzeichen unterbrechen kann aber nur wenn die 18 Zeichen eingehalten werden.
Hoffe jemand kann mir helfen
Vielen Dank schonmal
Ich bastle zur Zeit an einem Tool, welches das übersetzen eines Spieles beitragen soll, bzw den übersetzern etwas Arbeit abnehmen soll.
Bis jetzt Funktioniert auch alles ganz gut, jedoch habe ich Probleme beim einfügen von Zeilenumbrüchen.
Was das Tool macht:
Im großen und ganzen ist es so, dass das Tool nach 18 Zeichen den Satz bricht, da 18 die höchstzugelassene anzahl an Chars pro Zeile ist, welche der compiler schluckt.
Dazu wird noch an die Sätze der code für den compiler angehängt.
Code vom Button und Funktion:
Button:
Visual Basic-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim StringListe As New List(Of String)
- Dim TextBoxRich As New RichTextBox
- TextBoxRich.AppendText(TextBox1.Text)
- For Each line In TextBoxRich.Lines
- Dim TextTeil As String = Zeilenumbruch(line)
- StringListe.Add(TextTeil)
- Next
- TextBox1.Text = ""
- For Each line In StringListe
- TextFeld.AppendText(line)
- Next
- End Sub
Funktion:
Visual Basic-Quellcode
- Private Function Zeilenumbruch(ByVal line As String) As String
- If line.Length < 18 Then
- Return line
- End If
- Dim TextBruch As String = ""
- For i As Integer = 0 To line.Length - 1 Step 18
- ' Textumbruch
- If line.Length < i + 18 Then
- If LineCNT = 0 Then
- TextBruch &= vbTab & "ctxt " & """" & line.Substring(i) & """"
- ElseIf LineCNT = 1 Then
- TextBruch &= vbTab & "line " & """" & line.Substring(i) & """"
- ElseIf LineCNT = 2 Then
- TextBruch &= vbTab & "cont " & """" & line.Substring(i) & """"
- ElseIf LineCNT = 3 Then
- TextBruch &= vbTab & "cont " & """" & line.Substring(i) & """"
- Else
- 'para cont wechsel
- If PARAANDLINE = False Then
- TextBruch &= vbTab & "para " & """" & line.Substring(i) & """"
- PARAANDLINE = True
- Else
- TextBruch &= vbTab & "line " & """" & line.Substring(i) & """"
- PARAANDLINE = False
- End If
- End If
- TextBruch &= Environment.NewLine
- LineCNT = LineCNT + 1
- Else
- If LineCNT = 0 Then
- TextBruch &= vbTab & "ctxt " & """" & line.Substring(i, 18) & """"
- ElseIf LineCNT = 1 Then
- TextBruch &= vbTab & "line " & """" & line.Substring(i, 18) & """"
- ElseIf LineCNT = 2 Then
- TextBruch &= vbTab & "cont " & """" & line.Substring(i, 18) & """"
- ElseIf LineCNT = 3 Then
- TextBruch &= vbTab & "cont " & """" & line.Substring(i, 18) & """"
- Else
- 'para cont wechsel
- If PARAANDLINE = False Then
- TextBruch &= vbTab & "para " & """" & line.Substring(i, 18) & """"
- PARAANDLINE = True
- Else
- TextBruch &= vbTab & "line " & """" & line.Substring(i, 18) & """"
- PARAANDLINE = False
- End If
- End If
- TextBruch &= Environment.NewLine
- LineCNT = LineCNT + 1
- End If
- Next
- Return TextBruch
- End Function
Das Ergebnis ist ok aber nicht perfekt
Bsp:
Folgender Text in dem Tool Sehr langer String der alle 18 zeichen gebrochen wird und so wweiter und so fort lalalal blablablabla laaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaanger Text
Leider weis ich wirklich nicht weiter
Hab schon alles mögliche versucht komme aber nicht dahinter, wie ich auch bei einem leerzeichen unterbrechen kann aber nur wenn die 18 Zeichen eingehalten werden.
Hoffe jemand kann mir helfen
Vielen Dank schonmal