Liebe Forengemeinde,

ich speichere Daten in einer .ini-Datei.

Code :

1 2 3 4 5 6

[einsatz_MaxMustermann2] name=Max Mustermann straße=Musterstraße 11 postleitzahl=13254 Stadt=Musterhausen ....

nun würde ich gerne die Sektionen zählen, die mit "einsatz_" anfangen. Ist das irgendwie möglich****?

Danke schonmal,
Eikee

Ja natürlich ist das möglich: Die einfachste Variante ist es den gesammten Inhalt der Datei in einen String zu laden, und diesen dann (z.B.: mit Regular Expressions) nach "[einsatz_" zu durchsuchen. Wenn du genauere Hilfe brauchst müsstest du bitte angeben in welcher Sprache du entwickelst.

Hallo Steiner_B,

das wäre echt cool, wenn Du mir da helfen könntest. Ich entwickle mit Visual Basic (V. 2010)

Danke schön,
Eikee

Wo genau liegt jetzt die Schwierigkeit? Beim Öffnen einer Datei? Oder beim Lesen einer Datei? Oder beim Zählen von Vorkommen in einem String? Ein paar mehr Infos wären hilfreich.

Ich würde vorschlagen du googlest mal nach "vb.net regex" oder was ähnlichem und meldest dich wieder hier wenn du ein konkretes Problem hast.

Ich würde eher vorschlagen, das Persistieren der Daten nicht über Ini-Dateien zu machen sondern über Xml.
Die Abfrage der Anzahl der Datensätze ist dann ehreblich einfacher und performanter (vor allem bei vielen Datensätzen)

Hallo und danke für die Tipps.

Ich habe mittlerweile nach regex gesucht und bin auch fündig geworden.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Imports System Imports System.Text.RegularExpressions   Public Module Test       Public Sub Main()         ' Define a regular expression for repeated words.         Dim rx As New Regex("\b(?<word>\w+)\s+(\k<word>)\b", _                RegexOptions.Compiled Or RegexOptions.IgnoreCase)           ' Define a test string.                 Dim text As String = "The the quick brown fox  fox jumped over the lazy dog dog."           ' Find matches.         Dim matches As MatchCollection = rx.Matches(text)           ' Report the number of matches found.         Console.WriteLine("{0} matches found in:", matches.Count)         Console.WriteLine("   {0}", text)           ' Report on each match.         For Each match As Match In matches             Dim groups As GroupCollection = match.Groups             Console.WriteLine("'{0}' repeated at positions {1} and {2}", _                               groups.Item("word").Value, _                               groups.Item(0).Index, _                               groups.Item(1).Index)         Next     End Sub End Module

Diesen Code fand ich im Internet unter http://msdn.microsoft.com/de-de/libr...tanceContinued

Nun habe ich diesen Code mal ein wenig abgeändert und nun sieht er so aus:

Code :

1 2 3 4 5

Dim rx As New Regex("[einsatz_", _                RegexOptions.Compiled Or RegexOptions.IgnoreCase)         Dim text As String = System.IO.File.ReadAllText(p_Protokoll)         Dim matches As MatchCollection = rx.Matches(text)         tb_Einsatznummer.Text = matches.Count

Mein Problem ist, dass er keinen Fehler ausgibt und auch keinen Wert

Was mache ich falsch****? Ich danke schonmal im Vorraus.4

Eikee

Hallo,

Zwei Fragen: Was war der Eingabetext bei dem du nichts gefunden hast, und zweitens: Findest du was wenn du die "[" am Anfang deines Suchstrings weglässt ([ ist ein reserviertes Zeichen bei regular Expressions).

Der Eingabetext steht in einer ini-Datei (p_Protokoll) ist der Pfad.....

Ja schon klar, aber kannst du bitte den Inhalt der Datei hier posten, damit wir mal sehen welche Daten dein Programm verarbeitet? Sonst ist es schwer zu sagen warum du nichts findest.

Ok... Dateiinhalt:

[Protokoll]
Wachbeginn=03.08.2011 09:15:25
Wachleiter=Eike Schlüter

[anw_btn1]
name=Eike Schlüter
eingetragen=09:15

[einsatz_MaxMustermann1]
name=Max
vorname=Mustermann
geboren=17.08.1989
strasse=teststraße 1
postleitzahl=123456
telefon=1452522

[einsatz_MaxMustermann1]
name=Max
vorname=Mustermann
geboren=17.08.1989
strasse=teststraße 1
postleitzahl=123456
telefon=1452522

Normalerweise sollte er, wenn ich das Formular dafür öffne, beim zweiten Einsatz automatisch ne zwei schreiben, und beim dritten ne 3 usw. Nun gebe ich das immer manuell ein. Desswegen auch zweimal die eins, weil ich mich vertippt habe.

Hallo,

Ist wie ich schon oben vermutet hatte, du musst in einem Regex-String die [ escapen, versuchs mal mit

Code :

1 2	Dim rx As New Regex("\[einsatz_", _                RegexOptions.Compiled Or RegexOptions.IgnoreCase)

Hey,

es hat funktioniert. Vielen Dank! Nochmal für alle, die ein änliches Prob haben der richtige Code:

Code :

1 2 3 4 5

Dim rx As New Regex("\[einsatz_", _                        RegexOptions.Compiled Or RegexOptions.IgnoreCase)         Dim text As String = System.IO.File.ReadAllText(p_Protokoll)         Dim matches As MatchCollection = rx.Matches(text)         tb_Einsatznummer.Text = matches.Count + 1

*p_Protokoll = Var für den Pfad zur Datei
*tb_Einsatznummer.Text = Textfeld wo die Zahl ausgegeben wird.
*matches.Count = Anzahl der Vorkommnisse