Office: Suchen in einem Array

Hallo,

im Forum kann ich mein Problem leider nicht finden.

Wie kann ich in einem eindimensionalen Array nach einer bestimmten Zeichenfolge suchen? Ich habe eine csv-Datei per VBA in ein Array eingelesen. Jede Zeile enthält eine Kundennummer. Nun möchte ich nach einer bestimmten Kundennummer innerhalb dieses Arrays suchen. Kann mir jemand helfen? Danke!!!!

:)

 

Hi,

anbei mal ein Bsp. wie Du vorhehen könntest:
Code:

 

Hallo,

wenn's nur darum geht, zu prüfen, ob die Nummer da ist, dann geht's so recht flott:

Public Sub test()
Dim lngArray(1 To 100) As Long, lngReturn As Long
Dim intIndex As Integer
'//Array mit testdaten Füllen
For intIndex = 1 To 100
lngArray(intIndex) = intIndex
Next
'//Prüfung
On Error Resume Next
lngReturn = WorksheetFunction.Match(99, lngArray, 0) > 0
If Err.Number <> 0 Then MsgBox "Nix Da" Else MsgBox "Ist da"
End Sub

 

Hallo,

und wie kriegt man aus einem Array eine bestimmte Zahl als wert zurück!
zb. wenn im text eine PLz "#####" enthalten ist!

grüße Olaf

 

HAllo Olaf

Anderer Ansatz:
So sehen die Daten in der CSV aus:
(Der Einfachheit halber mal 3 volle Spalten in Excel 2007)

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Public Sub test()
Dim arr
Dim FSO
Dim Datei
Dim Such
Such = 12345
Set FSO = CreateObject("Scripting.filesystemobject")
Set Datei = FSpentextfile("D:\Eigene Dateien\Mappe1.csv", 1)
arr = Split(Datei.readall, vbCrLf)
Datei.Close
arr = Filter(arr, Such)
'MsgBox Join(arr, vbCrLf)
End Sub


ransi

 

Hallo,
genau mein Problem! Ich brauche den Index der gefundenen Zeilen! Ein Ojekt muss zugewiesen werden, aber welches? Ich bin immer wieder in dieser „Falle“.
Bin wohl am Ende meiner Lernfähigkeit. Kann mir jemand helfen?

 

Hallo Cadold,

wenn der "Index" kein eigenes "Feld" in der CSV-Datei ist, kannst du entweder mit Hilfe einer Schleife nach einem Treffer suchen und den Schleifenzähler als "Index" nutzen, oder mit der WorksheetFunction.Match() dein Glück versuchen.
Allerdings deutet das auf einen grundsätzlichen Konstruktionsfehler deiner Datenhaltung hin. Eigentlich sollte die Position eines Datensatzes keinerlei bedeutung für den Inhalt des Datensatzes haben. Wenn die Position wichtig ist, ist diese als eigenes Feld zu führen.

Was du mit deinem Objekt zuweisen willst, habe ich nicht verstanden.

Viele Grüße
derHöpp

 

