vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
String Append Problem 
Autor: Hänk
Datum: 05.10.21 20:35

Servus im Forum

Ich komme einfach nicht dahinter warum in diesem Beispiel nicht nach csv-Dateien gesucht wird...

        Dim oExtender As String() = {"*.txt", "*.xls", "*.xlsx"}
        If CheckBox_csv.Checked = True Then
            oExtender.Append("*.csv")
        End If
 
        For Each oFile As String In My.Computer.FileSystem.GetFiles( _
          oVerzeichnis, FileIO.SearchOption.SearchAllSubDirectories, oExtender)
Was ist falsch an Append?

Hänk

(Wer früh aufsteht hat mehr vom Tag)

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: String Append Problem 
Autor: Kuno60
Datum: 05.10.21 21:07

Hallo,

Append ist eine IEnumerable-Funktion.
Du musst aus dem Ergebnis wieder ein Array erstellen.
If CheckBox_csv.Checked = True Then
    oExtender = oExtender.Append("*.csv").ToArray
End If

Grüße, Kuno
---------------
Hobbyprogrammierer
VB6 bis VB16

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: String Append Problem 
Autor: Hänk
Datum: 05.10.21 22:03

Servus Kuno60

Vielen Dank für deinen Tipp.

Wie kann ich nun zuerst das Array "leer" belegen um es dann per Append aufzufüllen?

        Dim oExtender As String() = ... ?
 
        If CheckBox_csv.Checked = True Then
            oExtender = oExtender.Append("*.csv").ToArray
        End If
Ich möchte hier nichts vorbelegen, da ich nicht weis was gesucht werden soll.

Hänk

(Wer früh aufsteht hat mehr vom Tag)

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: String Append Problem 
Autor: Manfred X
Datum: 06.10.21 02:04

Hallo!

Verwende eine Liste.
Dim overzeichnis As String = "....."
 
Dim oextender As New List(Of String)
 
oextender.AddRange({"*.txt", "*.xls", "*.xlsx"})
oextender.Add("*.csv")
 
For Each oFile As String In My.Computer.FileSystem.GetFiles(
overzeichnis, FileIO.SearchOption.SearchAllSubDirectories, oextender.ToArray)
 
   'Stop
Next
Es ist ineffizient, aber wer ein leeres Array braucht:
Dim ox() As String = {}  'Array ohne Elemente
ox = ox.Append("*.txt").ToArray


Beitrag wurde zuletzt am 06.10.21 um 02:24:01 editiert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: String Append Problem 
Autor: Hänk
Datum: 06.10.21 16:56

Servus Manfred X

muss schon sagen, Beantwortung um diese Uhrzeit. TOP.

Vielen Dank das passt jetzt perfekt.

Hänk

(Wer früh aufsteht hat mehr vom Tag)

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel