Hallo zusammen
leider werde ich mit dem Googel finden nicht richtig schlau, darum meine Frage hier...
Ich habe eine Text Datei welche ich nach einem Wert durchsuchen will ob diese Vorhanden ist.
Das ganze ist soweit auch I.O.
Nun möchte ich aber den Wert "Konfiguration" suchen und davor eine Linie einfügen (Text "Konfiguration" gibt es zu 1000%)
Also in etwa so:
search "Konfiguration"
Wenn GefundeneZeile = "Konfiguration" dann
Einfügen (GefundeneZeile -1) insert "Text1"
Zusätzlich müssen auch mehrere Zeilen, nach dem Suchbegriff, eingefügt werden... Also etwa so:
search "Konfiguration"
Wenn GefundeneZeile = "Konfiguration" dann
Einfügen (GefundeneZeile +1) insert "Text2"
Einfügen (GefundeneZeile +2) insert "Text3"
Einfügen (GefundeneZeile +3) insert "Text4"
Gleichzeitig möchte ich auch die Zeile ausgeben (lblGefundeneZeile.txt = GefundeneZeile) in welcher "Konfiguration" gefunden wurde damit ich dies auch klar angeben kann...
Kann mir das jemand etwas beschreiben damit auch ich als anfänger dies verstehe ? Ich möchte ja ein bisschen Lernen
Gruss
Harry
leider werde ich mit dem Googel finden nicht richtig schlau, darum meine Frage hier...
Ich habe eine Text Datei welche ich nach einem Wert durchsuchen will ob diese Vorhanden ist.
VB.NET-Quellcode
- Dim AnzahlGefundeneLinien = 0
- Dim dlg As New OpenFileDialog()
- Dim Linie As String = 0
- Dim Suchstring
- Dim result As DialogResult = New DialogResult()
- Dim OpenFileDialog1 As New OpenFileDialog()
- OpenFileDialog1.Filter = "Konfig|*.config" 'Textdatei mit Endung *.config suchen
- OpenFileDialog1.InitialDirectory = "C:\"
- OpenFileDialog1.FileName = ""
- result = OpenFileDialog1.ShowDialog()
- lblPfad.Text = OpenFileDialog1.FileName
- ' Gibt es <Settings> bereits, dann abbrechen
- Suchstring = "<Settings>"
- For Each Line As String In IO.File.ReadAllLines(lblPfad.Text)
- If Line.Contains(Suchstring) Then
- AnzahlGefundeneLinien = AnzahlGefundeneLinien + 1
- End If
- Linie += 1
- Next
- ' Meldung wenn es den Eintrag für die Eintrag schon gibt.
- If AnzahlGefundeneLinien <> 0 Then
- MsgBox("ACHTUNG: " & Suchstring & " " & AnzahlGefundeneLinien & " mal gefunden" & vbCrLf & vbCrLf & "Die Konfig kann nicht automatisch erstellt werden")
- End If
Das ganze ist soweit auch I.O.
Nun möchte ich aber den Wert "Konfiguration" suchen und davor eine Linie einfügen (Text "Konfiguration" gibt es zu 1000%)
Also in etwa so:
search "Konfiguration"
Wenn GefundeneZeile = "Konfiguration" dann
Einfügen (GefundeneZeile -1) insert "Text1"
Zusätzlich müssen auch mehrere Zeilen, nach dem Suchbegriff, eingefügt werden... Also etwa so:
search "Konfiguration"
Wenn GefundeneZeile = "Konfiguration" dann
Einfügen (GefundeneZeile +1) insert "Text2"
Einfügen (GefundeneZeile +2) insert "Text3"
Einfügen (GefundeneZeile +3) insert "Text4"
Gleichzeitig möchte ich auch die Zeile ausgeben (lblGefundeneZeile.txt = GefundeneZeile) in welcher "Konfiguration" gefunden wurde damit ich dies auch klar angeben kann...
Kann mir das jemand etwas beschreiben damit auch ich als anfänger dies verstehe ? Ich möchte ja ein bisschen Lernen
Gruss
Harry