Bestimme Textboxen in bestimmte Zeilen schreiben

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Bestimme Textboxen in bestimmte Zeilen schreiben

    Hallo zusammen,

    ich habe momentan folgenden Code:

    Visual Basic-Quellcode

    1. Private Sub generatebut_Click(sender As Object, e As EventArgs) Handles generatebut.Click
    2. Form2.Show()
    3. If nfotxt.Text = "" Then ' Generierung ohne NFO
    4. Form2.posttxt.Text = "[IMG]" & covertxt.Text & "[/IMG]" &
    5. vbCrLf & vbCrLf & descriptiontxt.Text & vbCrLf & vbCrLf & "[HIDE]" & vbCrLf &
    6. "[B]Group[/B]: " & group1txt.Text & " " & group2txt.Text & " " & group3txt.Text & " " & group4txt.Text &
    7. vbCrLf & "[B]Header[/B]: " & headertxt.Text & vbCrLf & "[B]NZB-Link[/B]: " & nzbtxt.Text &
    8. vbCrLf & vbCrLf & "[B]Passwort[/B]: " & passwordtxt.Text & vbCrLf & vbCrLf & "[/HIDE]"
    9. ElseIf nfotxt.Text = "" And covertxt.Text = "" Then ' Generierung ohne NFO und Cover
    10. Form2.posttxt.Text = descriptiontxt.Text & vbCrLf & vbCrLf & "[HIDE]" & vbCrLf &
    11. "[B]Group[/B]: " & group1txt.Text & " " & group2txt.Text & " " & group3txt.Text & " " & group4txt.Text &
    12. vbCrLf & "[B]Header[/B]: " & headertxt.Text & vbCrLf & "[B]NZB-Link[/B]: " & nzbtxt.Text &
    13. vbCrLf & vbCrLf & "[B]Passwort[/B]: " & passwordtxt.Text & vbCrLf & vbCrLf & "[/HIDE]"
    14. ElseIf nfotxt.Text = "" And passwordtxt.Text = "" Then ' Generierung ohne NFO und Passwort
    15. Form2.posttxt.Text = "[IMG]" & covertxt.Text & "[/IMG]" &
    16. vbCrLf & vbCrLf & descriptiontxt.Text & vbCrLf & vbCrLf & "[HIDE]" & vbCrLf &
    17. "[B]Group[/B]: " & group1txt.Text & " " & group2txt.Text & " " & group3txt.Text & " " & group4txt.Text &
    18. vbCrLf & "[B]Header[/B]: " & headertxt.Text & vbCrLf & "[B]NZB-Link[/B]: " & nzbtxt.Text &
    19. vbCrLf & "[/HIDE]"
    20. ElseIf nfotxt.Text = "" And covertxt.Text = "" And passwordtxt.Text = "" Then ' Generierung ohne NFO, Cover und Passwort
    21. Form2.posttxt.Text = descriptiontxt.Text & vbCrLf & vbCrLf & "[HIDE]" & vbCrLf &
    22. "[B]Group[/B]: " & group1txt.Text & " " & group2txt.Text & " " & group3txt.Text & " " & group4txt.Text &
    23. vbCrLf & "[B]Header[/B]: " & headertxt.Text & vbCrLf & "[B]NZB-Link[/B]: " & nzbtxt.Text &
    24. vbCrLf & "[/HIDE]"
    25. ElseIf covertxt.Text = "" Then ' Generierung ohne Cover
    26. Form2.posttxt.Text = descriptiontxt.Text & vbCrLf & vbCrLf & "[HIDE]" & vbCrLf &
    27. "[B]Group[/B]: " & group1txt.Text & " " & group2txt.Text & " " & group3txt.Text & " " & group4txt.Text &
    28. vbCrLf & "[B]Header[/B]: " & headertxt.Text & vbCrLf & "[B]NZB-Link[/B]: " & nzbtxt.Text &
    29. vbCrLf & vbCrLf & "[B]Passwort[/B]: " & passwordtxt.Text & vbCrLf & vbCrLf & "[/HIDE]" &
    30. vbCrLf & "[NFO]" & nfotxt.Text & "[/NFO]"
    31. ElseIf covertxt.Text = "" And passwordtxt.Text = "" Then ' Generierung ohne Cover und Passwort
    32. Form2.posttxt.Text = descriptiontxt.Text & vbCrLf & vbCrLf & "[HIDE]" & vbCrLf &
    33. "[B]Group[/B]: " & group1txt.Text & " " & group2txt.Text & " " & group3txt.Text & " " & group4txt.Text &
    34. vbCrLf & "[B]Header[/B]: " & headertxt.Text & vbCrLf & "[B]NZB-Link[/B]: " & nzbtxt.Text &
    35. vbCrLf & "[/HIDE]" & vbCrLf & "[NFO]" & nfotxt.Text & "[/NFO]"
    36. ElseIf passwordtxt.Text = "" Then ' Generierung ohne Passwort
    37. Form2.posttxt.Text = "[IMG]" & covertxt.Text & "[/IMG]" &
    38. vbCrLf & vbCrLf & descriptiontxt.Text & vbCrLf & vbCrLf & "[HIDE]" & vbCrLf &
    39. "[B]Group[/B]: " & group1txt.Text & " " & group2txt.Text & " " & group3txt.Text & " " & group4txt.Text &
    40. vbCrLf & "[B]Header[/B]: " & headertxt.Text & vbCrLf & "[B]NZB-Link[/B]: " & nzbtxt.Text &
    41. vbCrLf & "[/HIDE]" & vbCrLf & "[NFO]" & nfotxt.Text & "[/NFO]"
    42. Else
    43. Form2.posttxt.Text = "[IMG]" & covertxt.Text & "[/IMG]" &
    44. vbCrLf & vbCrLf & descriptiontxt.Text & vbCrLf & vbCrLf & "[HIDE]" & vbCrLf &
    45. "[B]Group[/B]: " & group1txt.Text & " " & group2txt.Text & " " & group3txt.Text & " " & group4txt.Text &
    46. vbCrLf & "[B]Header[/B]: " & headertxt.Text & vbCrLf & "[B]NZB-Link[/B]: " & nzbtxt.Text &
    47. vbCrLf & vbCrLf & "[B]Passwort[/B]: " & passwordtxt.Text & vbCrLf & vbCrLf & "[/HIDE]" &
    48. vbCrLf & "[NFO]" & nfotxt.Text & "[/NFO]"
    49. End If


    Wie ihr seht ist dieser Code scheiße, wenn bestimmte Boxen leer sind, soll dieser Text dann nicht generiert werden.
    Gibt es eine Möglichkeit das ein bisschen kürzer umzusetzen?

    Eventuell besteht ja die Möglichkeit bestimmte Textboxen in bestimme Zeilen zu schreiben?

    Schau dir mal string.format an:

    Quellcode

    1. string.Format("{0} ist {1} Test für {0} einfügen {2} Strings", "das", "ein", "von")
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    NoxRainbow schrieb:

    VB.NET-Quellcode

    1. Form2.Show()
    Gugst Du hier.
    Bau Dir aus solchen Snippets "[IMG]" & covertxt.Text & "[/IMG]" entsprechenmde Properties und setz diese zusammen:

    VB.NET-Quellcode

    1. Private ReadOnly Property IMG As String
    2. Get
    3. Return "[IMG]" & covertxt.Text & "[/IMG]"
    4. End Get
    5. End Property
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Schamash

    Ich möchte bestimme Zeilenumbrüche aber nur machen, wenn diese eine Textbox auch ausgefüllt ist.
    Sprich, zu einer "Property" gehören immer der Textboxeintrag UND Zeilenumbrüche.

    @RodFromGermany
    Auch hier, das Gleiche wie oben...

    Aber vielen Dank schonmal!

    Edit by hal2000:
    - Vollzitat entfernt.

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

    Hey,

    erklär doch mal, was das letztendlich werden soll. Dann kann man Dir eine passende Lösung anbieten. Denn es gibt zu 100% bessere Ansätze als das, was Du hier präsentierst. Nur dazu benötigen wird genaue Infos, was in Deinem Kopf vorgeht^^
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Man soll in einer Art Generator einen Beitrag mithilfe einer vorgelegten Vorlage generieren können.


    Das soll dann im Generator so aussehen:


    Ist jetzt aber die Textbox für das Passwort nicht ausgefüllt, soll im Generatortext dann das Passwort nicht erscheinen,
    inklusive des "Passwort: " und den Zeilenumbrüchen.

    Das Gleiche dann noch für NFO und Coverlink.

    Edit by hal2000:
    - Vollzitat entfernt.

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

    schreib dir v.a. eine eigen Sub dafür, die die Argumente nfo, cover, pw als boolean übergeben bekommt, und die den generierten String zurückgibt.

    Wie die Generierung zu erfolgen hat, kann ich aus dem Code nicht durchschauen. Ich könnte mir vorstellen, einen Standard-Text mit Leerstellen zu halten, je eine für nfo, cover, pw, und die Leerstellen werden dann gefüllt oder nicht.
    Also das wäre ein einfaches Generieren, obs für dich passt - k.A.

    Das z.b. wäre ein Ansatz:

    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
    4. Dim a As Integer = 2
    5. Dim b As Integer = Verdoppeln(a)
    6. MessageBox.Show(b)
    7. End Sub
    9. Private Function Verdoppeln(ByVal Zahl As Integer) As Integer
    10. Dim Doppel As Integer = 2 * Zahl
    11. Return Doppel
    12. End Function
    13. End Class


    Bei sowas:

    VB.NET-Quellcode

    1. Private Sub ZweiRückgabewerte(ByVal Wert1 As Integer, ByVal Wert2 As Integer, ByVal Daten As String, ByRef Ergebnis1 As Boolean, ByRef Ergebnis2 As Integer)


    Hier gibt Ergebnis1 und Ergebnis2 die Ergebnisse an die aufrufende Funktion zurück.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    NoxRainbow schrieb:

    ErfinderDesRades schrieb:

    schreib dir v.a. eine eigen Function dafür, die die Argumente nfo, cover, pw als boolean übergeben bekommt, und die den generierten String zurückgibt.


    Wie genau funktioniert das?
    Oh - Grundlagen!
    • Weißt du, wie man eine Function schreibt?
    • Wie man festlegt, welche Argumente sie erwartet?
    • wie man festlegt, was sie zurückgibt?
    • weißt du, wie man eine Function aufruft?

    ErfinderDesRades schrieb:

    NoxRainbow schrieb:

    ErfinderDesRades schrieb:

    schreib dir v.a. eine eigen Function dafür, die die Argumente nfo, cover, pw als boolean übergeben bekommt, und die den generierten String zurückgibt.


    Wie genau funktioniert das?
    Oh - Grundlagen!
    • Weißt du, wie man eine Function schreibt?
    • Wie man festlegt, welche Argumente sie erwartet?
    • wie man festlegt, was sie zurückgibt?
    • weißt du, wie man eine Function aufruft?


    Nein, aber ich werde mich erstmal selber informieren.
    Danke soweit.

    guggemol Visual-Studio richtig nutzen.
    Dort wird beispielhaft gezeigt, wie man das Schlüsselwort "Select" recherchiert.
    Auf ebensolche Weise kannst du auch das Schlüsselwort "Function" recherchieren.
    Oder überhaupt mal in der VB-Sprachreferenz rumgugge.
    vmtl. einfacher aber ist ein systematisch aufbauendes Buch: dieses Buch lesen (hingegen das Galileio-Openbook ist Mist)

Facebook