Beiträge von Oscar

#include <GUIConstantsEx.au3>

Global $idMenuitem

Opt('GUIOnEventMode', 1)

Global $GUI = GUICreate("hallo", 360, 340)
Global $idCheckbox = GUICtrlCreateCheckbox("Test", 70, 75)
Global $idContext = GUICtrlCreateContextMenu()

GUISetState()
GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")
GUICtrlSetOnEvent($idCheckbox, "_checkbox_Status")

While 1
    Sleep(10)
WEnd

Func _checkbox_Status()
    If BitAND(GUICtrlRead($idCheckbox), $GUI_CHECKED) Then
        $idMenuitem = GUICtrlCreateMenuItem("angehakt", $idContext)
    Else
        GUICtrlDelete($idMenuitem)
    EndIf
EndFunc   ;==>_checkbox_Status

Func _beenden()
    Exit
EndFunc   ;==>_beenden

$sWord1 = FileRead(@ScriptDir & '\bgb.txt')
$iTimer = TimerInit()
$aWords = StringRegExp($sWord1, '(\S+)', 3)
ConsoleWrite('Timer StringRegExp: ' & TimerDiff($iTimer) & @CRLF)
$sWord2 = 'Richtlinie' ; das Suchwort
$sFound = ''
$iPos = 0
$iTimer = TimerInit()
For $word In $aWords
    If CompTstr($word, $sWord2) > 0.66 Then $sFound &= $iPos & ','
    $iPos += 1
Next
ConsoleWrite('Timer For-Loop: ' & TimerDiff($iTimer) & @CRLF)

Func min3($a, $b, $c)
    Local $dummy
    $dummy = $a
    If $b < $dummy Then $dummy = $b
    If $c < $dummy Then $dummy = $c
    Return $dummy
EndFunc   ;==>min3

Func LevenshteinDistance($s, $t)
    Local $n, $m
    $n = StringLen($s)
    $m = StringLen($t)
    If $s = $t Then Return 0
    If $s = "" Then Return $m
    If $t = "" Then Return $n
    Local $d[$n + 1][$m + 1], $i, $j, $cost
    For $i = 0 To $n
        $d[$i][0] = $i
    Next
    For $j = 0 To $m
        $d[0][$j] = $j
    Next
    For $i = 1 To $n
        For $j = 1 To $m
            If StringMid($s, $i, 1) = StringMid($t, $j, 1) Then
                $cost = 0
            Else
                $cost = 1
            EndIf
            $d[$i][$j] = min3($d[$i - 1][$j] + 1, $d[$i][$j - 1] + 1, $d[$i - 1][$j - 1] + $cost)
        Next
    Next
    Return $d[$n][$m]
EndFunc   ;==>LevenshteinDistance

Func CompTstr($s, $t)
    Local $n, $m
    $n = StringLen($s)
    $m = StringLen($t)
    If $n < $m Then $n = $m
    Return ($n - LevenshteinDistance($s, $t)) / $n
EndFunc   ;==>CompTstr

import strutils, std/editdistance

# Levenshtein-Distanz in Prozent berechnen
proc lsDistancePercent*(s, t: cstring): int {.stdcall,exportc,dynlib.} =
  let n = max(s.len, t.len)
  if n == 0 or s == t: return 100
  return int(100 / n * float(n - editDistanceAscii($s, $t)))

# Ein Objekt zum speichern der Woerter
type
  FuzzySearch* = ref object of RootObj
    sSearch*: seq[string]

let oFS = FuzzySearch() # Objekt erstellen

# Funktion, zum erstellen der Woerter aus dem uebergebenen String
proc load*(sData: cstring): int {.stdcall,exportc,dynlib.} =
  if sData == "": return 0
  oFS.sSearch = splitWhitespace($sData, -1)
  return 1

# Funktion, um die Anzahl der Woerter zurueckzugeben
proc getCount*(): int {.stdcall,exportc,dynlib.} =
  return oFS.sSearch.len

# Funktion, um ein bestimmtes Wort zurueckzugeben
proc getWord*(iIndex: int): cstring {.stdcall,exportc,dynlib.} =
  if iIndex < 0 or iIndex > oFS.sSearch.len - 1: return ""
  return oFS.sSearch[iIndex]

