Text nach verschiedenen Wörtern durchsuchen

Stelle Fragen zur Programmierung mit Autohotkey

Moderator: jNizM

vltier
Posts: 58
Joined: 03 Oct 2016, 10:18

Text nach verschiedenen Wörtern durchsuchen

03 Sep 2019, 13:42

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?
garry
Posts: 3763
Joined: 22 Dec 2013, 12:50

Re: Text nach verschiedenen Wörtern durchsuchen

04 Sep 2019, 02:11

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 )
Ahk_fan
Posts: 237
Joined: 31 Aug 2018, 14:34
Contact:

Re: Text nach verschiedenen Wörtern durchsuchen

04 Sep 2019, 04:07

Guckst du:

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
- 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...
regards,
AHK_fan :)
https://hr-anwendungen.de
vltier
Posts: 58
Joined: 03 Oct 2016, 10:18

Re: Text nach verschiedenen Wörtern durchsuchen

09 Sep 2019, 09:38

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 :-)
User avatar
LuckyJoe
Posts: 341
Joined: 02 Oct 2013, 09:52

Re: Text nach verschiedenen Wörtern durchsuchen

10 Sep 2019, 10:28

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
nik_the_giant
Posts: 62
Joined: 01 May 2022, 03:26

Re: Text nach verschiedenen Wörtern durchsuchen

06 May 2022, 14:11

wie könnte ich den Skript ändern, dass ich auch in Excel suchen könnte?

Return to “Ich brauche Hilfe”

Who is online

Users browsing this forum: No registered users and 60 guests