hallo,
1.Frage:
ich wollte fragen wie man wildcats in inputs machen kann.
z.B. wenn man venio eingibt, das programm es auch als veni* erkennt, sodass man endungen wegmachen kann.
falls es jemandem aufgefallen ist, es geht um latein. naja mehr auch nicht,
2.Frage:
wie kann ich einen datein, die ich kopiere verstecken lassen.
Es geht darum, eine ini Datei zu verstecken, damit sie nicht immer stört.
und wie geht es bei normalen Datein.
MFg
#include
#include
#include
#Region ### START Koda GUI section ### Form=C:\Users\Robert\Downloads\Forms\Latein.kxf
$Latein = GUICreate("Latein", 315, 235, 321, 330)
$Tab1 = GUICtrlCreateTab(0, 0, 313, 233)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Lateinbuch auswählen")
$hPath=GUICtrlCreateInput("C:\Users\"&@UserName&"\Desktop\CursusA.txt", 16, 56, 281, 21)
$hSearch = GUICtrlCreateButton("Durchsuchen...", 192, 88, 105, 25, 0)
$Label1 = GUICtrlCreateLabel("Latein Buch auswählen:", 16, 40, 118, 17)
$TabSheet2 = GUICtrlCreateTabItem("Übersetzer")
$Frage = GUICtrlCreateInput("Frage", 24, 40, 265, 21)
$Button4 = GUICtrlCreateButton("QUAERE", 192, 72, 99, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 24, 128, 273, 89)
$Label2 = GUICtrlCreateLabel("Antwort:", 32, 112, 43, 17)
$TabSheet3 = GUICtrlCreateTabItem("Wörter hinzufügen")
$Label3 = GUICtrlCreateLabel("Hier können neue Wortvorschläge geposted werden,", 32, 40, 255, 17)
$Label4 = GUICtrlCreateLabel("falls sie noch nicht vorhanden sind. ", 32, 56, 173, 17)
$Button5 = GUICtrlCreateButton("Speichern", 216, 200, 91, 25, 0)
$Label5 = GUICtrlCreateLabel("Frage:", 32, 72, 34, 17)
$input15=GUICtrlCreateInput("", 32, 88, 169, 21)
$Label6 = GUICtrlCreateLabel("Antwort", 32, 112, 40, 17)
$Input17=GUICtrlCreateInput("", 32, 128, 169, 21)
$Edit2 = GUICtrlCreateEdit("", 216, 72, 81, 89,$ES_READONLY)
GUICtrlSetData(-1, "")
$Button3 = GUICtrlCreateButton("Hinzufügen", 216, 168, 89, 25, 0)
$Input20=GUICtrlCreateInput("", 32, 168, 169, 21)
$Label9 = GUICtrlCreateLabel("Buch:", 32, 152, 32, 17)
$TabSheet4 = GUICtrlCreateTabItem("Copyrights")
$Label7 = GUICtrlCreateLabel("© Jonas Pohlmann", 152, 192, 94, 17)
$Label8 = GUICtrlCreateLabel("joe.[email='obi@arcor.de'][/email] for more infos", 152, 208, 151, 17)
$Button6 = GUICtrlCreateButton("Hilfe", 24, 48, 89, 41, 0)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hSearch
$sPath = FileOpenDialog("Wählen sie das Lateinbuch aus!",@HomeDrive,"Windows Einstellungsdatei (*.ini)",3,"C:\Users\"&@UserName&"\Desktop\CursusA.txt")
If Not @error Then GUICtrlSetData($hPath, $sPath)
Case $Button4
$Uebersetzung = GUICtrlRead ($hpath)
$wasP=GUICtrlRead ($Frage)
$CursusA = IniRead($Uebersetzung, "Latein Übersetzer" , $wasP, "Nicht gefunden")
GUICtrlSetData ($Edit1 ,$CursusA )
Case $Button3
$Fragezu=GUICtrlRead ($input15)
$Antwortzu=GUICtrlRead ($Input17)
$Buch = GUICtrlRead($Input20)
If $Buch = "CursusA" Then
IniWrite ("C:\Users\"&@Username&"\Desktop\CursusA.txt","Latein Übersetzer",$Fragezu,$Antwortzu)
GUICtrlSetData ($Edit2,$Fragezu&"-"&$Antwortzu&@CRLF)
Else
MsgBox (0,"Latein","Ihr Buch wurde nicht gefunden"&@CRLF&"Verfügbare Bücher:"&@CRLF&"CursusA"&@CRLF&"Benutzen sie die Hilfe, um neue Bücher hinzuzufügen")
EndIf
EndSwitch
WEnd