# Funktion, fuer die Levenshtein-Suche
# Parameter:
#  t = Suchbegriff
#  s = ab dieser Wort-Position suchen
#  p = Prozentwert, fuer die Suche
# Rueckgabe:
#  Ein String mit den Positionen der gefundenen Worte (durch Kommata getrennt),
#  oder ein Leerstring, wenn nicht gefunden, bzw. Fehler
proc search*(t: cstring, s, p: int): cstring {.stdcall,exportc,dynlib.} =
  if oFS.sSearch.len == 0: return ""
  if s > oFS.sSearch.len - 1 or s < 0: return ""
  var
    sReturn: seq[string]
    iPercent: int = p
  if iPercent > 99: iPercent = 99
  if iPercent < 0: iPercent = 0
  for iIndex in s + 1 .. oFS.sSearch.len - 1:
    if (lsDistancePercent(oFS.sSearch[iIndex], $t) >= iPercent): sReturn.add($iIndex)
  return join(sReturn, ",")

#include <Array.au3>

#AutoIt3Wrapper_UseX64=y
Global $hDll = DllOpen(@ScriptDir & '\FuzzySearch.dll')

Global $sWord1, $sWord2, $aRet, $iPos, $iPercent, $sFound

; Test 1 = Levenshtein-Distanz in Prozent
; =======================================
$sWord1 = 'Zuckerkuchen' ; diese beiden Woerter
$sWord2 = 'Butterkuchen' ; sollen verglichen werden
$aRet = DllCall($hDll, 'int', 'lsDistancePercent', 'str', $sWord1, 'str', $sWord2)
If @error Then Exit
ConsoleWrite('Übereinstimmung: ' & $aRet[0] & '%' & @CRLF) ; in $aRet[0] steht das Ergebnis (als Integerzahl, in Prozent)

; Test 2 = Die Fuzzy-Suche in einem grossen Textdokument
; ======================================================
$sWord1 = FileRead(@ScriptDir & '\bgb.txt') ; ein Textdokument laden (BGB, > 14.000 Zeilen, 1.5 MB)
$aRet = DllCall($hDll, 'int', 'load', 'str', $sWord1) ; und den Text an die DLL uebergeben
If @error Then Exit
ConsoleWrite('Load ok: ' & ($aRet[0] == 1) & @CRLF)

$aRet = DllCall($hDll, 'int', 'getCount') ; Anzahl der Woerter ermitteln
If @error Then Exit
ConsoleWrite('Count: ' & $aRet[0] & @CRLF)

$aRet = DllCall($hDll, 'str', 'getWord', 'int', 85271) ; ein bestimmtes Word aus dem Text holen
If @error Then Exit
ConsoleWrite('Word: ' & $aRet[0] & @CRLF)

$sWord2 = 'Richtlinie' ; das Suchwort
$iPos = 0 ; Startwert. Ab diesem *Wort* (*nicht* Buchstaben) wird gesucht.
$iPercent = 66 ; mit welcher Genauigkeit soll gesucht werden (in Prozent)

$iTimer = TimerInit()
; Die Rueckgabe besteht aus einem String mit den Positionen der gefundenen
; Woerter (durch Kommata getrennt) oder ein Leerstring, wenn nichts gefunden
; wurde bzw. ein Fehler aufgetreten ist.
$aRet = DllCall($hDll, 'str', 'search', 'str', $sWord2, 'int', $iPos, 'int', $iPercent)
If @error Then Exit ConsoleWrite('Error: ' & @error & @CRLF)
ConsoleWrite('Timer: ' & TimerDiff($iTimer) & @CRLF)

ConsoleWrite('Found on Position: ' & $aRet[0] & @CRLF)
DllClose($hDll)
Global $aFound = StringSplit($aRet[0], ',', 2)
_ArrayDisplay($aFound)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_x64=GetWindowspos.exe
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>

ConsoleWrite(@CRLF & "Please be patient until preparations are done...!" & @CRLF & @CRLF)

$sName = InputBox("Eingabe Fenstername", "Bitte gib den Fenstername ein:")

Local $aPos = WinGetPos($sName)
_ArrayDisplay($aPos, $sName)

0000   b8 27 eb 23 28 83 d8 cb 8a ba 77 44 08 00 45 00   .'.#(.....wD..E.
0010   00 2b 36 a6 00 00 80 11 cb 8d c0 a8 05 06 c0 a8   .+6.............
0020   b2 37 2b 48 2b 48 00 17 24 1a 70 07 01 06 1e 14   .7+H+H..$.p.....
0030   00 00 ff 00 03 03 54 61 67                        ......Tag

