Guten Abend hilfreiche Gemeinde!
ich möchte Texte nach verschiedenen Wörtern gleichzeitig durchsuchen und gefundene Wörter (wie auch immer) markieren. Kennt jemand ein derartiges Skript? Oder kann mir für den Start auf die Sprünge geholfen werden?
Text nach verschiedenen Wörtern durchsuchen
Moderator: jNizM
Re: Text nach verschiedenen Wörtern durchsuchen
wie man gefundene Wörter markiert weiss ich nicht
nur eine Idee : falls die gesuchten Wörter ( oder Wort) in der Text-Datei gefunden > die Zeile in neue Text-Datei speichern (z.B. mit Zeilennummern )
nur eine Idee : falls die gesuchten Wörter ( oder Wort) in der Text-Datei gefunden > die Zeile in neue Text-Datei speichern (z.B. mit Zeilennummern )
Re: Text nach verschiedenen Wörtern durchsuchen
Guckst du:
- die durchsuchbare Datei sollte ne textdatei sein...
- Groß/Kleinschreibung wird nicht beachtet
- es wird nach enem Begriff gesucht, kann man aber per StrSplit usw. erweitern...
Code: Select all
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
Gui, new
Gui, Add, Text, , Pfad+Dateiname
Gui, Add, Edit, w700 vpfad , test.txt
Gui, Add, Button, gDatenLaden, Laden
Gui, Add, Text, , Suchen nach (ab 3 Zeichen)
Gui, Add, Edit, w700 vSuchtext gSuchenStarten
HTML =
Gui, Add, ActiveX, w600 h450 vDisplay +0x800000 +0x4000000, HTMLFile
;Display.parentWindow.execScript("document.oncontextmenu = document.body.oncontextmenu = function() {return false;}") ;https://www.autohotkey.com/boards/viewtopic.php?t=59299
ComObjConnect(Display, "Doc_")
Display.body.innerHTML := Html
Gui, Add, Button, x+10 w140 gNeuladen, NEU Laden
Gui, show, , Search
return
GuiClose:
Exitapp
NeuLaden:
reload
return
DatenLaden:
Gui, Submit, nohide
FileRead, SuchDaten, %pfad%
return
SuchenStarten:
Gui, submit, nohide
if SuchDaten =
{
msgbox, nix Daten
return
}
laengeSuchText := StrLen(Suchtext)
if laengeSuchText > 3
{
Html = <font size="5" color="black"><b>%SuchDaten%</font></b><br><br>`n
StringReplace, VersTextHtml, Html, %Suchtext%, <span style=`"background-color: `#FFFF00`">%Suchtext%</span>, all
Html = <font size="5" color="black">%VersTextHtml%</font><br><br>`n
ComObjConnect(Display, "Doc_")
Display.body.innerHTML := Html
}
return
- Groß/Kleinschreibung wird nicht beachtet
- es wird nach enem Begriff gesucht, kann man aber per StrSplit usw. erweitern...
Re: Text nach verschiedenen Wörtern durchsuchen
Vielen Dank! Das überfordert meinen eher rudimentären Kenntnisse dann aber doch. Ich habe mir zunächst mal mit Word, Excel und einem Makro geholfen
Re: Text nach verschiedenen Wörtern durchsuchen
Falls es keine formatierten Texte sind, kannst du auch einen Editor verwenden. So markiert dir Notepad++ z.B. alle gleichen Wörter im Text, wenn du ein einzelnes Wort markiert hast.
Herzliche Grüße aus dem Rheinland
Lucky Joe
Lucky Joe
-
- Posts: 62
- Joined: 01 May 2022, 03:26
Re: Text nach verschiedenen Wörtern durchsuchen
wie könnte ich den Skript ändern, dass ich auch in Excel suchen könnte?
Who is online
Users browsing this forum: No registered users and 60 guests