Hallo alle zu sammen,
ich bin recht neu im Thema und hab schon einiges verstanden. Also Ausgangsdatei hab ich das Bookmanagment script benutzt.
Mein Projekt ist eine Fehlerdatenbank in den man Fehlernummer, Fehlerbeschreibung, Mögliche Ursache, Fehler Beheben schreiben bzw auslesen kann!
Das Klappt auch schon recht gut! So jetzt, wo ihr mir helfen könntet:
Ich möchte gern Bilder zu den Einträge hinterlegen die mit einem Button, zu öffnen sind (cool wäre mehrere Bilder aber eins pro Eintrag wäre schon Top)
Ich hab also versucht in die datenbank.csv einen eintrag mit dem pfad der jpg datei geschrieben nur ich bekomme es nicht hin die Datei zu öffen!
Probiert hab ich schon Fileopen, SplashImageOn, ShellExecute, FileOpenDialog aber nichts hat geklappt.
Vielleicht hab ich noch nicht den richtigen Befehl gefunden oder den script falsch geschrieben!
Bin mir auch nicht sicher ob es nur mit einer func klappt!
Hier eine vereinfachter Script
[autoit][/autoit][autoit][/autoit][autoit]#include <GUIConstantsEx.au3>
#include <File.au3>
Global $Dateiname = "datenbank.csv"
Global $inhalt
Global $Zeile
Global $datensatz
dim $input[4]
dim $label[4]
GUICreate("Fehlerabfrage", 400, 400, 250, 10)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]$label[0] = GUICtrlCreateLabel("", 1, 1, 1, 1)
$label[1] = GUICtrlCreateLabel("Eingabe 1:", 20, 20, 200, 25)
$label[2] = GUICtrlCreateLabel("Eingabe 2:", 20, 60, 200, 25)
$label[3] = GUICtrlCreateLabel("Bild Pfad:", 20, 100, 200, 25)
$input[0] = GUICtrlCreateInput("", 1, 1, 1, 1)
$input[1] = GUICtrlCreateInput("", 100, 20, 200, 25)
$input[2] = GUICtrlCreateInput("", 100, 60, 200, 25)
$input[3] = GUICtrlCreateInput("", 100, 100, 200, 25)
$Button1 = GUICtrlCreateButton("zurück", 100, 170, 80, 25)
$Button2 = GUICtrlCreateButton("weiter", 200, 170, 80, 25)
$Button3 = GUICtrlCreateButton("Bild", 100, 140, 80, 25)
$mlMenuDatei = GUICtrlCreateMenu("Datei")
$mlprogrammbeenden = GUICtrlCreateMenuItem("Beenden", $mlMenuDatei)
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Einlesen_Datei()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]$datensatz = 2
Anzeige_Datensatz_nr($datensatz)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
$datensatz = $datensatz - 1
Anzeige_Datensatz_nr($datensatz)
case $Button2
$datensatz = $datensatz + 1
Anzeige_Datensatz_nr($datensatz)
Case $Button3
Anzeige_Bild()
EndSwitch
WEnd
Func Anzeige_Bild()
SplashImageOn("Splash Fenster", $input[3], 250, 50)
Sleep(3000)
SplashOff()
EndFunc
func Einlesen_Datei()
$inhalt = FileRead($Dateiname)
if $inhalt = "" then $inhalt = neue_Datei()
$zeile = StringSplit($inhalt, @crlf, 3)
endfunc
func Anzeige_Datensatz_nr($nummer)
if UBound($zeile) <= 2 then return
if $nummer < 1 then $nummer = UBound($zeile) - 2
if $nummer > UBound($zeile) - 2 then $nummer = 1
$datensatz = $nummer
$feld = StringSplit($zeile[$nummer], "|", 3)
for $i = 0 to UBound($input) - 1
GUICtrlSetData($input[$i], $feld[$i])
Next
endfunc
func neue_Datei()
$Datensatz = ""
for $i = 0 to UBound($input) - 1
$Datensatz = $Datensatz & GUICtrlRead($label[$i]) & "|"
Next
FileWrite($Dateiname, $Datensatz & @crlf)
Einlesen_Datei()
EndFunc
Die datenbank.csv sieht so aus
Anzahl id|Eintrag 1|Eintrag 2|Bild Pfad
|Eintrag1|Eintrag1|"C:\bilder\1.JPG"
|Eintrag2|Eintrag2|"C:\bilder\2.JPG"
|Eintrag3|Eintrag3|"C:\bilder\3.JPG"
Also wenn ihr lust habt mir zu helfen dann her mit Euren lösungen.
Danke sagt Sascha