Danke für die schnelle Antwort. Als Hilfesuchender ist es für mich immer schwierig, meine Frage richtig zu formulieren, denn wenn alles klar wäre, bräuchte man keine Hilfe. Ich bitte um Verzeihung.
Da ich sehr große und zahlreiche Textdateien in eine verwertbare Tabelle überführen muß, habe ich fast nur Arrays angelegt. Über
arr = Filter(arr,“Suchstring“) finde ich alles Nötige, z.B. einige Zeilen mit Datum. Das arr ist Variant, deshalb brauche ich keine Schleife. Jetzt habe ich ein weiteres Array erhalten mit 168 Datumseinträgen, also das Ursprungsfile als Array und das Filterergebnis. Ich benötige jetzt die Adresse bzw. den Index eines Datums der gefilterten Liste in der Ursprungsdatei. Nun dachte ich mir, dass es mir möglich sein sollte, die Position eines Datums über arr(i).address erhalten zu können, erhalte jedoch immer die Meldung „Objekt erforderlich“. Da ich ein Array auch (fälschlicherweise?) als Range verstehe, versuche ich über eine set-Zuweisung weiterzukommen, was mir bisher bei einem Array noch nicht gelungen ist. Eine Schleife, ein Array mit 100k Zeilen mit einem Array von 1000 gefundenen Ergebnissen nach einem einzigen Eintrag und dessen Position zu durchsuchen, dauert seine Zeit!
Zusammenfassend: Ich benötige die Adresse bzw. den Index eines einzigen Datums aus der Textdatei, damit ich ein Ereignis als „vorher“ oder „nachher“ bestimmen kann.
Beispiel Log-Datei: Jede Zeile verfügt über einen Zeiteintrag „hh:mm:ss“,
leider aber nicht über einen Datumseintrag! Nun finde ich eine Eintrag „Otto“ mit „hh:mm:ss“, aber kein verheriges Datum. Aber nach x Zeilen finde ich ein Datum und Uhrzeit. Da ein Tag in 24 Stunden aufgeteilt ist, kann ich nun das Ereignis „Otto“ mit einem Datum bestimmen, indem ich die Uhrzeiten in Tage umrechnen kann und vom gefundenen Datum rückwärts bestimme.
Hier hatte ich die Hoffnung, über einen Schalter bei „Filter“ oder „find“ oder „like“ o.a. zu einer schnellen Lösung ohne Tabelle zu kommen.
Für Ihr Verständnis, bin 73 und habe vor 6 Monten mit der Programmierung begonnen, hatte Grundkenntnisse aus dem Studium vor 45 Jahren.
Für weiter Tipps bin ich sehr dankbar, das Problem quält mich ungemein! Alle anderen Probleme habe ich gelöst.

 

Habe über die Uhrzeiten die Anzahl fehlender Tage bis zum ersten Auftauchen eines Datums berechnet und mit DateAdd zurückgerechnet.
Was für ein Aufwand!
Falls Sie bessere Lösungen haben, bitte vorschlagen, vielen Dank!

 

Lernen, lernen und nochmals lernen.
Wer das nicht mehr kann, ist schon mit der Vorbereitung zum Einstieg in die Kiste beschäftigt (unabhängig vom Alter). Daher: Sehr gut und alle Achtung.

Zum Thema:
Arrays haben zwei Stärken: Man kann wunderbar Schleifen darin laufen, und wenn man die Adresse eines Datenfeldes kennt (Zeile, Spalte), kann man direkt auf den enthaltenen Inhalt zugreifen.
Für andere Maßnahmen wie Finden, Filtern, Sortieren ist ein Array weniger geeignet, da muss man dann Schleifen laufen.

Für Tabellen gibt es wiederum effiziente Aufrufe zum Finden, Filtern, Sortieren. Daher sollte man schauen, woraus man sein Array erzeugen würde, weil ein Array nur ein temporäres Objekt und kein Speichermedium ist. Erzeugt man es aus einer Tabelle, würde man doch vielleicht besser diese für solche Maßnahmen heranziehen, aus praktischen und Performancegedanken heraus.

Wenn das so einfach gelingt, sind diese Textdateien bereits Texttabellen, wo halt nur z.B. ein Zeichen wie ein Semikolon als Spaltenbegrenzer fungiert.

Also wäre es ein geeigneter Weg, sich den Dateiinhalt unmittelbar als Tabelle verfüg- und lesbar zu machen. Das gelingt z.B. mit SQL und seit Excel 2010 mit Power Query.

Hier hatte ich mal für die erste Variante einen Ansatz hinterlegt: bestimmte Anzahl der letzten Datensätze einer Textdatei auslesen

 

Hallo auch noch einmal von mir,

du kannst ein Array als Range verstehen, die nur die Inhalte speichert. Also aller "unnötiger" Schnickschnack ist weg. Dazu gehören auch informationen über die Adresse. Du kannst einen bestimmten Inhalt über den "Spalten" und "Zeilen"-Index abrufen (Index der Dimension wäre treffender, im Gegensatz zu Ranges sind Arrays sind nicht auf zwei Dimensionen eingeschränkt. Es gehen auch mehr oder weniger). Allerdings kannst du nicht rückwärts vom Inhalt auf die Position im Array schließen. Das kannst du nur, in dem du mit Zählern in Schleifen arbeitest.

