Text aus Textbox auswerten

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von BeatsleigherXDA.

    Text aus Textbox auswerten

    Hallo Zusammen,

    ich habe folgendes vor:

    Ein Auftragssystem schickt eine Text E-Mail in ein Postfach, dieses Postfach wird jede Minute durch meine Anwendung überprüft und geleert. Die E-Mail die im Postfach ist wird heruntergeladen und gelöscht. Der Inhalt dieser E-Mail wird in einer Textbox angezeigt.
    Soweit so gut das ist auch schon alles realisiert. Jetzt zu meinem Problem.

    Der Inhalt ist wie folgt aufgebaut:

    Auftragsart: Testauftrag
    Auftragsort: Musterhausen
    Auftragsstraße: Musterstrasse
    Auftraggeber: Mustermann

    usw....

    Jetzt möglich ich diese sachen abfragen und ganz groß auf einem 42" Bildschirm anzeigen. Also muss das was bei Auftragsart steht jetzt in die Textbox: txt_auftragsart
    Wie bekomme ich das hin?

    Danke für eure Hilfe

    VB.NET-Quellcode

    1. Using sReader as StringReader = new StringReader(textbox1.Text)
    2. Dim line As String = Nothing
    3. While Not sReader.Peek() = -1
    4. line = sReader.ReadLine()
    5. If line.ToLower().StartsWith("auftragsort") Then
    6. '// Bearbeiten
    7. Else If line.ToLower().StartsWith("auftragsdatum") Then
    8. '// Bearbeiten
    9. End If
    10. End While
    11. End Using


    Das wäre so dein Ansatz.
    Im Prinzip geht das den Text Zeile für Zeile durch und dann kannst du alles abarbeiten und bearbeiten.

    EDIT: Warte mal, ich mache das mal ein bisschen OOP-er.

    VB.NET-Quellcode

    1. Public Class Contract
    3. Public Enum ContractType
    4. Gib, Hier, Die, Verschiedenen, Typen, Ein
    5. End Enum
    7. #Region "Variables"
    8. Private m_contractType As ContractType = Nothing
    9. Private m_contractLocation As String = Nothing
    10. Private m_contractClient As String = Nothing
    11. #End Region
    13. Public Property ContractType() As ContractType
    14. Get
    15. Return m_contractType
    16. End Get
    17. Set (value As ContractType)
    18. m_contractType = value
    19. End Set
    20. End Property
    22. Public Property ContractLocation() As String '// Ja, das kann man auch als eigenständige Klasse machen, fand ich jetzt aber nicht so wichtig
    23. Get
    24. return m_contractLocation
    25. End Get
    26. End Property
    28. Public Property ContractClient() As String
    29. Get
    30. return m_contractClient
    31. End Get
    32. End Property
    34. Public Sub SetContractLocation(street As String, houseNr As Integer, city As String, postcode As String)
    35. m_contractLocation = String.Format("Straße / Haus Nr.: {0} {1}" + vbNewLine _
    36. + "Postleitzahl / Stadt: {2} {3}" + vbNewLine _
    37. + "Deutschland", street, houseNr.ToString(), postcode, city)
    38. End Sub
    40. Public Sub SetContractName(title As String, firstName As String, lastName As String)
    41. m_contractName = String.Format("{0} {1} {2}", title, firstName, lastName)
    42. End Sub
    44. Public Sub New(type As ContractType, street As String, houseNr As Integer, city As String, postcode As String, title As String, firstName As String, lastName As String)
    45. m_contractType = type
    46. SetContractLocation(street, houseNr, city, postcode)
    47. SetContractName(title, firstName, lastName)
    48. End Sub
    50. '// Wenn du wirklich pingelig sein willst, kannst du das hier mit Events und Delegates schmücken
    52. End Class
    54. Public NotInheritable Class ContractParser
    55. Public Shared Function GetContract(rawEmail As String) As Contract
    56. Dim contract As Contract = Nothing
    58. Using sReader As StringReader = New StringReader(rawEmail)
    59. Dim line As String = Nothing
    60. Dim type As Contract.ContractType = Nothing
    61. Dim street As String
    62. Dim houseNr As Integer
    63. Dim postcode As String
    64. DIm city As String
    65. Dim title As String
    66. Dim firstName As String
    67. Dim lastName As String
    68. Dim splitData As String() = Nothing
    70. While Not sReader.Peek() = -1
    71. line = sReader.ReadLine()
    72. if (line.ToLower().StartsWith("auftragsart: ") Then
    73. splitData = Regex.Split(line, "[:]")
    74. Select Case splitData(1)
    75. Case "testauftrag"
    76. type = Contract.ContractType.TestAuftrag
    77. Case "bauauftrag"
    78. type = Contract.ContractType.BauAuftrag
    79. Case Else
    80. type = Contract.ContractType.Unbekannt
    81. End Select
    82. Else If (line.ToLower().StartsWith("auftragsort: ")) Then
    83. '// Ich gehe mal davon aus, dass es so aufgebaut ist: Auftrags-Ort: Musterstraße 47, 12345 Musterhausen
    84. splitData = Regex.Split(Regex.Split(line, "[:\s]")(1), "[,]")
    85. street = Regex.Split(splitData(0), "[\s]")(0)
    86. houseNr = Integer.Parse(Regex.Split(splitData(0), "[\s]")(1))
    87. splitData = Regex.Split(splitData(1), "[\s]")
    88. postcode = splitData(0)
    89. city = splitData(1)
    90. Else If (line.ToLower().StartsWith("auftraggeber")) Then
    91. '// Hier gehe ich davon aus, dass es so aufgebaut ist: Auftraggeber: Herr Max Mustermann
    92. splitData = Regex.Split(Regex.Split(line, "[:\s]")(1), "[\s]")
    93. title = splitData(0)
    94. firstName = splitData(1)
    95. lastName = splitData(2)
    96. End If
    97. End While
    98. sReader.Close()
    100. contract = New Contract(type, street, houseNr, city, postcode, title, firstName, lastName)
    101. End Using
    103. If Not contract = Nothing Then
    104. Return contract
    105. Else : Return Nothing
    106. End Function
    107. End Class


    Wenn ich Fehler gemacht habe, bitte darauf hinweisen; ich habe den Code direkt hier in der Antwort geschrieben, ohne VS. Die Fehler werden dann korrigiert.
    "Nichts ist unendlich, bis auf die menschliche Dummheit" - Albert Einstein
    "Man sollte nicht alles vertrauen, was im Netz steht" - Abraham Lincoln

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „BeatsleigherXDA“ ()

    @BeatsleigherXDA ich habe in dem Quellcode gerade

    VB.NET-Quellcode

    1. If Not contract = Nothing Then
    2. Return contract
    3. Else : Return Nothing

    Gefunden...
    Das ist doch das gleiche wie

    VB.NET-Quellcode

    1. Return contract

    Oder sehe ich da gerade etwas falsch?
    Ich Antworte nach bestem Wissen und Gewissen. Ich übernehme keine Garantie für die Richtigkeit oder Fehlerfreiheit meiner Texte.


    Ich konnte dir helfen?
    - Das ist schön :) Ich würde mich über ein "Hilfreich" freuen ^^

    Ja, doch stimmt. Mein Hirn hat gefurzt.

    So müsste es richtig sein:

    VB.NET-Quellcode

    1. If Not contract = Nothing Then
    2. Return contract
    3. Else
    4. Throw New Exception("Contract cannot be null")
    5. End If
    "Nichts ist unendlich, bis auf die menschliche Dummheit" - Albert Einstein
    "Man sollte nicht alles vertrauen, was im Netz steht" - Abraham Lincoln

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

Facebook
Telefonspende