13
TXT von unten nach oben durchsuchen mit vbscript
Ich würde gerne eine TXT von unten durchsuchen
Hallo,
ich würde gerne eine TXT von unten durchsuchen und auch nur das letzte Ergebnis anzeigen wollen.
Wie man eine TXT durchsuchen kann weiß ich, aber wie geht das von unten nach oben? Hat da jemand eine Idee?
Beispiel:
search string= hallo (dann soll er mir nicht das erste hallo ausgeben sondern das letzte.
Gruß,
m0nstar
ich würde gerne eine TXT von unten durchsuchen und auch nur das letzte Ergebnis anzeigen wollen.
Wie man eine TXT durchsuchen kann weiß ich, aber wie geht das von unten nach oben? Hat da jemand eine Idee?
Beispiel:
hallo
hallo2
hallo3
hallo2
hallo
hallo4Gruß,
m0nstar
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 146229
Url: https://administrator.de/contentid/146229
Printed on: April 24, 2024 at 02:04 o'clock
13 Comments
Latest comment
Hallo m0nstar,
falls es sich nicht um sehr große Dateien handelt, man das rückwärts Suchen keinen Sinn; so wie dein Beispiel auch keinen macht.
Ein Infomationsgewinn könnte ja hier höchstens darin bestehen, zu wissen in welcher Zeile (von Hinten) der Suchbegriff steht.
Ansonsten von vorne durchlaufen und nur den letzten gefundenen merken.
Gruß
LotPings
falls es sich nicht um sehr große Dateien handelt, man das rückwärts Suchen keinen Sinn; so wie dein Beispiel auch keinen macht.
Ein Infomationsgewinn könnte ja hier höchstens darin bestehen, zu wissen in welcher Zeile (von Hinten) der Suchbegriff steht.
Ansonsten von vorne durchlaufen und nur den letzten gefundenen merken.
Gruß
LotPings
Hallo m0nstar!
Sieh Dir "
Grüße
bastla
Sieh Dir "
InStrRev()" an ...Grüße
bastla
Hallo ihr beiden,
es handelt sich um große Dateien (20-30 mb groß), wo es öfters mal vorkommt das der eintrag doppelt vorkommt und dazu will ich nur das letzte ergebnis auslesen lassen...oben war ja nur ein Besipiel @ LotPings^^
@ Bastla: ich schau mal was ich unter dem begriff finden kann danke
Gruß,
m0nstar
es handelt sich um große Dateien (20-30 mb groß), wo es öfters mal vorkommt das der eintrag doppelt vorkommt und dazu will ich nur das letzte ergebnis auslesen lassen...oben war ja nur ein Besipiel @ LotPings^^
@ Bastla: ich schau mal was ich unter dem begriff finden kann danke
Gruß,
m0nstar
Hallo m0nstar,
wir hatten doch bei unserem letzten Beitrag
schon mal die Geschichte mit den Arrays und dem Split gehabt.
So ähnlich kannst du auch direkt auf die letzte Zeile einer Datei zugreifen.
(VBS)
1) Datei komplett öffnen (ReadAll) und die Daten splitten mit "vbcrlf"
2) dann steht im höchsten Wert des Arrays (Ubound) die letzte Zeile drinnen.
3) auf diese kannst du dann direkt zugreifen.
Kurzes Beipiel:
Gruss Tsuki
wir hatten doch bei unserem letzten Beitrag
schon mal die Geschichte mit den Arrays und dem Split gehabt.
So ähnlich kannst du auch direkt auf die letzte Zeile einer Datei zugreifen.
(VBS)
1) Datei komplett öffnen (ReadAll) und die Daten splitten mit "vbcrlf"
2) dann steht im höchsten Wert des Arrays (Ubound) die letzte Zeile drinnen.
3) auf diese kannst du dann direkt zugreifen.
Kurzes Beipiel:
MeineIniDatei = "C:\TestDatei.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Meinedaten = FSO.OpenTextFile(MeineIniDatei, 1).ReadAll
AlleZeilen = Split(Meinedaten, vbCrLF)
Msgbox AlleZeilen(Ubound(AlleZeilen))Gruss Tsuki
Hallo Tsuki,
danke dir für dein klasse Beispiel...so hab selbst ich es verstanden^^.
Ich weiß das wir drüber geredet haben aber ich war mir unsicher ob man es hier wieder anwenden kann. Vorallem das mit dem Split war mir vorher so garnicht in den Sinn gekommen.
Danke dir.
Gruß,
m0nstar
danke dir für dein klasse Beispiel...so hab selbst ich es verstanden^^.
Ich weiß das wir drüber geredet haben aber ich war mir unsicher ob man es hier wieder anwenden kann. Vorallem das mit dem Split war mir vorher so garnicht in den Sinn gekommen.
Danke dir.
Gruß,
m0nstar
Hallo m0nstar!
Nur der Vollständigkeit halber:
Einschränkung dieser Variante: Falls der Suchbegriff nicht am Anfang der Zeile steht, wird nur der Teil der Zeile ab dem letzten Auftreten des Suchbegriffes ausgegeben.
Alternative (entspricht im Prinzip LotPings Vorschlag, wobei allerdings nur "passende" Zeilen durchlaufen werden müssen):
Grüße
bastla
Nur der Vollständigkeit halber:
Datei = "D:\Dein Text.txt"
Suche = "hallo"
Set fso = CreateObject("Scripting.FileSystemObject")
T = fso.OpenTextFile(Datei).ReadAll
'Zeichenposition des Suchtextes feststellen (bzw 0, wenn nicht gefunden)
P = InStrRev(T, Suche)
'gesamten Dateiinhalt an der gesuchten Position "schneiden",
'anhand der Zeilenschaltungen zerlegen und
' den ersten entstehenden Teilstring ausgeben
If P > 0 Then WScript.Echo Split(Mid(T, P), vbCrLf)(0)Alternative (entspricht im Prinzip LotPings Vorschlag, wobei allerdings nur "passende" Zeilen durchlaufen werden müssen):
Datei = "D:\Dein Text.txt"
Suche = "hallo"
Set fso = CreateObject("Scripting.FileSystemObject")
T = fso.OpenTextFile(Datei).ReadAll
Set rE = New RegExp
'Suchmuster festlegen, bestehend aus:
' Dateianfang "^" oder "|" Zeilenende der vorigen Zeile "\r\n"
' keinem oder mehreren beliebigen Zeichen ".*"
' dem eigentlichen Suchbegriff
' keinem oder mehreren weiteren beliebigen Zeichen ".*" und
' Zeilenende "\r\n" oder "|" Dateiende "$"
rE.Pattern = "(^|\r\n).*" & Suche & ".*(\r\n|$)"
rE.IgnoreCase = True
rE.Global = True
'Auflistung aller Fundstellen erzeugen, ...
Set Matches = rE.Execute(T)
'... durchlaufen, ...
For Each Match In Matches
'... sich jeweils die bisher letzte Fundstelle "merken" ...
Last = Match.Value
Next
'... und die allerletzte Fundstelle ausgeben
WScript.Echo Lastbastla
Hallo bastla,
ui danke...das natürlich fein um mal gute alternativen zu sehen bzw. wege wie es noch geht.
Danke, werd mich da gleich mal durchfressen.
Gruß,
m0nstar
ui danke...das natürlich fein um mal gute alternativen zu sehen bzw. wege wie es noch geht.
Danke, werd mich da gleich mal durchfressen.
Gruß,
m0nstar
Hallo,
habe da doch nochmal eine Frage, wenn ich nach 2 Sachen suche:
Das klappt soweit super, Problem ist nur ich will in der msgbox aber nicht den kompletten Teil ausgeben, sondern nur diesen Bereich:
Problem ist noch, dass vor dem Suchbegriff 3 Zeichen sind die ich mit ausgeben will.
Und nach Pending downloads suche ich.
Ich hoffe man versteht was ich will
Gruß,
m0nstar
habe da doch nochmal eine Frage, wenn ich nach 2 Sachen suche:
rE.Pattern = "(^|\r\n).*" & SearchPart2 & ".*" & SearchPart1 & ".*(\r\n|$)" Das klappt soweit super, Problem ist nur ich will in der msgbox aber nicht den kompletten Teil ausgeben, sondern nur diesen Bereich:
"(^|\r\n).*" & SearchPart1 & ".*(\r\n|$)" Problem ist noch, dass vor dem Suchbegriff 3 Zeichen sind die ich mit ausgeben will.
15 = Pending downloadsUnd nach Pending downloads suche ich.
Ich hoffe man versteht was ich will
Gruß,
m0nstar
Hallo m0nstar!
Wenn ich Dein Beispiel unmittelbar umsetzen müsste, sähe das so aus:
Hier wird nach einer oder mehreren Ziffern, einem "=" und dem Suchbegriff lt Variable "Search" gesucht (ev Leerzeichen - Du schreibst zwar von 3 Zeichen, inkl Leerzeichen wären es allerdings 5 - musst Du noch an passender Stelle ergänzen) ...
Soferne nach mehreren Kriterien gesucht, aber nur ein Teil des Suchergebnisses reoturniert werden soll, können "
Zusätzlich müsste aus
dann
werden. Da die Kennzeichnung der "
Grüße
bastla
Wenn ich Dein Beispiel unmittelbar umsetzen müsste, sähe das so aus:
Search = "Pending downloads"
rE.Pattern = "\d+=" & Search
Soferne nach mehreren Kriterien gesucht, aber nur ein Teil des Suchergebnisses reoturniert werden soll, können "
SubMatches" verwendet werden - soferne ich Dich richtig interpretiere, müsste das mit dem ursprünglichen "Pattern" so zu lösen sein:rE.Pattern = "(^|\r\n).*" & SearchPart2 & ".*" & "(\d+=" & SearchPart1 & ")"
Last = Match.Value
Last = Match.SubMatches(1)SubMatches" durch ein Paar runder Klammern erfolgt, liefert "Match.SubMatches(0)" wegen des Teil-Patterns "(^|\r\n)" den "Textanfang" bzw das vorhergehende "Zeilenende" - daher ist der Index "1" (= zweites Klammernpaar) zu verwenden.Grüße
bastla
Hallo bastla,
danke mit deinen Erklärungen hilft mir das extrem weiter VBScript besser zu lernen. Vielen vielen Dank, großes Lob an dieser Stelle, auch das du mir immer hilfst wenn ich dich mal nerve
Gruß,
m0nstar
danke mit deinen Erklärungen hilft mir das extrem weiter VBScript besser zu lernen. Vielen vielen Dank, großes Lob an dieser Stelle, auch das du mir immer hilfst wenn ich dich mal nerve
Gruß,
m0nstar
Hallo m0nstar!
Wie - Du nervst mich? War mir bisher gar nicht aufgefallen ...
Freut mich jedenfalls, wenn meine Vorschläge helfen.
Grüße
bastka
Wie - Du nervst mich? War mir bisher gar nicht aufgefallen ...
Freut mich jedenfalls, wenn meine Vorschläge helfen.
Grüße
bastka
Hallo,
eine Frage hab ich doch noch
wie stell ich es den an, wenn ich eine Zeile suche und paar Zeilen drunter noch etwas suchen will?
test123
test3
test76
test123
test876
test345
test34
Jetzt will ich nach dem letzten test123 suchen und test34...es soll abern icht nur das letzte test34 sein sondern das was nach test123 kommt ausgegeben werden.
Jemand ne Idee?
Gruß,
m0nstar
eine Frage hab ich doch noch
wie stell ich es den an, wenn ich eine Zeile suche und paar Zeilen drunter noch etwas suchen will?
test123
test3
test76
test123
test876
test345
test34
Jetzt will ich nach dem letzten test123 suchen und test34...es soll abern icht nur das letzte test34 sein sondern das was nach test123 kommt ausgegeben werden.
Jemand ne Idee?
Gruß,
m0nstar
Hallo m0nstar!
Ich bin mir nicht so ganz sicher, wie das gemeint ist und was gefunden werden soll - aber schematisch könnte das so aussehen:
Der Variablen R wird so der letzte Teil des gesamten Dateiinhaltes T (ab der Fundstelle des letzten "test123") zugewiesen - für Dein Beispiel oben wäre das dann:
Grüße
bastla
Ich bin mir nicht so ganz sicher, wie das gemeint ist und was gefunden werden soll - aber schematisch könnte das so aussehen:
P = InStrRev(T, "test123")
If P > 0 Then
R = Mid(T, P)
'jetzt in R suchen und Ergebnis(se) weiter verarbeiten
End Iftest123
test876
test345
test34
bastla