Vielleicht stellst du uns mal eine Beispieldatei zur Verfügung und erläuterst daran, was du eigentlich erreichen willst. Ich finde es etwas schwierig, mir das nur theoretisch vorzustellen.

Viele Grüße
derHöpp

 

Hallo zusammen,
bin doch überrascht von den schnellen Reaktionen. Ich habe das Problem gelöst unnd zeige hier mal einen Auszug (bitte nicht totlachen, komme dafür nicht auf).
Zu diesem Zeitpunkt habe ich jetzt aus wirren Zeilen Text , keine .csv-Struktur, eine Tabelle durch Vorfilterung, u.a. mit Arrays erstellt (gebastelt, etliche Zeilen Code). Die 1. Spalte soll das Datum. die 2. die Uhrzeit enthalten, in Zeile 1 sind die Überschriften, die restlichen Spalten sind nicht von Belang.
Ich teile nun die vollständige 2. Spalte über die Uhrzeiten in Tage auf, die ich dann als "Range" für das Auffinden von Datums nutze und bei Auffinden dann ggf. zurückrechne. Kommentare habe ich gelöscht, Ihre (Eure) Kommentare sind mir hochwillkommen!
Leider ist hier meine Formatierung verloren gegangen! Sorry.

Code:

Option Explicit

Sub SchleifeUhrzeit(VarDatTSSplit, ErstTS, Tagezähler, ListenZeile, OberGrenze, TagesAnfang, TagesEnde, TagesSpanne, TagesAnfangFolgetag, TageZählerMax, ErstTSad)
Dim finden As Range
Dim suchen As Variant
On Error Resume Next
With ActiveSheet
For ListenZeile = TagesAnfang To OberGrenze
If Format(Cells(ListenZeile, 2).Value, "hh:mm:ss") > Format(Cells(ListenZeile + 1, 2).Value, "hh:mm:ss") Then
Range("A" & ListenZeile).Select '
Selection.Interior.ColorIndex = 3
Selection.Name = "EndeTag" & Tagezähler
TagesEnde = ListenZeile
TagesSpanne = TagesEnde - TagesAnfang
Range("A" & ListenZeile + 1).Select
Selection.Name = "AnfangTag" & Tagezähler + 1
Selection.Interior.ColorIndex = 4
'----------------------------------------------------------------------------------- Datum --------------------------------------
.Range("AnfangTag" & Tagezähler, "EndeTag" & Tagezähler).Select 'Tag beginnt mit 1, VarDatTSSplit Array beginnt mit 0 => delta 1
Set finden = .Range("AnfangTag" & Tagezähler, "EndeTag" & Tagezähler).Find("*") '.Range("AnfangTag" & Tagezähler, "EndeTag" & Tagezähler)
If finden = "" Then
'später
Else
Selection = finden.Value
End If
'----------------------------------------------------------------------------------- Datum --------------------------------------
If ListenZeile < OberGrenze Then
Tagezähler = Tagezähler + 1
Else
ListenZeile = OberGrenze
TageZählerMax = Tagezähler
End If
Else
If ListenZeile >= OberGrenze Then Exit For
End If
Next
If Range("A2") = "" Then
Tagezähler = 2
Do
Set finden = .Range("AnfangTag" & Tagezähler, "EndeTag" & Tagezähler).Find("*")
If finden = "" Then
Tagezähler = Tagezähler + 1
Else
finden(DateAdd("d", -(Tagezähler - 1), finden)).Value
suchen = DateAdd("d", -(Tagezähler - 1), finden)
.Range("AnfangTag" & (Tagezähler - 1), "EndeTag" & (Tagezähler - 1)) = suchen
End If
Loop Until finden > ""
End If
End With
End Sub