Zitat:

Es gibt keine "überlegenen" Methoden.

(Rechtschreibfehler urheberrechtlich geschützt)

Private Sub PopulateTreeView()
 
        Dim Project As String = ""
        Dim folder As String = ""
        Dim Laufwerk As String = "Z:\INT\Data\CustomerSolutions\CS\"
        Dim rootNode As TreeNode
 
        TreeView_Explorer.Nodes.Clear()
        Project = Me.ComboBox_Projektnummer.Text
        If Microsoft.VisualBasic.Len(Project) = 7 Then
            folder = Microsoft.VisualBasic.Left(Project, 5) + "xx"
            path_engineering = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
              folder + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
              Laufwerk_engineering
            path_design = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + folder _
            + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
            Laufwerk_design
            path_assembly = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
            folder + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
            Laufwerk_assembly
            path_aftersales = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
            folder + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
            Laufwerk_aftersales
            path_pictures = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
            folder + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
            Laufwerk_pictures
            path2 = Laufwerk + Me.ComboBox_Land.Text + "\" + folder + "\" + _
            Project + "\" + Me.ComboBox_Version.Text
 
            TreeView_Explorer.Nodes.Add(path2)
 
            Dim info_engineering As New DirectoryInfo(path_engineering)
            If info_engineering.Exists Then
                rootNode = New TreeNode(info_engineering.Name)
                rootNode.Tag = info_engineering
                GetDirectories(info_engineering.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
            Dim info_design As New DirectoryInfo(path_design)
            If info_design.Exists Then
                rootNode = New TreeNode(info_design.Name)
                rootNode.Tag = info_design
                GetDirectories(info_design.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
            Dim info_assembly As New DirectoryInfo(path_assembly)
            If info_assembly.Exists Then
                rootNode = New TreeNode(info_assembly.Name)
                rootNode.Tag = info_assembly
                GetDirectories(info_assembly.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
            Dim info_aftersales As New DirectoryInfo(path_aftersales)
            If info_aftersales.Exists Then
                rootNode = New TreeNode(info_aftersales.Name)
                rootNode.Tag = info_aftersales
                GetDirectories(info_aftersales.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
            Dim info_pictures As New DirectoryInfo(path_pictures)
            If info_pictures.Exists Then
                rootNode = New TreeNode(info_pictures.Name)
                rootNode.Tag = info_pictures
                GetDirectories(info_pictures.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
        End If
 
    End Sub

   Private Sub PopulateTreeView()
      Dim Laufwerk As String = "Z:\INT\Data\CustomerSolutions\CS\"
      TreeView1.Nodes.Clear()
      Dim Project = Me.ComboBox_Projektnummer.Text
      If Project.length = 7 Then
         Dim folder = Project.substring(0, 5) + "xx"
         Dim rootPath = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
           folder + "\" + Project + "\" + Me.ComboBox_Version.Text
         Dim ndRoot = TreeView1.Nodes.Add(rootPath)
         ndRoot.Nodes.Add(Laufwerk_engineering)
         ndRoot.Nodes.Add(Laufwerk_design)
         ndRoot.Nodes.Add(Laufwerk_assembly)
         ndRoot.Nodes.Add(Laufwerk_aftersales)
         ndRoot.Nodes.Add(Laufwerk_pictures)
         ndRoot.Nodes.Add(Laufwerk_engineering)
      End If
      For Each nd As TreeNode In TreeView1.Nodes(0).Nodes
         MessageBox.Show(nd.FullPath)
      Next
   End Sub

(Rechtschreibfehler urheberrechtlich geschützt)

(Rechtschreibfehler urheberrechtlich geschützt)

Zitat:

[I]naja, eine im Objekt selbst angelegte Objekt-Methode, die am Objekt etwas leistet, was ansonsten in einem externen Modul angelegt werden müsste, nenne ich "überlegen" im Sinne von objektorientierter Architektur und Code-Design[/I] Das stimmt wieder nicht. Die VB-spezifischen Methoden verwenden die Framework-Klassen. Es wird nichts in einem "externen Modul" zusätzlich angelegt - nur der notwendige Code für die Verarbeitung der zusätzlichen oder geänderten Aufrufparameter. (Die Erstellung von Bibliotheken für Parameter-Anpassungen oder Klassen- Kapselungen im Rahmen spezifischer Programmier-aufgaben oder -stile ist üblich.) Im übrigen ist die Art der Implementierung der String-Klasse im Net- Framework "im Sinne von objektorientierter Architektur" vermutlich zu "hinterfragen".

(Rechtschreibfehler urheberrechtlich geschützt)

Zitat:

Der Begriff "überlegen" ist in diesem Zusammenhang nicht anwendbar.

Zitat:

Auch Deine formale Überlegungen (Paradigma o.ä.) spielen in der Praxis kaum eine Rolle.

Zitat:

Im Framework arbeiten Klassen-Module (Objekte) und Standard-Module ergänzend zusammen

Zitat:

- z.B. bei den Extension-Methods...

Zitat:

Und die VB-Entwickler sehen die Sache wohl ohnehin locker.

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 21.05.14 um 04:54:51 editiert.

Module modStringExtensions
 
    <System.Runtime.CompilerServices.Extension()> _
    Public Function mid(ByVal value As String, ByVal startindex As Integer, _
    ByVal length As Integer) As String
        Return Microsoft.VisualBasic.Mid(value, startindex, length)
    End Function
 
    <System.Runtime.CompilerServices.Extension()> _
    Public Function left(ByVal value As String, ByVal length As Integer) As _
    String
        Return Microsoft.VisualBasic.Left(value, length)
    End Function
 
    <System.Runtime.CompilerServices.Extension()> _
    Public Function right(ByVal value As String, ByVal length As Integer) As _
    String
        Return Microsoft.VisualBasic.Right(value, length)
    End Function
End Module

Zitat:

(Wären die oben angesprochenen Methoden der MSVB.Strings-Klasse in einem Modul deklariert und mit dem Extension-Attribut versehen, könnten sie direkt auch als Erweiterungsmethoden der System.String-Klasse fungieren.)

(Rechtschreibfehler urheberrechtlich geschützt)

Zitat:

Korrekt wäre es, den konzeptionellen Hintergrund der einzelnen MSVB-Klassen darzulegen

Zitat:

und so dem Nutzer die (qualifizierte) Entscheidung zu überlassen, ob er einzelne Klassen verwenden oder ob er vielleicht sogar grundsätzlich auf einen Import/Verweis verzichten möchte.

(Rechtschreibfehler urheberrechtlich geschützt)

Namespace ManfredX
           ''' <summary>Spezielle String-Methoden (Ausnahmen werden 
           ' geworfen)</summary>
        Public Class Strings
 
            ''' <summary>Rückgabe des hinteren/rechten Teils eines String</summary>
            ''' <param name="value">String, dessen rechter Teil 
            ' zurückgegeben wird</param>
            ''' <param name="length">Länge des Teilstrings</param>
            Public Shared Function RightPart(ByVal value As String, _
                            ByVal length As Integer) As String
                With value
                    Return .Substring(.Length - length, length)
                End With
            End Function
 
 
            ''' <summary>Bestimmung der Anzahl Zeichen, die Buchstaben etc. 
            ' sind</summary>
            ''' <param name="IncludeDigits">auch Zahlen zählen?=</param>
            ''' <param name="IncludePunctuation">auch Satzzeichen zählen?</param>
            ''' <param name="IncludeSymbols">auch Math-, Currency-, 
            ' Modifier-, Other-Symbole zählen?</param>
            ''' <param name="IncludeWhitespaces">auch Spaces, Tabs, 
            ' Line-/Paragraph-Seps zählen?</param>
            Public Shared Function CountCharTypes(ByVal text As String, _
                         Optional ByVal IncludeDigits As Boolean = False, _
                         Optional ByVal IncludePunctuation As Boolean = False, _
                         Optional ByVal IncludeSymbols As Boolean = False, _
                         Optional ByVal IncludeWhitespaces As Boolean = False) _
                         As Integer
 
                If String.IsNullOrEmpty(text) Then Return 0
 
                Dim sum As Integer = 0
                For i As Integer = 0 To text.Length - 1
                    Dim c As Char = text(i)
                    If Char.IsLetter(c) Then
                        sum += 1
                    ElseIf IncludeDigits AndAlso Char.IsNumber(c) Then
                        sum += 1
                    ElseIf IncludePunctuation AndAlso Char.IsPunctuation(c) Then
                        sum += 1
                    ElseIf IncludeSymbols AndAlso Char.IsSymbol(c) Then
                        sum += 1
                    ElseIf IncludeWhitespaces AndAlso Char.IsWhiteSpace(c) Then
                        sum += 1
                    End If
                Next i
                Return sum
            End Function
 
 
            ''' <summary>Ersetzung der Steuerzeichen</summary>
            ''' <param name="Replacement">Zeichenfolge für die Ersetzung der 
            ' Steuerzeichen</param>
            Public Shared Function ReplaceControls(ByVal text As String, _
                            Optional ByVal Replacement As String = "") As String
 
                If String.IsNullOrEmpty(text) Then Return String.Empty
                Dim stb As New StringBuilder(text.Length)
                For i As Integer = 0 To text.Length - 1
                    Dim c As Char = text(i)
                    If Char.IsControl(c) Then
                        If Not String.IsNullOrEmpty(Replacement) Then
                            stb.Append(Replacement)
                        End If
                    Else
                        stb.Append(c)
                    End If
                Next i
                Return stb.ToString
            End Function
 
 
            ''' <summary>Entfernung von Zeichen-Wiederholungen</summary>
            ''' <param name="repeatingcharacter">das Zeichen, dessen 
            ' Wiederholungen entfernt werden</param>
            Public Shared Function RemoveRepeatingCharacter_
                                  (ByVal text As String, _
                                   ByVal repeatingcharacter As Char) As String
 
                If String.IsNullOrEmpty(text) Then Return String.Empty
                Dim stb As New StringBuilder(text.Length)
                Dim repeating As Boolean
                For i As Integer = 0 To text.Length - 1
                    Dim c As Char = text(i)
                    If Not c = repeatingcharacter Then
                        stb.Append(c)
                        repeating = False
                    ElseIf Not repeating Then
                        stb.Append(c)
                        repeating = True
                    End If
                Next i
                Return stb.ToString
            End Function
 
        End Class
    End Namespace
End Namespace

(Rechtschreibfehler urheberrechtlich geschützt)

Zitat:

Für einen Einsteiger sind Deine Aussagen nicht einzuordnen. Er stellt Vermutungen darüber an, welche (negativen) Folgen es möglicherweise haben könnte, wenn diese Klassen verwendet werden. Er fragt sich: Sind diese Verfahren ineffizient, fehlerhaft, verwirft Microsoft sie in einer späteren VB-Version???? Ich wäre zufrieden, wenn Du für Einsteiger nachvollziehbare Informationen liefern würdest...

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 21.05.14 um 21:34:08 editiert.

Zitat:

(Da "MSVB.Left" intern die "String.Substring" verwendet, kann es nichts "besseres" geben. Du stellst Geschmacksfragen als Qualitätsurteile dar.)

(Rechtschreibfehler urheberrechtlich geschützt)