String Array mit Foreach Schleife füllen

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 72 Antworten in diesem Thema. Der letzte Beitrag () ist von Orion.

    ist mir im Grunde auch egal. jdfs. ist Array die Basis der allermeisten Auflistungen, insbesondere (größen-)flexibler Auflistungen, und die Flexiblität wird dadurch erreicht, dass intern redimensioniert wird.
    also gut - ohne Redim.

    @AliveDevil : Ja, IEnumerable(Of T) wäre noch flexibler, aber vlt. brauchen die Methoden ja intern eine indizierbare Auflistung.
    Vermutlich verlangen sie deshalb ein Array, weil Array nunmal das performanteste ist - sonst müssten sie erst intern eines erstellen.

    Ein anderer Grund wird sein, dass es Arrays schon immer gibt, IEnumerable(Of T) aber erst seit 2005.

    Darf ich noch nebenbei fragen wie ich ein Object Array in ein String Array umwandle?
    EDIT: habs glaube ich schon rausgefunden wenn ichs jetzt noch testen könnte.
    Bekomme aber eine MissingMemberException obwohl ich den Import gemacht habe? oder Muss da noch mehr?

    VB.NET-Quellcode

    1. Imports System.IO.Fileinfo
    Spoiler anzeigen


    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

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

    Funktioniert auch nicht, naja ich glaube meine IDE spinnt auch allgemein ein bisschen rum ich Update mal 2012 und versuchs darin nochmal.
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Diesen Code musst Du in eine Prozedur schreiben, nicht aber in die Klasse.
    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!

    Ups, dummer Fehler. Aber müsste es so nicht funktionieren?

    VB.NET-Quellcode

    1. Public woerterbuchS() As String
    2. Dim Files = New System.IO.DirectoryInfo(Environment.SpecialFolder.ApplicationData & "\***").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    3. Dim woerterbuch = Files.Select(Function(f) f.Name).ToArray()
    5. For Each fileName In woerterbuch
    6. ReDim Preserve woerterbuchS(UBound(woerterbuchS) + 1)
    7. woerterbuchS(UBound(woerterbuchS)) = fileName.ToString
    8. Next fileName

    Nachdem Versuch von Object in String zu konvertieren habe ich immer noch keine Werte in woerterbuchS(Habe ich auch ausserhalb der Sub deklariert)
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    ausgehend vom Code in deinem ersten Post könnte es auch so aussehen (nicht getestet)

    VB.NET-Quellcode

    1. Private woerterbuch() As String
    2. Dim Dateiliste() As String = System.IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\*CENSORED*", "*.*", System.IO.SearchOption.TopDirectoryOnly)
    4. Private Sub myForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    5. ReDim woerterbuch(Dateiliste.Length - 1)
    6. For i = 0 To Dateiliste.Length - 1
    7. woerterbuch(i) = IO.Path.GetFileName(Dateiliste(i))
    8. Next
    9. End Sub

    Orion schrieb:

    funktionieren
    Sieh Dir mal das an. Stell sicher, dass auch Dateien da sind:

    VB.NET-Quellcode

    1. Public woerterbuchS As New List(Of String)
    2. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. Dim Files() = New System.IO.DirectoryInfo(Environment.SpecialFolder.ApplicationData & "\***").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    4. woerterbuchS.AddRange(Files.Select(Function(f) f.Name).ToArray())
    5. End Sub

    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!

    Hab ich alles zuvor schon ausprobiert dann bekomm ich aber bei dieser Zeile den Fehler das der Datentyp explizit angegeben werden muss:

    VB.NET-Quellcode

    1. Dim t() As String = Array.FindAll(woerterbuchS, AddressOf find_key)
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Es ist ja eine Intellisense Form die auftritt wenn der User bei einer Textbox eine Eingabe macht und die ersten Buchstaben übereinstimmen mit den Dateinamen die bereits gespeichert wurden. Dann kann er diese selektieren und die Textfelder werden alle mit dem Inhalt dieser Dateien gefüllt.
    Habe jetzt folgender Code der mir keinen Fehler gibt aber auch immer noch keine Werte. Ich glaub ich hab jetzt so lang rumprobiert MSDN usw. gelesen das ich gar nicht mehr produktiv denken kann x.x
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub RefreshList(ByVal key As String)
    2. Dim fileName As String
    3. Dim Files = New System.IO.DirectoryInfo(Environment.SpecialFolder.ApplicationData & "\***").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    4. Dim woerterbuch = Files.Select(Function(f) f.Name).ToArray()
    5. woerterbuchS.AddRange(Files.Select(Function(f) f.Name).ToArray())
    7. Me.ListBox1.Items.Clear()
    8. find_key_arg = key & "*"
    10. Dim LA() As String = woerterbuchS.ToArray
    11. Dim t() As String = Array.FindAll(LA, AddressOf find_key)
    12. For Each fileName In woerterbuchS
    13. ReDim Preserve t(UBound(t) + 1)
    14. t(UBound(t)) = fileName.ToString
    15. Next fileName
    16. If t.Count > 0 Then
    17. If key = "" Or t(t.Length - 1) = key Then
    18. _iskeyword = False
    19. Me.Hide()
    20. Else
    21. _iskeyword = True
    22. Me.ListBox1.Items.AddRange(t)
    23. Me.ListBox1.SelectedIndex = 0
    24. Me.Show()
    25. End If
    26. Else
    27. _iskeyword = False
    28. Me.Hide()
    29. End If
    30. End Sub
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Hm ich hab hier mal was gebastelt:

    VB.NET-Quellcode

    1. Private _woerterbuch As New List(Of System.IO.FileInfo)
    2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. _woerterbuch = New System.IO.DirectoryInfo("DEINPFAD").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly).ToList()
    5. ListBox1.DataSource = _woerterbuch
    6. ListBox1.DisplayMember = "Name"
    7. ListBox1.ValueMember = "FullName"
    8. End Sub
    10. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    11. ListBox1.DataSource = Nothing
    12. ListBox1.DataSource = _woerterbuch.FindAll(Function(n) n.Name.ToLower.Contains(TextBox1.Text.ToLower))
    13. End Sub
    15. Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
    16. Dim item = DirectCast(ListBox1.SelectedItem, System.IO.FileInfo)
    17. MessageBox.Show(String.Format("Pfad: {0}, Größe: {1} Bytes", item.FullName, item.Length))
    18. End Sub


    Auf der Form hatte ich eine Listbox (Listbox1) und eine Textbox (Textbox1).
    Es wird das gesamte Wörtbuch an die Listbox gebunden. Bei jedem Textchanged werden nur mehr die Dateien angezeigt welche dem Suchmuster der Textbox entsprechen. Per Doppelklick castet man einfach das Item (welches ja ein FIleInfo-Objekt ist) wieder zurück in FileInfo und kann auf alle EIgenschaften zugreifen.

    Vielleicht ist das ein Ansatz für dich.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Hmm... damit kann ich ja die Listbox füllen das hätte ich schon gehabt. Ich muss ja daraus diese Intellisense Funktion bauen weils die für RichTextBoxen nicht vordefiniert gibt. Hatte das Snippet irgendwo gefunden mit der einfachsten Art einfach ein Array mit festen Daten mitzugeben. Das ganze soll eben dann so funktionieren das die Form im Hintergrund wartet und am Rand erscheint wenn Übereinstimmungen vorhanden sind, dann werden diese übereinstimmenden Dateien gelistet. Wenn man die Eingabe wieder löscht versteckt sich die Form wieder, das ganze ist also dynamisch und ich brings da nicht fertig die Dateien mit dieser Listbox so zu verknüpfen das es eben funktioniert.
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Naja im Textchanged (geht ja auch von der Richtextbox) kannst du ja abfragen ob etwas drin steht (.Lenght > 0).
    Die Zeile

    VB.NET-Quellcode

    1. ​
    2. ListBox1.DataSource = _woerterbuch.FindAll(Function(n) n.Name.ToLower.Contains(TextBox1.Text.ToLower))


    kann man ja aufteilen auf

    VB.NET-Quellcode

    1. Dim tmpList = _woerterbuch.FindAll(Function(n) n.Name.ToLower.Contains(TextBox1.Text.ToLower)).ToList()
    2. ListBox1.DataSource = tmpList
    3. If tmpList.Count > 0 then
    4. me.Show()
    5. Else
    6. me.hide()
    7. ENd If


    So in der Art halt.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Orion schrieb:

    explizit angegeben werden muss
    Bei mit läuft der Code wie er da steht (ein anderer Pfad natürlich).
    -----
    @fichz Me.Visible = (tmpList.Count > 0)
    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!

    RodFromGermany schrieb:

    Bei mit läuft der Code wie er da steht (ein anderer Pfad natürlich).

    Okay... So wie es aussieht bin ich blöd... Hab Testweise den Pfad zu nem nicht existierenden Ordner geführt und dann gesehen das er die Ordner im Debugmode auch im Debug Ordner erstellt. Logisch hab ich keine Daten x.x Naja ... Dann muss ich für heute nur noch rausfinden wieso mir die Files Doppelt oder sogar 3-fach angezeigt werden dann kann ich Feierabend machen. Das hat mich nu zu viel Nerven gekostet ^^
    Danke für eure Beihilfe dabei.

    EDIT: Hab mich zu früh gefreut, hab das Tool jetzt mal kompiliert und erhalte bei der Eingabe in die Textbox egal welcher Art eine Exception wegen der Intellisense das keine Integer angenommen werden obwohl ich Text schreibe. Kann mir jemand sagen warum? O.o
    Hier der Code der Textbox:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. With Me.RichTextBox1
    3. Dim last() As String = Regex.Split(.Text.Substring(0, .SelectionStart).TrimEnd, "[\s]")
    4. Select Case e.KeyCode
    5. Case Keys.Space
    7. If auto.IsKeyWord = True Then
    9. .SelectionStart = .SelectionStart - last(last.Count - 1).Length
    10. .SelectionLength = last(last.Count - 1).Length
    12. .SelectedText = auto.IsBestKeyWord
    14. auto.RefreshList("")
    15. End If
    16. Case Keys.Left, Keys.Right, Keys.Up, Keys.Down
    18. Case Else
    20. auto.RefreshList(last(last.Length - 1))
    21. If auto.IsKeyWord = True Then
    22. Dim p As Point = .PointToScreen(.GetPositionFromCharIndex(.SelectionStart))
    23. auto.Location = New Point(p.X, p.Y + 20)
    24. Else
    25. auto.Hide()
    26. End If
    27. End Select
    28. End With

    Und hier der Code den ich jetzt für die IntelliSense Form habe:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class FormAutoComplete
    4. Public _isbestkeyword As String = ""
    5. Public _iskeyword As Boolean
    6. Public woerterbuchS As New List(Of String)
    8. Public Sub myForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    10. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    11. Me.Size = New Size(200, 20)
    12. Me.ListBox1.Dock = DockStyle.Fill
    14. End Sub
    15. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    16. _isbestkeyword = Me.ListBox1.Items(Me.ListBox1.SelectedIndex)
    17. End Sub
    19. Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
    20. Get
    21. Return True
    22. End Get
    23. End Property
    25. Public Sub RefreshList(ByVal key As String)
    26. 'Dim fileName As String
    27. Dim Files = New System.IO.DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData & "\***")).GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    29. woerterbuchS.AddRange(Files.Select(Function(f) f.Name).ToArray())
    30. Dim LA() As String = woerterbuchS.ToArray
    31. Me.ListBox1.Items.Clear()
    32. find_key_arg = key & "*"
    33. Dim t() As String = Array.FindAll(LA, AddressOf find_key)
    34. If t.Count > 0 Then
    35. If key = "" Or t(t.Length - 1) = key Then
    36. _iskeyword = False
    37. Me.Hide()
    38. Else
    39. _iskeyword = True
    40. Me.ListBox1.Items.AddRange(t)
    41. Me.ListBox1.SelectedIndex = 0
    42. Me.Show()
    43. End If
    44. Else
    45. _iskeyword = False
    46. Me.Hide()
    47. End If
    48. End Sub
    50. Public ReadOnly Property IsKeyWord() As Boolean
    51. Get
    52. Return _iskeyword
    53. End Get
    54. End Property
    56. Public ReadOnly Property IsBestKeyWord() As String
    57. Get
    58. If _iskeyword = True Then
    59. Return _isbestkeyword
    60. Else
    61. Return ""
    62. End If
    63. End Get
    64. End Property
    65. Private find_key_arg As String
    66. Private Function find_key(ByVal s As String) As Boolean
    67. If s Like find_key_arg Then
    68. Return True
    69. Else
    70. Return False
    71. End If
    72. End Function
    74. End Class

    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

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

    Setz mal

    Orion schrieb:

    Testweise
    einen Haltepunkt rein und verfolge den Inhalt der Arrays / Lists.
    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!

    Gibts dazu irgendwo eine Kurzübersicht oder so? :/ Habe mich bisher bei IDE's erst mit der Autovervollständigung auseinandergesetzt mehr noch nicht.
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

Facebook
Telefonspende