Post by Ahk_fan » 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...
Guckst du:
[code]#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[/code]
- 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...