Wort abgleichn und Information widergeben

Brokolie

Hallo
Ich will eine Art Lexicon schreiben dazu fehlt mir nurnoch das der script das eingegebene Wort mit einer Liste abgleicht
und dann die Information Rausgibt.

Wer nett wenn einer schnellst möglich antwortet

MfG Brokolie

Conan10

Kommt drauf an was das für eine Liste ist.
Datei,Listview,ListBox,...

P.S.:
Mit Code können wir dir wahrscheinlich besser helfen

Brokolie

datei

**Oscar**

Wo ist Dein bisheriges Script?

Brokolie

ups sry

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\GUI\GUI'S\SceneLexicon.kxf
$SceneLexicon = GUICreate("Lexicon", 381, 104, 192, 124, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$wort = GUICtrlCreateInput("Lexicon by Brokolie", 16, 8, 145, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0x0080FF)
$Start = GUICtrlCreateButton("Start", 216, 8, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x646464)
$Close = GUICtrlCreateButton("Close", 216, 48, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x696969)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
$Icon1 = GUICtrlCreateIcon("C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\icons\Toolbox.ico", 0, 128, 32, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func _Check()
$read = GUICtrlRead($wort)
If $read = "UIN" Then
MsgBox(64,"Lösung","UIN ist eine ICQ-Nummer!")
Else
MsgBox(16,"Wort Unbekannt","Dieses Wort ist mir Unbekannt!")
EndIf
EndFunc
$read = GUICtrlRead($wort)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Close
Exit
Case $Start
_Check()

EndSwitch
WEnd

[/autoit]

Conan10

Eine Möglichkeit:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\GUI\GUI'S\SceneLexicon.kxf
$SceneLexicon = GUICreate("Lexicon", 381, 104, 192, 124, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$wort = GUICtrlCreateInput("Lexicon by Brokolie", 16, 8, 145, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0x0080FF)
$Start = GUICtrlCreateButton("Start", 216, 8, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x646464)
$Close = GUICtrlCreateButton("Close", 216, 48, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x696969)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
$Icon1 = GUICtrlCreateIcon("C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\icons\Toolbox.ico", 0, 128, 32, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Close
Exit
Case $Start
_Check()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Check()
$file=FileRead("datei.txt")
$lines=StringSplit($file,@CRLF)
For $i = 1 to $lines[0]
$Split=StringSplit($lines[$i],"|")
If $Split[1] = GUICtrlRead($wort) Then
MsgBox(0,"Ergebnis",$Split[2])
ExitLoop
Else
MsgBox(0,"","Ende")
ExitLoop
EndIf
Next
EndFunc

[/autoit]

Die Datei müsste dann so aussehen:
Suchwort|Erklärung
Suchwort2|Erklärung2
...

Brokolie

also schonmal danke...aber^^
wenn man was flasch eigitb kommt die ganze zeit "ende"
wenn man es wegdrückt kommt es neu

**Oscar**

Geht auch mit IniRead:

Spoiler anzeigen

[autoit]

#cs **************************************************************************

[/autoit] [autoit][/autoit] [autoit]

Wort abgleichn und Information widergeben

[/autoit] [autoit][/autoit] [autoit]

http://www.autoit.de/index.php?page…0262#post120262

[/autoit] [autoit][/autoit] [autoit]

#ce **************************************************************************

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\GUI\GUI'S\SceneLexicon.kxf
$SceneLexicon = GUICreate("Lexicon", 381, 104, 192, 124, BitOR($WS_POPUP, $WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$wort = GUICtrlCreateInput("Lexicon by Brokolie", 16, 8, 145, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0x0080FF)
$Start = GUICtrlCreateButton("Start", 216, 8, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x646464)
$Close = GUICtrlCreateButton("Close", 216, 48, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x696969)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
$Icon1 = GUICtrlCreateIcon("C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\icons\Toolbox.ico", 0, 128, 32, 64, 64, BitOR($SS_NOTIFY, $WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Close
Exit
Case $Start
_Check()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Check()
$read = GUICtrlRead($wort)
$answer = IniRead("Lexicon.ini", "Words", $read, "")
If $answer <> "" Then MsgBox(64, "Lösung", $answer)
EndFunc ;==>_Check

[/autoit]

Die Inidatei muss dann so aussehen:

Code

[Words]
uin="UIN ist eine ICQ-Nummer!"

Conan10

Habe den Code nochmal verbessert. Da fehlte nur der Befehl, die Schleife zu Beenden(Exitloop)

Oscar
Auch nicht schlecht

Brokolie

Danke klappt

Brokolie

ok is beides sehr buggi gibt es noch anderre möglichkeiten?

**Oscar**

Was meinst Du mit "buggi"?
Wenn Fehler auftreten, dann bitte den Fehlertext posten.

Brokolie

kommt kein fehler wenn ich zb. den begriff "acc" (2. stelle im gesammten verzechnes) abfrage kommt die antwort wenn ich dann aber das letze "rofl" nehme passiert garnichts

**Oscar**

Wie groß ist Deine Inidatei?
Es gab da AFAIR eine Größenbegrenzung. 64KB oder waren es 32KB?!

Brokolie

3kb daran kann es nicht liegen....
ps:nicht über die begriffe wundern/fragen stellen sie sind nicht von mir!

**Oscar**

Du darfst in der Ini nur eine Sektion haben:

Spoiler anzeigen

Code

[Words]
6er-UIN="6-Stellige ICQ Nr"
Acc="Account"
Ano Sim="Anonyme Simkarte zum verifizieren von möglichem Mist"
AV="Antivirensoftware-AntiVir"
Binder="Bindet 2 EXE´n zu einer zusammen"
BD="Bankdrop"
BKD="Briefkastendrop"
Carden="mit einer geklauten Kreditkarte Sachen kaufen"
CC="Creditcard="Kreditkarte"
Clean="Frei von Viren-Trojanern"
Coden="Programmieren"
DDoS="Distributed Denial of Service - Angriff auf einen Host, um ihn lahmzulegen"
Deface="Eine Seite fremder Menschen übernehmen"
Drop="Ein Haus-Briefkasten-Packstation-Ort von Entgegennahme von gecardeter Ware"
Faken="mit einer geklauten Kreditkarte + Proxy Accounts usw kaufen auf Kosten anderer"
FF="Firefox"
FTP="File Transfer Protocol
FTP-Server="Webspace zum hochladen einer Website oder Viclogs"
FUD="Full Undetected="Nicht erkennbar von AV´s"
FUD Crypter="Ein Tool, welches deine Serverexe gegen AV sicher macht"
HD="Housedrop oder High Definition"
HDD="Hard Drive Disk"
Infected="Mit Viren-Trojaner infiziert"
Invalid="ungültig (zb Invalid CC)"
Kiddy="Unerfahrener und unreifer Noob"
Leecher="Jemand, der sich auf Boards geristriert um Accounts zu holen"
MD5="Ein bestimmter Hash, der Passwörter, etc verschlüsseln kann"
Noob-Newbie="Ein unwissender Neuling"
NP="Non Public - Nicht öffentlich"
Offline PSC="Offline erworbene Paysafecard, schwer fakebar! (Kauf an Tankstelle-kl Läden)"
Online PSC="Online erworbene Paysafecard, ist fakebar! (Kauf bei Paysafecardcom)"
OS="Betriebssystem"
PI="Poison Ivy - Ein bestimmter Trojaner"
Phishing="Nachgemachte Seiten, die Passwörter anderer auf deinem FTP Server speichern"
PP="Paypal - Zahlungsmethode (http:--wwwpaypalde-de)"
PS="Packstation"
PSC="Paysafecard"
Public="Etwas veröffentlichtes"
Rat="Remote Administrator Tool - Trojaner"
RS="Rapidshare"
SE="Social Engineering"
Selftested="Selbst getestet"
Spread(en)="Das Verteilen von Stealern-Rats-etc"
Stealer="Ein Tool, welches eine Datei erstellt, die durch klicken Passwörter anderer auf deinem FTP_Server speichert"
Socks5="Sicherer Proxy, der deine Ip versteckt, um anonym im Netz zu sein
Trade="Ein Handel"
TuT="Tutorial - Anleitung"
UD="Undetected="von manchen AV´s erkennbar"
UIN="Unique Identification Number - ICQ Nummer"
UL="Uploadedto"
Unused="Unbenutzt"
Valid="Gültig"
VB="Visual Basic"
Vic="Opfer"
Viclogs="Vom Stealer erstellte Textdateien in denen die Passwörter des Vics enthalten sind"
VM(Ware)="Virtual Machine, ein virtueller Computer auf dem man infizierte Programme ohne Bedenken öffnen kann"
VPN="Virtuelles privates Netzwerk"
VTut="Videotutorial"
WME-WMZ="Online Geldwährung"
XXX="Porns"
lol="Lachen"
rofl="Auf dem Boden kugeln vor Lachen"
omg="oh mein gott"
wtf="What the Fuck"
ftw="For the Win"

Alles anzeigen

**Andy**

Oscar ,
wenn Dein Name im Zusammenhang mit Lexika/Wörterbüchern fällt, assoziiere ich das SOFORT mit dem Dictionary-Objekt ...also lass die Jungs nicht hängen und zeig mal wie man so etwas "schnell" löst

**Oscar**

Es stimmt zwar, dass ich das Dictionary-Objekt schon öfter benutzt habe, aber eigentlich verdanke ich das BugFix, denn der hat dazu ein schönes Tut geschrieben.
Und ich möchte Brokolie ja nicht einfach sein Programm schreiben. Er braucht doch noch etwas zum späteren optimieren.

Brokolie

Uii danke finds echt nice das man hier immer eine antwort bekommt

Klappt Super!

MfG Brokolie

Brokolie

@delet