Langen String mit Zeilenumbruch versehen?

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Tommel.

    Langen String mit Zeilenumbruch versehen?

    Hallo,

    also, ich habe google, und auch die Forum Suche benutzt, bin aber bei beidem nicht wirklich fündig geworden.
    Falls es doch ein Thema gibt, möchte ich mich für den Post quasie vorbeugend entschuldigen :)



    Zum Thema:

    Ich lese eine Liste aus einer Datenbank aus, und möchte diese Drucken.
    Klappt ganz gut, ich schreibe die einzelnen "rows" aus der Table mittels einer Schleife aufs Blatt, das ganze in Form einer Tabelle.
    Nun kann es aber sein, das ein bestimmtes feld aus zwei Worten besteht, oder aus 10Worten.
    Je nach dem muss ich also Zeilenumbrüche einfügen, da ich ja nur eine bestimmte Spaltenbreite zur verfügung habe.
    Damit das Sinn macht, sollte ich dem Wort nach trennen können, und zwar sollte dabei die Spaltenbreite beachtet werden.


    Versuche ich das über InstrRev und suche nach Leerzeichen, dann sägt er nach dem Letzten Wort ab.
    Das bringt mir dann nichts, weil ich immernoch breiter bin als die Breite die ich vorgesehen hab.

    Hat jemand einen Vorschlag?


    Falls ich das nicht... verständlich erklärt habe einfach sagen :D
    Ich hoffe ihr könnt mir helfen.

    mfg

    Thomas

    Also so ganz folgen kann ich dir zwar nicht, aber man erreicht in
    VB Zeilenbrüche mit hilfe von

    VB.NET-Quellcode

    1. vbNewLine

    beispiel :

    VB.NET-Quellcode

    1. textbox1.text = "Zeile1" + vbNewLine + "Zeile2"


    Ich hoffe du kannst damit etwas anfangen.

    mfg
    lexeaus

    Dachte ich mir schon. :)

    Dann so:

    Ich habe einen String:

    Dim String1 as String = "Hallo ich habe ein Problem"

    Ich möchte ihn mit einem Zeilenumbruch versehen, aber die stelle an der ich den Umbruch brauche ändert sich wenn sich der Text ändert. Manchmal reicht es ein Wort in der nächsten Zeile zu haben, manchmal müssen mehr worte in den Umbruch gelangen.
    Einen festen wert möchte ich nicht nehmen, das schaut blöd aus wenn das Wort abgeschnitten wird.

    Besser? :)

    PS: Ich weis wie ich einen Zeilenumbruch erreiche, aber nicht da wo ich ihn haben will. :(

    Hallo

    Hier ein Beispiel, das Du für Deine Zwecke umbauen kannst.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim Zeilenlänge As Integer = 16
    7. Dim MeinText As String = "Hallo das ist ein Test, der bei einer Zeilenlänge von " & Zeilenlänge.ToString & " Zeichen, - aber nicht mitten in einem Wort einen Umbruch hinzufügt !"
    9. MeinText = Umbruch(MeinText, Zeilenlänge)
    11. If MeinText <> "" Then
    12. MsgBox(MeinText)
    13. End If
    15. End Sub
    17. Public Function Umbruch(ByVal Text As String, ByVal Zeilenlänge As Integer) As String
    18. Dim NeuerText As String = ""
    19. Dim Leerzeichen As Integer = 0
    20. Dim Worte() As String
    21. Dim Zahl As Integer = 0
    23. Worte = Text.Split(" ")
    25. For N As Integer = 0 To Worte.Length - 1
    26. If Worte(N).Length >= Zeilenlänge Then
    27. MsgBox("Die Zeilenlänge ist kleiner als die Wortlänge, bitte geben Sie eine größere Zeilenlänge ein.")
    28. Return ""
    29. End If
    30. Next
    32. For N As Integer = 0 To Text.Length - 1 Step Zeilenlänge
    33. Leerzeichen = 0
    35. If N + Zeilenlänge > Text.Length Then
    36. Zeilenlänge = Text.Length - N
    37. Zahl = 1
    38. End If
    40. Do While Not Text.Substring(N, Zeilenlänge + Leerzeichen).EndsWith(" ")
    41. Leerzeichen = Leerzeichen - 1
    42. Loop
    44. NeuerText = NeuerText & Text.Substring(N, Zeilenlänge + Leerzeichen + Zahl) & Constants.vbNewLine
    46. N = N + Leerzeichen
    47. Next
    49. Return NeuerText
    51. End Function
    53. End Class

    Hallo!

    @wincnc, danke für deinen Anstoss, der hat mir letzten endes geholfen!

    Ich habs allerdings etwas anders gelöst.
    Mir ist klar, dass diese Funktion nicht perfekt ist. Aber im Mom ausreichend *G*
    Ich häng sie hier mal an.

    Nochmals Danke an euch beide für die Hilfe!

    mfg

    Thomas.

    VB.NET-Quellcode

    1. Function zeilenumbruch(ByVal text As String, ByVal spalte As Single) As String
    2. 'Hier wird bestimmt wieviele Umbrüche eingefügt werden sollen
    3. Dim umbrüche As Decimal
    4. umbrüche = text.Length * 7.66 / spalte
    5. umbrüche = Math.Floor(umbrüche)Dim i As Integer = 0
    6. For i = 0 To text.Length - 1 ' Jedes zeichen durchgehen
    7. If text.Chars(i) = " " Then ' Sehen ob es ein Leerzeichen ist
    8. '7.66 etwa Breite eines Zeichens - Wenn es eins ist,
    9. 'sollte die Position nicht bereits hinter der Spaltenbreite liegen, aber auch nicht zu weit davor
    10. If i * 7.6 < spalte And i * 7.66 > spalte * 0.6 Then
    11. text = text.Remove(i, 1) 'Das Leerzeichen wegmachen
    12. text = text.Insert(i, Environment.NewLine) 'Umbruch einfügen
    13. umbrüche = umbrüche - 1
    14. End If
    15. If umbrüche = 0 Then
    16. Exit For
    17. End If
    18. End If
    19. Next
    20. Return text
    21. End Function

    hallo trommel,

    da du das ganze ja drucken willst, solltest du aber vom reinen zeichenzählen abkommen.
    warum ?

    ganz einfach:
    iiiiiiiiii brauchen weniger pixel als MMMMMMMMMM

    schau dir mal die MeasureString methode der graphics klasse an.

    beispiel:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    8. Dim laengei As Integer = e.Graphics.MeasureString("iiiiiiiiii", Me.Font).Width
    9. Dim laengem As Integer = e.Graphics.MeasureString("MMMMMMMMMM", Me.Font).Width
    10. Stop
    11. End Sub
    12. End Class


    gruss

    mikeb69

    Du hast recht! Ich habe das aus faulheit so gemacht *schäm*, tatsächlich messe ich schonmal vorher den String um überhaupt zu entscheiden ob ich den Umbruch brauche. - Ist eine der Krücken die ich eingebaut habe. :whistling:

    Ich hab eben noch keine Idee wie ich die breite eines Teilstrings messen soll. Also IIIIMMMIIII <- Wie breit sind jetzt die M´s ..
    deswegen diese notlösung. Hab keine Lust das zu zerlegen und wieder zusammenzubauen usw.. Vil. gibts ne einfache Lösung
    und ich kenn sie halt noch nicht.....

    Hier noch der Codefetzen mit dem ich entscheide ob ich den umbruch brauche.

    gruß Thomas.

    VB.NET-Quellcode

    1. For s = 0 To 5
    2. strings(s) = Trim(strings(s))
    3. m_string(s) = g.MeasureString(strings(s), tb) 'Abmessen des Strings, um Umbruch zu bestimmen (wenn nötig)
    4. 'Hier gleich entscheiden ob das Ding zu breit für eine Spalte ist
    5. If m_string(s).Width > b(s) Then
    6. hd = True
    7. strings(s) = Me.zeilenumbruch(strings(s), b(s))
    8. End If
    9. Next

    wie wärs damit, wenn du immer so lange Buchstaben zu deinem String für die hinzufügst, bis es die maximale Größe überschreitet, und dann ziehst du noch alle Buchstaben bis zum nächsten Leerzeichen wieder ab? So dürfte es dir helfen...

    Hallo Lupus,

    ich bin mir nicht ganz sicher wie du das meinst. Ich soll den String einzeln mit Buchstaben bestücken, also nicht gleich den ganzen Satz reindonnern, sondern Tröpchenweise die Buchstaben, und nebenher immer beobachten
    ob ich die Spaltenbreite überschritten habe. So meinst du das oder?

    mfg

    Thomas.

    hallo trommel,

    vor einiger zeit hab ich mir mal eine rekursive funktion geschrieben die genau das macht.
    jedoch nicht buchstabe für buchstabe sonder wort für wort.

    muss mal schauen wo ich die habe.

    gruss

    mikeb69

    damit mein ich wenn du jetzt z.b. den Satz hast:
    Die Sonne steht heute Mittag hoch am Himmel.
    Und der ist zu lang für deine Zeile, misst du erst die Länge vom ersten Buchstabe, oder vom ersten Wort (besser), also von "Die". Wenn das Wort noch zu kurz ist, bringst du das nächste Wort dazu: "Die Sonne", und so weiter. Sobald der Text länger als die maximale Länge ist, nimmst du das letzte Wort wieder weg und dann hast du deine Trennung

    hallo,

    wer das selbst machen will, soll einfach mal wegsehen.
    hier eine vorstellbare lösung.
    der text wird mit entsprechend vielen zeilenumbrüchen versehen, sodass er immer in die form passt.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private t As String = "Dies ist mein Superlanger Text, der an der richtigen Stellen mit Zeilenumbrüchen versehen werden soll."
    5. ''' <summary>Fügt Zeilenumbrüche in den Text ein, sodass er immer im Zeichenbereich dargestellt werden kann.</summary>
    6. ''' <param name="t">Text der dargestellt werden soll.</param>
    7. ''' <param name="s">Größe des verfügbaren Zeichenbereiches.</param>
    8. ''' <param name="f">Verwendeter Font.</param>
    9. ''' <param name="pos">Aktuelle Position an der ein Zeilenumbruch möglich ist. Optional, da beim ersten Aufruf nicht nötig ist.</param>
    10. ''' <param name="lastpos">Letzte geprüfte Position. Optional, da beim ersten Aufruf nicht nötig ist.</param>
    11. ''' <returns>Text mit Zeilenumbrüchen.</returns>
    12. ''' <remarks>Der String wird nur in der Länge Formatiert. Ein prüfen in der Höhe findet nicht statt.</remarks>
    13. Private Function FitString2Bitmap(ByVal t As String, ByVal s As Size, ByVal f As Font, Optional ByVal pos As Integer = 0, Optional ByVal lastpos As Integer = 0) As String
    14. Dim temppos As Integer = t.IndexOf(" ", pos)
    15. If temppos = -1 Then
    16. Return t
    17. Else
    18. Dim b As New Bitmap(s.Width, s.Height)
    19. Using g As Graphics = Graphics.FromImage(b)
    20. Dim stringsize As SizeF = g.MeasureString(t.Substring(0, temppos), f)
    21. If s.Width > stringsize.Width Then
    22. 'string ist noch ok
    23. Return FitString2Bitmap(t, s, f, temppos + 1, temppos)
    24. Else
    25. 'string ist zu lang
    26. Dim temp As String = t.Substring(0, pos - 1) & Environment.NewLine & t.Substring(pos)
    27. Return FitString2Bitmap(temp, s, f, pos + 1, pos)
    28. End If
    29. End Using
    30. End If
    31. End Function
    33. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    34. e.Graphics.DrawString(FitString2Bitmap(t, Me.ClientSize, Me.Font), Me.Font, Brushes.Black, 0, Me.Height / 2)
    35. End Sub
    37. Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    38. Me.Refresh()
    39. End Sub
    40. End Class


    EDIT: Kommentare eingefügt

    gruss

    mikeb69

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mikeb69“ ()

    Servus!
    Puh so viel Aufmerksamkeit :) danke für den Code, ich werde die kommenden Tage hier Posten wie ich das Problem gelöst habe. (Sicher mit deiner Lösung, oder nahe daran).

    Ich möchte mich mal für die Hilfe hier bedanken, ganz dickes Küü.. ää Dankeschön :thumbsup:

    Wenn ich den Umbruch überarbeitet habe Poste iches nochmal hier herein.


    grüße

    Thomas.

Facebook
Telefonspende