0000   b8 27 eb 23 28 83 d8 cb 8a ba 77 44 08 00 45 00   .'.#(.....wD..E.
0010   00 2b 36 a7 00 00 80 11 cb 8c c0 a8 05 06 c0 a8   .+6.............
0020   b2 37 2b 48 2b 48 00 17 24 06 70 07 01 06 1e 28   .7+H+H..$.p....(
0030   00 00 ff 00 03 03 54 61 67                        ......Tag

0000   b8 27 eb 23 28 83 d8 cb 8a ba 77 44 08 00 45 00   .'.#(.....wD..E.
0010   00 2b 36 a8 00 00 80 11 cb 8b c0 a8 05 06 c0 a8   .+6.............
0020   b2 37 2b 48 2b 48 00 17 23 2e 70 07 01 06 1f 00   .7+H+H..#.p.....
0030   00 00 ff 00 03 03 54 61 67                        ......Tag

import wNim, winim

var
  dc = MemoryDC()
  bmp = Bitmap(16, 16)

dc.selectObject(bmp)
dc.clear(Brush(wBlueBrush)) # <- Standard-Brush
let blueIcon = Icon(bmp)
dc.clear(Brush(color=0x000000FF)) # <- im BGR-Format
let redIcon = Icon(bmp)
dc.clear(Brush(wWhiteBrush)) # <- Standard-Brush
dc.drawCheckMark(0, 0, 15, 15) # Haken zeichnen (x, y, w, h)
let checkIcon = Icon(bmp)

let
  app = App()
  frame = Frame(title="Test ImageList",size=(600,300))
  panel = frame.Panel()
  list = panel.ListCtrl(size=(560,240), pos=(10,10), style=wLcReport or wBorderDouble or wLcSingleSel)
list.setExtendedStyle(LVS_EX_GRIDLINES) # <- Extended Style
var il = ImageList(size=(16,16), mask=false, initialCount=0)
il.add(blueIcon)
il.add(redIcon)
il.add(checkIcon)
list.setImageList(il)
list.appendColumn(text="Column 0", width=150)
list.setColumnFormat(0, wListFormatLeft)
list.appendColumn(text="Column 1", width=110, format=wListFormatRight)
list.appendColumn(text="Column 2", width=110, format=wListFormatRight)
list.appendColumn(text="Column 3", width=wListAutosizeUseHeader)
var imgIndex: int
for i in 0..10:
  imgIndex = 1
  if (i mod 2) == 0: imgIndex = 0
  if (i mod 3) == 0: imgIndex = 2
  list.appendItem([$i&"-0", $i&"-1", $i&"-2", $i&"-3"], imgIndex)

frame.wIdExit do (): 
  frame.delete()

frame.center()
frame.show()

app.mainLoop()

import wNim

var
  dc = MemoryDC()
  bmp = Bitmap(16, 16)

dc.selectObject(bmp)
dc.clear(Brush(wBlueBrush)) # <- Standard-Brush
let blueIcon = Icon(bmp)
dc.clear(Brush(color=0x000000FF)) # <- im BGR-Format
let redIcon = Icon(bmp)
dc.clear(Brush(wWhiteBrush)) # <- Standard-Brush
dc.drawCheckMark(0, 0, 15, 15) # Haken zeichnen (x, y, w, h)
let checkIcon = Icon(bmp)

let
  app = App()
  frame = Frame(title="Test ImageList",size=(600,300))
  panel = frame.Panel()
  list = panel.ListCtrl(size=(560,240), pos=(10,10), style=wLcReport or wBorderDouble or wLcSingleSel)
var il = ImageList(size=(16,16), mask=false, initialCount=0)
il.add(blueIcon)
il.add(redIcon)
il.add(checkIcon)
list.setImageList(il)
list.appendColumn(text="Column 0", width=150)
list.setColumnFormat(0, wListFormatLeft)
list.appendColumn(text="Column 1", width=110, format=wListFormatRight)
list.appendColumn(text="Column 2", width=110, format=wListFormatRight)
list.appendColumn(text="Column 3", width=wListAutosizeUseHeader)

var imgIndex: int
for i in 0..10:
  imgIndex = 1
  if (i mod 2) == 0: imgIndex = 0
  if (i mod 3) == 0: imgIndex = 2
  list.appendItem([$i&"-0", $i&"-1", $i&"-2", $i&"-3"], imgIndex)

frame.wIdExit do (): 
  frame.delete()

frame.center()
frame.show()

app.mainLoop()