Kassenwerte bearbeiten in Verbindung mit Byref

  • VB.NET

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

    Kassenwerte bearbeiten in Verbindung mit Byref

    Moin!

    ich habe da noch eine etwas kompliziertere Sache.

    Es gibt eine Klasse für die Bearbeitung von Parametern "Properties"

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports System.Reflection
    3. Imports System.Windows.Forms
    4. Imports System.IO
    5. Public Class Properties
    6. Private _objDoc As Word.Document
    7. Private _KeyWords As New Dictionary(Of String, String)
    8. Public Sub New(objDoc As Word.Document)
    9. _objDoc = objDoc
    10. _KeyWords = GetKeywords
    11. End Sub
    13. ''' <summary>
    14. ''' Auslesen der FID für das JOURNAL
    15. ''' </summary>
    16. ''' <returns>FID Journal</returns>
    17. Public ReadOnly Property FID_Journal() As Long
    18. Get
    19. If _KeyWords.Count = 0 Then Return -1
    20. If _KeyWords.ContainsKey("FID_JOURNAL") = False Then Return -1
    21. Return CLng(_KeyWords("FID_JOURNAL"))
    22. End Get
    23. End Property
    24. ''' <summary>
    25. ''' Auslesen der FID für das GENEHMIGUNG
    26. ''' </summary>
    27. ''' <returns>FID_Genehmigung</returns>
    28. Public ReadOnly Property FID_Genehmigung() As Long
    29. Get
    30. If _KeyWords.Count = 0 Then Return -1
    31. If _KeyWords.ContainsKey("FID_GENEHMIGUNG") = False Then Return -1
    32. Return CLng(_KeyWords("FID_GENEHMIGUNG"))
    33. End Get
    34. End Property
    35. ''' <summary>
    36. ''' Auslesen der FID für den Sachbearbeiter
    37. ''' </summary>
    38. ''' <returns>FID_Sachbearbeiter</returns>
    39. Public ReadOnly Property FID_Sachbearbeiter() As Long
    40. Get
    41. If _KeyWords.Count = 0 Then Return -1
    42. If _KeyWords.ContainsKey("FID_SACHBEARBEITER") = False Then Return -1
    43. Return CLng(_KeyWords("FID_SACHBEARBEITER"))
    44. End Get
    45. End Property
    46. ''' <summary>
    47. ''' Auslesen des Projektnamens
    48. ''' </summary>
    49. ''' <returns>Projektname und wenn keiner übergeben dann wird zur Sicherheit der Entwicklungsname übergeben</returns>
    50. Public ReadOnly Property Project() As String
    51. Get
    52. If _KeyWords.Count = 0 Then Return "ENTWICKLUNG_2020_06"
    53. If _KeyWords.ContainsKey("PROJEKT") = False Then Return "ENTWICKLUNG_2020_06"
    54. Return _KeyWords("PROJEKT")
    55. End Get
    56. End Property
    57. ''' <summary>
    58. ''' Key vorhanden?
    59. ''' </summary>
    60. ''' <param name="Key">zu prüfender Key</param>
    61. ''' <returns>true .. vorhanden / false ... nicht vorhanden</returns>
    62. Public ReadOnly Property ContainsKey(Key As String) As String
    63. Get
    64. Return _KeyWords.ContainsKey(Key)
    65. End Get
    66. End Property
    67. ''' <summary>
    68. ''' Wert auslesen
    69. ''' </summary>
    70. ''' <param name="Key">auszulesender Wert</param>
    71. ''' <returns>Wert oder Leerstring</returns>
    72. Public ReadOnly Property Item(Key As String) As String
    73. Get
    74. If _KeyWords.ContainsKey(Key) Then Return _KeyWords(Key)
    75. Return ""
    76. End Get
    77. End Property
    79. ''' <summary>
    80. ''' Key hinzufügen, wenn nicht vorhanden
    81. ''' </summary>
    82. ''' <param name="Key">zu verwendender Key</param>
    83. ''' <param name="Value">zu setzender Wert</param>
    84. ''' <param name="Overwrite">optional überschreiben (default:=false)</param>
    85. Public Sub Add(Key As String, Value As String, Optional Overwrite As Boolean = False)
    86. If _KeyWords.ContainsKey(Key) = True Then
    87. If Overwrite = True Then
    88. _KeyWords(Key) = Value
    89. End If
    90. Else
    91. _KeyWords.Add(Key, Value)
    92. End If
    93. End Sub
    95. End Class



    Nun bin ich im Hauptprogramm und rufe eine Funktion in einer anderen Klasse auf:

    VB.NET-Quellcode

    1. ​
    2. Private Sub bt_GsewReplaceTags1_Click(sender As Object, e As RibbonControlEventArgs) Handles bt_GsewReplaceTags1.Click
    3. _objDoc = Globals.ThisAddIn.Application.ActiveDocument
    4. Dim fProp As New EBL.WordAddin.Properties(_objDoc)
    6. fTxtAnaly.AnalyseZAndrohungFestsetzung(fProp) ' Schreibenanalyse
    8. End Sub


    Hier geht es um die Zeile 6.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. ''' <summary>
    3. ''' Handelt es sich um Zwangsgeldandrohungsbescheid/Zwangsgeldfestsetzungsbescheid
    4. ''' </summary>
    5. ''' <param name="fKeyword">Klasse mit den docEigenschaften (Keywords)</param>
    6. ''' <param name="Refresh">optional den Text neulesen</param>
    7. Public Sub AnalyseZAndrohungFestsetzung(ByRef fKeyword As EBL.WordAddin.Properties, Optional Refresh As Boolean = False)
    8. If Refresh = True Then ReadWordText()
    10. Dim Data2Analyze As String = ""
    12. If fKeyword.ContainsKey("DatumVorbescheid") = True Then Exit Sub ' damit das nicht mehrfach abgefragt wird
    14. Dim Pattern As New Text.RegularExpressions.Regex("{Zwangsgeldandrohungsbescheid\/Zwangsgeldfestsetzungsbescheid}", RegexOptions.Singleline)
    15. Try
    16. For Each m As Text.RegularExpressions.Match In Pattern.Matches(_TextOfDoc)
    17. ' hier liegt der Platzhalter vor
    19. Dim sDate_Androhung As String = "./."
    20. Dim sDate_Festsetzung As String = "./."
    22. If fKeyword.ContainsKey("DatumAndrohung") Then sDate_Androhung = fKeyword.Item("DatumAndrohung")
    23. If fKeyword.ContainsKey("DatumZwang") Then sDate_Festsetzung = fKeyword.Item("DatumZwang")
    25. Dim f As New frm_GsewGenehmigung_ZAndroh_ZFestsetz(sDate_Androhung, sDate_Festsetzung)
    26. With f
    27. If .ShowDialog = DialogResult.OK Then
    28. If .rb_Androhung.Checked = True Then
    29. If fKeyword.ContainsKey("Zwangsgeldandrohungsbescheid/Zwangsgeldfestsetzungsbescheid") = False Then fKeyword.Add("Zwangsgeldandrohungsbescheid/Zwangsgeldfestsetzungsbescheid", "Zwangsgeldandrohungsbescheid")
    31. Else 'Festsetzung
    32. If fKeyword.ContainsKey("Zwangsgeldandrohungsbescheid/Zwangsgeldfestsetzungsbescheid") = False Then fKeyword.Add("Zwangsgeldandrohungsbescheid/Zwangsgeldfestsetzungsbescheid", "Zwangsgeldfestsetzungsbescheid")
    34. End If
    36. Dim sDatumVorbescheid As String = .txt_DatumVorbescheid.Text
    37. If Not sDatumVorbescheid = "./." Then
    38. If fKeyword.ContainsKey("DatumVorbescheid") = False Then fKeyword.Add("DaumVorbescheid", sDatumVorbescheid)
    39. End If
    41. End If
    42. End With
    44. Exit For
    46. Next
    47. Catch ex As Exception
    48. MessageBox.Show("Fehler bei der Suche nach {}-Platzhaltern!" & Environment.NewLine & Environment.NewLine & ex.ToString, "Fehler", buttons:=MessageBoxButtons.OK, icon:=MessageBoxIcon.Warning)
    50. End Try
    51. End Sub



    Im weiteren Verlauf geht es um die Zeile 38.

    VB.NET-Quellcode

    1. ​
    2. If fKeyword.ContainsKey("DatumVorbescheid") = False Then fKeyword.Add("DaumVorbescheid", sDatumVorbescheid)


    Im Bereich der If-Abfrage ist der Key "DatumVorbescheid" noch nicht enthalten. Verfolge ich im Debugger die Add-Funktion, dann ist dort, wo der Wert zugewiesen wird dieser auch in dem Dictionary enthalten.

    Kehrt der Debugger wieder in "AnalyseZAndrohungFestsetzung" zurück, dann fehlt der Key "DatumVorbescheid" wieder.

    Ich dachte aber in der Zeile mit der Übergabe an die Funktion

    VB.NET-Quellcode

    1. ​Public Sub AnalyseZAndrohungFestsetzung(ByRef fKeyword As EBL.WordAddin.Properties, Optional Refresh As Boolean = False)


    alles richtig gemacht zu haben.

    Aber irgendwie funktioniert das nicht. Hmmmmm

    Kann mir einer weiterhelfen?

    Gruß Jan

    Hallo,
    Was mir sofort auffällt, deine Funktion ContainsKey gibt einen String anstelle eines Booleans zurück. Und in meinem einfachen Test mit deiner Klasse funktioniert das so wie von dir erwartet.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub Main
    2. Dim p As New Properties
    3. DoSomething(p)
    4. Console.WriteLine(p.Project) ' Gibt MyValue aus
    5. End Sub
    7. ' Define other methods and classes here
    8. Public Sub DoSomething(ByRef p As Properties)
    9. If Not p.ContainsKey("PROJEKT") Then
    10. p.Add("PROJEKT", "MyValue")
    11. End If
    12. End Sub

    Moin!

    erst einmal allen ein Danke für die Hilfe.

    Ich hatte einen Teil zunächst eine "Ebene" höher umgebaut - ohne Erfolg.

    Dann habe ich mir die Properties nochmal angesehen und etwas umgebaut.

    Jetzt funktionert das. Dann auch die Ebenenverschiebung rückgäng gemacht und auch das hat dann funktioniert.

    Jetzt kann ich feierabend machen!

    Jan

Facebook
Telefonspende