Musashi : Vielen Dank, genau das was ich gesucht habe!
Beiträge von HGF
-
-
Hallo BugFix,
vielen Dank für deine Antwort, aber benötige leider ein bisschen mehr hilfe bei diesen beiden Punkten.
- in Schleife durch das Array gehen
- diesen Wert zu einer Summenvariable aufaddieren
Code
Alles anzeigen#include <MsgBoxConstants.au3> Example() Func Example() ; Liest die aktuelle Skriptdatei in eine Array ein. Dabei wird der Dateipfad verwendet. Local $aArray = FileReadToArray(@ScriptDir & "\Betrag.txt") Local $iLineCount = @extended If @error Then MsgBox($MB_SYSTEMMODAL, "", "Beim lesen der Datei ist ein Fehler aufgetreten. @error: " & @error) ; Beim lesen der Datei ist ein Fehler aufgetreten. Else For $i = 0 To $iLineCount - 1 ; Durchläuft das Array. UBound($aArray) kann auch verwendet werden ;~ MsgBox($MB_SYSTEMMODAL, "", $aArray[$i]) ; Zeigt den Inhalt des Arrays. $Summe = StringReplace ($aArray[$i], ",", ".") MsgBox($MB_SYSTEMMODAL, "", $Summe) ; Zeigt den Inhalt des Arrays. Next EndIf EndFunc ;==>Example
Edit: HGF BItte Spoiler und oder Quelltextbutton nutzen. Danke.
-
Hallo zusammen,
ich habe eine Textdatei mit über 5000 Zeilen.
In jeder Zeile steht ein Betrag.
10,99
324,97
45,20
2306,01 usw.
Ich möchte diese Textdatei öffnen und alle Beträge zusammen addieren.
Könnt Ihr bitte helfen?
MfG
HGF
-
-
Hallo Musashi,
in meiner aktuellen Datei stehen diese Beträge.
11.15
35.17
54.19
77.15
919.17
1121.19
1323.21
1543.23
1745.25
1947.29
2115.31
2317.33
2519.21
2721.23
2923.29
3125.31
3329.33
3531.29
3733.31
3934.33
41.99
1056.20
354.99
2056.60
3.76
-
Hallo zusammen,
ich möchte gerne aus einer Text Datei die Beträge auslesen und sortieren.
Inhalt meiner Text Datei ist jetzt so:
1056.20
354.99
2056.60
3.76
Sollte dann so aussehen:
3.76
354.99
1056.20
2056.60
Täglich kommen neue Beträge hinzu und die Liste wird länger...
Der Betrag 2056.60 entspricht 2056,60 Euro.
Kann mir bitte einer von Euch helfen?
Vielen Dank.
Gruß
HGF
-
-
Hallo zusammen,
ich möchte gerne eine Text Datei auslesen, nach Datum sortieren und wieder speichern.
Inhalt meiner Text Datei ist jetzt so:
12.12.2021: Auto04.10.2001: Bus
12.12.2021: Pferd
29.05.2005: HausSollte dann so aussehen:
04.10.2001: Bus
29.05.2005: Haus
12.12.2021: Auto
12.12.2021: Pferd
Kann mir bitte einer von Euch helfen?
Vielen Dank.
GrußHGF
-
Ok.
War halt nur so' ne Idee.Vielen Dank an alle.
-
Hallo zusammen,
aktuell wird die Liste.txt so gespeichert:
[e]
123=|123|e|eed|123|eed|eed|e|eed|123|eed
[qwer]
123=|123|qwer|qwer2|123|qwer2|qwer2|qwer|qwer2|123|qwer2
[lang]
123=|123|lang|lang3|123|lang3|lang3|lang|lang3|123|lang3Ich möchte gerne das die Liste.txt so gespeichert wird:
[e] 123=|123|e|eed|123|eed|eed|e|eed|123|eed
[qwer] 123=|123|qwer|qwer2|123|qwer2|qwer2|qwer|qwer2|123|qwer2
[lang] 123=|123|lang|lang3|123|lang3|lang3|lang|lang3|123|lang3Wenn eine neue Section / Key eingegeben wird, soll untereinander gespeichert werden...
Wenn die selbe Section / Key eingegeben wird, soll die alte Zeile überschrieben werden...Könnt Ihr mir bitte Helfen ?
Spoiler anzeigen
C
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=#Region ### START Koda GUI section ### Form= GUICreate("Testprogramm", 940, 650) $Nummer = GUICtrlCreateInput("", 130, 40, 300, 24) $Nummer1 = GUICtrlCreateInput("", 130, 70, 300, 24) $Nummer2 = GUICtrlCreateInput("", 130, 110, 300, 24) $Button = GUICtrlCreateButton("Eingaben speichern und anzeigen", 710, 580, 200, 25) $liste = GUICtrlCreateEdit("", 18, 322, 900, 200) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button $NummerA = GUICtrlRead($Nummer) $Nummer1A = GUICtrlRead($Nummer1) $Nummer2A = GUICtrlRead($Nummer2) $ListeTxt = "liste.txt" $path = $ListeTxt $file = FileOpen($ListeTxt, 1) GUICtrlSetData($liste, "|"&$NummerA&"|"&$Nummer1A&"|"&$Nummer2A&"|"&$NummerA&"|"&$Nummer2A&"|"&$Nummer2A&"|"&$Nummer1A&"|"&$Nummer2A&"|"&$NummerA&"|"&$Nummer2A) $liste2 = GUICtrlRead($liste) $nkey = GUICtrlRead($Nummer) $nsection = GUICtrlRead($Nummer1) IniWrite($ListeTxt,$nsection,$nkey,$liste2) EndSwitch WEnd
Vielen Dank!
Gruß
HGF -
Spoiler anzeigen
C
Alles anzeigen#include <GUIConstants.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <WindowsConstants.au3> #include <Date.au3> #include <EditConstants.au3> #include <ButtonConstants.au3> #include <file.au3> Hotkeyset("{ENTER}", "_Suchen") Local $INI2 = @ScriptDir & "\Nr.ini" Local $lastNum = IniRead($INI2, "Numbers", "last", 9999) #Region ### START Koda GUI section ### Form= Dim $beide Dim $lastNum ;_______________________________________________________________________________________________________________Gui 1 ab hier $MainGUI = GUICreate("Kunden", 1631, 749, 192, 164) $programm = GUICtrlCreateMenu("Programm") $speichern = GUICtrlCreateMenuItem("Speichern", $programm) $beenden = GUICtrlCreateMenuItem("Beenden", $programm) $mverwalten = GUICtrlCreateMenu("Kunden Verwaltung") $msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten) $manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten) $Group1 = GUICtrlCreateGroup(" Kunde suchen ", 10, 10, 280, 120) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlCreateLabel("Bitte Kundennummer Scannen:", 27, 40, 200, 30) GUICtrlSetFont(-1, 11, 500, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $KundenDaten = GUICtrlCreateInput("", 25, 60, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $Suchen = GUICtrlCreateButton( "Kunde Suchen", 25, 90, 250, 25, BitOR($BS_DEFPUSHBUTTON, $BST_UNCHECKED)) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Group2 = GUICtrlCreateGroup(" Neuen Einkauf hinzufügün ", 415, 10, 535, 120) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlCreateLabel("Summe:", 685, 40, 60, 30) GUICtrlSetFont(-1, 11, 500, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $summehinzu = GUICtrlCreateInput("", 685, 60, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Freitext:", 430, 40, 60, 30) GUICtrlSetFont(-1, 11, 500, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $freitext = GUICtrlCreateInput("", 430, 60, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $hinzubutton = GUICtrlCreateButton("Hizufügen", 430, 90, 505, 25) $Group3 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $mverwalten2 = GUICtrlCreateButton("Leer", 1450, 50, 160, 28, 0) $mverwalten3 = GUICtrlCreateButton("Kunden-Daten Übersicht", 1280, 50, 160, 28, 0) $mverwalten4 = GUICtrlCreateButton("Neuen Kunden anlegen", 1110, 50, 160, 28, 0) $OutputGesamtpreis = GUICtrlCreateInput("", 222430, 340, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") ;_______________________________________________________________________________________________________________Gui 1 bis hier ;_______________________________________________________________________________________________________________Gui 2 ab hier $SubGUI2 = GUICreate("Leer", 1631, 749, 192, 164) $programm = GUICtrlCreateMenu("Programm") $speichern = GUICtrlCreateMenuItem("Speichern", $programm) $beenden = GUICtrlCreateMenuItem("Beenden", $programm) $mverwalten = GUICtrlCreateMenu("Kunden Verwaltung") $msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten) $manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten) $Group21 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $bBack2 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0) ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Von hier ++++++ $ButtonDrucken = GUICtrlCreateButton("Drucken!", 50, 28, 483, 49) ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Bis hier ++++++ GUISetState(@SW_SHOW, $MainGUI) Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]] GUISetAccelerators($Form1_AccelTable) ;_______________________________________________________________________________________________________________Gui 2 bis hier ;_______________________________________________________________________________________________________________Gui 3 ab hier $SubGUI3 = GUICreate("Kunden-Daten Übersicht", 1631, 749, 192, 164) $programm = GUICtrlCreateMenu("Programm") $speichern = GUICtrlCreateMenuItem("Speichern", $programm) $beenden = GUICtrlCreateMenuItem("Beenden", $programm) $mverwalten = GUICtrlCreateMenu("Kunden Verwaltung") $msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten) $manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten) $Listview_User = GUICtrlCreateListView("Datum|Freitext|Letzter Einkauf (Betrag)|Gesamt Einkauf (Betrag)", 10, 135, 1610, 580, $LVS_REPORT) ;~ GUICtrlRegisterListViewSort(-1, "LVSort") GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif") ;~ _GUICtrlListView_DeleteAllItems($Listview1) ;~ _FillListView() $Group31 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $bBack3 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0) GUISetState(@SW_SHOW, $MainGUI) Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]] GUISetAccelerators($Form1_AccelTable) ;_______________________________________________________________________________________________________________Gui3 bis hier ;_______________________________________________________________________________________________________________Gui 4 ab hier $SubGUI4 = GUICreate("Neuen Kunden anlegen", 1631, 749, 192, 164) $programm = GUICtrlCreateMenu("Programm") $speichern = GUICtrlCreateMenuItem("Speichern", $programm) $beenden = GUICtrlCreateMenuItem("Beenden", $programm) $mverwalten = GUICtrlCreateMenu("Kunden Verwaltung") $msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten) $manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten) $Group41 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $bBack4 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0) $lastNumNeuKunde = $lastNum $lastNumNeuKunde += 1 GUICtrlCreateLabel($lastNumNeuKunde, 300, 30, 250, 30) GUICtrlSetFont(-5, 100, 100, 1, "barcode font") GUICtrlCreateLabel($lastNumNeuKunde, 300, 60, 100, 30) GUICtrlSetFont(-5, 15, 100, 1, "Arial") $Group42 = GUICtrlCreateGroup(" Neuen Kunden anlegen ", 10, 10, 280, 460) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Anrede = GUICtrlCreateCombo("Bitte wählen", 25, 38, 90, 50) GUICtrlSetData($Anrede, "Herr|Frau|Familie|Firma") GUICtrlCreateLabel("Vorname:", 25, 70, 60, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Vorname = GUICtrlCreateInput("", 25, 90, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Name:", 25, 120, 50, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Name = GUICtrlCreateInput("", 25, 140, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Strasse:", 25, 170, 250, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Strasse = GUICtrlCreateInput("", 25, 190, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Nr:", 25, 220, 20, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Nr = GUICtrlCreateInput("",25, 240, 124, 25, 0x2000) GUICtrlSetLimit(-1, 5) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $Nrz = GUICtrlCreateInput("",151, 240, 123, 25) GUICtrlSetLimit(-1, 2) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) GUICtrlCreateLabel("Plz:", 25, 270, 30, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $PLZ = GUICtrlCreateInput("", 25, 290, 250, 25, 0x2000) GUICtrlSetLimit(-1, 5) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Ort:", 25, 320, 26, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Ort = GUICtrlCreateInput("", 25, 340, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Tel:", 25, 370, 26, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Tel = GUICtrlCreateInput("", 25, 390, 250, 25, 0x2000) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $speichern = GUICtrlCreateButton( "Speichern", 25, 430, 250, 25) GUISetState(@SW_SHOW, $MainGUI) Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]] GUISetAccelerators($Form1_AccelTable) ;_______________________________________________________________________________________________________________Gui4 bis hier While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $beenden Exit ;####################################################### Zu Button Neuen Kunden anlegen / Ab hier ############################## Case $mverwalten2 If $beide = 1 Then GUISetState(@SW_HIDE, $SubGUI4) GUISetState(@SW_HIDE, $SubGUI3) GUISetState(@SW_SHOW, $SubGUI2) Else GUISetState(@SW_HIDE, $MainGUI) GUISetState(@SW_HIDE, $SubGUI4) GUISetState(@SW_HIDE, $SubGUI3) GUISetState(@SW_SHOW, $SubGUI2) EndIf Case $bBack2 GUISetState(@SW_HIDE, $SubGUI2) GUISetState(@SW_HIDE, $SubGUI3) GUISetState(@SW_HIDE, $SubGUI4) GUISetState(@SW_SHOW, $MainGUI) ;####################################################### Zu Button Neuen Kunden anlegen / Bis hier ############################## ;####################################################### Zu Button Kunden-Daten übersicht / Ab hier ############################# Case $mverwalten3 If $beide = 1 Then GUISetState(@SW_HIDE, $SubGUI2) GUISetState(@SW_HIDE, $SubGUI4) GUISetState(@SW_SHOW, $SubGUI3) Else GUISetState(@SW_HIDE, $MainGUI) GUISetState(@SW_HIDE, $SubGUI2) GUISetState(@SW_HIDE, $SubGUI4) GUISetState(@SW_SHOW, $SubGUI3) $Auslesen1 = GUICtrlRead($KundenDaten) If $Auslesen1 = 0 Then MsgBox(16, " Fehler ", " Fehler " & @CRLF & @CRLF & " Bitte Kundennummer Scannen ") Else GUICtrlCreateLabel($Auslesen1, 300, 30, 250, 30) GUICtrlSetFont(-5, 100, 100, 1, "barcode font") GUICtrlCreateLabel($Auslesen1, 300, 60, 100, 30) GUICtrlSetFont(-5, 15, 100, 1, "Arial") $KundenDaten2 = GUICtrlRead($KundenDaten) $KundenDaten3 = $KundenDaten2 & ".ini" $IniSections = IniReadSectionNames($KundenDaten3) Global $P[UBound($IniSections)] For $i = 1 To UBound($IniSections) - 1 $P[$i] = IniRead($KundenDaten3, $IniSections[$i], "ShowMe", "Bitte warten") Next _GUICtrlListView_DeleteAllItems($Listview_User) _FillListView() EndIf EndIf Case $bBack3 GUISetState(@SW_HIDE, $SubGUI2) GUISetState(@SW_HIDE, $SubGUI3) GUISetState(@SW_HIDE, $SubGUI4) GUISetState(@SW_SHOW, $MainGUI) ;####################################################### Zu Button Kunden-Daten übersicht / Bis hier ############################# ;####################################################### Zu Button Leer / Ab hier ################################################ Case $mverwalten4 If $beide = 1 Then GUISetState(@SW_HIDE, $SubGUI2) GUISetState(@SW_HIDE, $SubGUI3) GUISetState(@SW_SHOW, $SubGUI4) Else GUISetState(@SW_HIDE, $MainGUI) GUISetState(@SW_HIDE, $SubGUI2) GUISetState(@SW_HIDE, $SubGUI3) GUISetState(@SW_SHOW, $SubGUI4) EndIf Case $bBack4 GUISetState(@SW_HIDE, $SubGUI2) GUISetState(@SW_HIDE, $SubGUI3) GUISetState(@SW_HIDE, $SubGUI4) GUISetState(@SW_SHOW, $MainGUI) ;####################################################### Zu Button Leer / Bis hier ############################################### ;******************************************* Neukunden INI wird angelegt / Ab hier ******************************************* Case $speichern $lastNum += 1 $Anrede2 = GUICtrlRead($Anrede) $Name2 = GUICtrlRead($Name) $Vorname2 = GUICtrlRead($Vorname) $Strasse2 = GUICtrlRead($Strasse) $Nr2 = GUICtrlRead($Nr) $Nr3 = GUICtrlRead($Nrz) $Plz2 = GUICtrlRead($Plz) $Ort2 = GUICtrlRead($Ort) $Tel2 = GUICtrlRead($Tel) $INI = $lastNum & ".INI" $Auslesen1 = $lastNum $ShowMe = "ShowMe=" $Uhr = _NowCalcDate()&" "&@Hour&":"&@Min&":"&@SEC GUICtrlCreateLabel($Auslesen1, 300, 30, 250, 30) GUICtrlSetFont(-5, 100, 100, 1, "barcode font") GUICtrlCreateLabel($Auslesen1, 300, 60, 100, 30) GUICtrlSetFont(-5, 15, 100, 1, "Arial") IniWrite($INI2, "Numbers", "last", $lastNum) IniWrite($INI, "No", $lastNum, $lastNum) IniWriteSection($INI, "Kunden-Daten", $Anrede2 &"|"& $Vorname2 &"|"& $Name2 &"|"& $Strasse2 &"|"& $Nr2 &"|"& $Nr3 &"|"& $Plz2 &"|"& $Ort2 &"|"& $Tel2 &"|"& $Auslesen1) IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten für Neukunden angelegt" &"|"& "Stamdaten für Neukunden angelegt" &"|"& "Stamdaten für Neukunden angelegt") ;~ IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten wurden angelegt" &"|"& "0.00" &"|"& "0.00") GUICtrlSetData($Name, "") GUICtrlSetData($Vorname, "") GUICtrlSetData($Strasse, "") GUICtrlSetData($Nr, "") GUICtrlSetData($Nrz, "") GUICtrlSetData($Plz, "") GUICtrlSetData($Ort, "") GUICtrlSetData($Tel, "") GUICtrlSetData($Uhr, "") Beep(740,500) ;~ IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten wurden angelegt" &"|"& "0.00" &"|"& "0.00") ;******************************************* Neukunden INI wird angelegt / Bis hier ******************************************* ;******************************************* Einkäufe werden in INI geschrieben / Ab hier ************************************* Case $hinzubutton $Uhr = _NowCalcDate()&" "&@Hour&":"&@Min&":"&@SEC $ShowMe = "ShowMe=" $So1 = GUICtrlRead($summealt) $So2 = StringReplace($So1, ",", ".") $So3 = GUICtrlRead($summehinzu) $So4 = StringReplace($So3, ",", ".") GUICtrlSetData($OutputGesamtpreis, StringFormat("%.2f", $So2 + $So4)) $OutputGesamtpreis2 = GUICtrlRead($OutputGesamtpreis) $freitext2 = GUICtrlRead($freitext) $summehinzu2 = GUICtrlRead($summehinzu) $summehinzu2 = StringReplace($summehinzu2, ",", ".") IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& $freitext2 &"|"& $summehinzu2 &"|"& $OutputGesamtpreis2&"|aaaaaaa") GUICtrlSetData($summehinzu, "") GUICtrlSetData($summehinzu2, "") GUICtrlSetData($freitext, "") GUICtrlSetData($freitext2, "") GUICtrlSetData($summealt, "") GUICtrlSetData($OutputGesamtpreis2, "") GUICtrlSetData($Uhr, "") Beep(740,500) ;******************************************* Einkäufe werden in INI geschrieben / Bis hier ************************************ ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Kunden suchen / Ab hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Case $Suchen $KundenDaten2 = GUICtrlRead($KundenDaten) Local $INI = @ScriptDir & "\" & $KundenDaten2 & ".ini" $File = $INI If FileExists($File) Then ;Datei einlesen $String = FileRead($File) ;Zeilenumbrüche durch | ersetzen und String spliten: $Split = StringSplit(StringReplace($String, @CRLF, "|"), "|", 1) GUICtrlCreateLabel($KundenDaten2, 300, 30, 110, 30) GUICtrlSetFont(-5, 100, 100, 1, "barcode font") GUICtrlCreateLabel($KundenDaten2, 300, 60, 100, 30) GUICtrlSetFont(-5, 15, 100, 1, "Arial") Else MsgBox(16, " Fehler ", " Kundennummer " & @CRLF & @CRLF & " nicht gefunden ") $String = FileRead("0.ini") $Split = StringSplit(StringReplace($String, @CRLF, "|"), "|", 1) GUICtrlCreateLabel(" ", 300, 30, 250, 30) GUICtrlSetFont(-5, 100, 100, 1, "Arial") GUICtrlCreateLabel(" ", 300, 60, 100, 30) GUICtrlSetFont(-5, 15, 100, 1, "Arial") EndIf GUICtrlCreateLabel("Anrede:", 25, 140, 50, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Anredeausgelesen = GUICtrlCreateLabel($Split[4], 25, 160, 250, 25, $ES_READONLY) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) GUICtrlCreateLabel("Vorname:", 25, 190, 60, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Vornameausgelesen = GUICtrlCreateLabel($Split[5], 25, 210, 250, 25, $ES_READONLY) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) GUICtrlCreateLabel("Name:", 25, 240, 50, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Nameausgelesen = GUICtrlCreateLabel($Split[6], 25, 260, 250, 25, $ES_READONLY) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Strasse:", 25, 290, 250, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Strasseausgelesen = GUICtrlCreateLabel($Split[7], 25, 310, 250, 25, $ES_READONLY) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Nr:", 25, 340, 20, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Nrausgelesen = GUICtrlCreateLabel($Split[8],25, 360, 124, 25, $ES_READONLY) GUICtrlSetLimit(-1, 5) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $Nrzausgelesen = GUICtrlCreateLabel($Split[9],151, 360, 123, 25, $ES_READONLY) GUICtrlSetLimit(-1, 2) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) GUICtrlCreateLabel("Plz:", 25, 410, 30, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $PLZausgelesen = GUICtrlCreateLabel($Split[10], 25, 430, 250, 25, $ES_READONLY) GUICtrlSetLimit(-1, 5) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Ort:", 25, 460, 26, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Ortausgelesen = GUICtrlCreateLabel($Split[11], 25, 480, 250, 25, $ES_READONLY) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Tel:", 25, 510, 26, 30) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Telausgelesen = GUICtrlCreateLabel($Split[12], 25, 530, 250, 25, $ES_READONLY) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $Group4 = GUICtrlCreateGroup(" Alter Einkauf hier ", 415, 150, 535, 120) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlCreateLabel("Summe:", 685, 190, 160, 30) GUICtrlSetFont(-1, 11, 500, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $summealt = GUICtrlCreateLabel($Split[17], 685, 210, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlCreateLabel("Freitext:", 430, 190, 60, 30) GUICtrlSetFont(-1, 11, 500, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $freitextalt = GUICtrlCreateLabel($Split[16], 430, 210, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $datumangelegt = GUICtrlCreateLabel($Split[15], 3430, 210, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $Group5 = GUICtrlCreateGroup(" Gesamtsumme hier ", 415, 280, 535, 120) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlCreateLabel("Summe:", 685, 320, 160, 30) GUICtrlSetFont(-1, 11, 500, 0, "Arial") GUICtrlSetColor(-1, 0x000000) $OutputGesamtpreis = GUICtrlCreateLabel("", 685, 340, 250, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Kunden suchen / Bis hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Von hier ++++++ Case $ButtonDrucken $KundenDaten2 = GUICtrlRead($KundenDaten) _FilePrint(@ScriptDir & "\" & $KundenDaten2 & ".ini") ; Drucken :-) ;~ FileDelete($File) ; Aufräumen ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Bis hier ++++++ EndSwitch WEnd ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListView wird mit Daten gefüllt / Ab hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Func _FillListView() For $i = 1 To UBound($P) - 1 GUICtrlCreateListViewItem($P[$i],$Listview_User) _GUICtrlListView_SetColumnWidth($Listview_User, 0, $LVSCW_AUTOSIZE) Next EndFunc ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListView wird mit Daten gefüllt / Bis hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[/spoiler]
-
ps.: konkretisier deine frage(n) wenn möglich, vielen dank.
Hallo Hauke96,
???
Wie soll ich das denn noch konkretisieren ??
Habe jetzt noch ein Bild hinzugefügt...
Danke an alle.
-
Hallo zusammen,
Ich möchte eine "Datenbank" erstellen, in dem nicht nur die Kundendaten sondern auch ein "Freitext" und ein Betrag (Letzter Einkauf) gespeichert wird.
Das die INI Datei anhand der Kundennummer aufgerufen wird.
Der neue Einkauf mit Freitext hinzugefügt wird.
Im GUI dargestellt wird.
Heutiger Einkauf : 15,33 Euro
Betrag von letzten Einkauf: 20,00 Euro
Gesamtsumme bisher: 35,33 EuroDas diese Werte alle in die Ini Datei geschrieben, bei bedarf gelesen werden, und weiter beschrieben werden.
Das die die Werte:
Datum, Freitext, Letzter Einkauf Betrag, Summe Gesamtbetrag
in Listview angezeigt werden...Habe jetzt auch ein bIld angehängt !
@Cheate Dieter: Is OK!
BLinz: Is OK!
chip: Siehe Bild, alles "Rot" Markierte funktioniert nicht, grün ist soweit ok...
-
Hallo zusammen,
ich benötige Eure hilfe!
Ich möchte eine "Datenbank" erstellen, in dem nicht nur die Kundendaten sondern auch ein "Freitext" und ein Betrag (Letzter Einkauf) gespeichert wird.
Das die INI Datei anhand der Kundennummer aufgerufen wird.
Der neue Einkauf mit Freitext hinzugefügt wird.
Im GUI dargestellt wird.
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit]
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <file.au3>
Hotkeyset("{ENTER}", "_Suchen")
Local $INI2 = @ScriptDir & "\Nr.ini"
Local $lastNum = IniRead($INI2, "Numbers", "last", 9999)
#Region ### START Koda GUI section ### Form=
Dim $beide
Dim $lastNum
;_______________________________________________________________________________________________________________Gui 1 ab hier
$MainGUI = GUICreate("Kunden", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group1 = GUICtrlCreateGroup(" Kunde suchen ", 10, 10, 280, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Bitte Kundennummer Scannen:", 27, 40, 200, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$KundenDaten = GUICtrlCreateInput("", 25, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Suchen = GUICtrlCreateButton( "Kunde Suchen", 25, 90, 250, 25, BitOR($BS_DEFPUSHBUTTON, $BST_UNCHECKED))
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Group2 = GUICtrlCreateGroup(" Neuen Einkauf hinzufügün ", 415, 10, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 40, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$summehinzu = GUICtrlCreateInput("", 685, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Freitext:", 430, 40, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$freitext = GUICtrlCreateInput("", 430, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$hinzubutton = GUICtrlCreateButton("Hizufügen", 430, 90, 505, 25)
$Group3 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$mverwalten2 = GUICtrlCreateButton("Leer", 1450, 50, 160, 28, 0)
$mverwalten3 = GUICtrlCreateButton("Kunden-Daten Übersicht", 1280, 50, 160, 28, 0)
$mverwalten4 = GUICtrlCreateButton("Neuen Kunden anlegen", 1110, 50, 160, 28, 0)
$OutputGesamtpreis = GUICtrlCreateInput("", 222430, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
;_______________________________________________________________________________________________________________Gui 1 bis hier
;_______________________________________________________________________________________________________________Gui 2 ab hier
$SubGUI2 = GUICreate("Leer", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group21 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack2 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Von hier ++++++
$ButtonDrucken = GUICtrlCreateButton("Drucken!", 50, 28, 483, 49)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Bis hier ++++++
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui 2 bis hier
;_______________________________________________________________________________________________________________Gui 3 ab hier
$SubGUI3 = GUICreate("Kunden-Daten Übersicht", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Listview_User = GUICtrlCreateListView("Datum|Freitext|Letzter Einkauf (Betrag)|Gesamt Einkauf (Betrag)", 10, 135, 1610, 580, $LVS_REPORT)
;~ GUICtrlRegisterListViewSort(-1, "LVSort")
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
;~ _GUICtrlListView_DeleteAllItems($Listview1)
;~ _FillListView()
$Group31 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack3 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui3 bis hier
;_______________________________________________________________________________________________________________Gui 4 ab hier
$SubGUI4 = GUICreate("Neuen Kunden anlegen", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group41 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack4 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
$lastNumNeuKunde = $lastNum
$lastNumNeuKunde += 1
GUICtrlCreateLabel($lastNumNeuKunde, 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($lastNumNeuKunde, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
$Group42 = GUICtrlCreateGroup(" Neuen Kunden anlegen ", 10, 10, 280, 460)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Anrede = GUICtrlCreateCombo("Bitte wählen", 25, 38, 90, 50)
GUICtrlSetData($Anrede, "Herr|Frau|Familie|Firma")
GUICtrlCreateLabel("Vorname:", 25, 70, 60, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Vorname = GUICtrlCreateInput("", 25, 90, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Name:", 25, 120, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Name = GUICtrlCreateInput("", 25, 140, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Strasse:", 25, 170, 250, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Strasse = GUICtrlCreateInput("", 25, 190, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Nr:", 25, 220, 20, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nr = GUICtrlCreateInput("",25, 240, 124, 25, 0x2000)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Nrz = GUICtrlCreateInput("",151, 240, 123, 25)
GUICtrlSetLimit(-1, 2)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Plz:", 25, 270, 30, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$PLZ = GUICtrlCreateInput("", 25, 290, 250, 25, 0x2000)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Ort:", 25, 320, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Ort = GUICtrlCreateInput("", 25, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Tel:", 25, 370, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Tel = GUICtrlCreateInput("", 25, 390, 250, 25, 0x2000)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$speichern = GUICtrlCreateButton( "Speichern", 25, 430, 250, 25)
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui4 bis hier
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $beenden
Exit
;####################################################### Zu Button Neuen Kunden anlegen / Ab hier ##############################
Case $mverwalten2
If $beide = 1 Then
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_SHOW, $SubGUI2)
Else
GUISetState(@SW_HIDE, $MainGUI)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_SHOW, $SubGUI2)
EndIf
Case $bBack2
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $MainGUI)
;####################################################### Zu Button Neuen Kunden anlegen / Bis hier ##############################
;####################################################### Zu Button Kunden-Daten übersicht / Ab hier #############################
Case $mverwalten3
If $beide = 1 Then
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $SubGUI3)
Else
GUISetState(@SW_HIDE, $MainGUI)
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $SubGUI3)
$Auslesen1 = GUICtrlRead($KundenDaten)
If $Auslesen1 = 0 Then
MsgBox(16, " Fehler ", " Fehler " & @CRLF & @CRLF & " Bitte Kundennummer Scannen ")
Else
GUICtrlCreateLabel($Auslesen1, 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($Auslesen1, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
$KundenDaten2 = GUICtrlRead($KundenDaten)
$KundenDaten3 = $KundenDaten2 & ".ini"
$IniSections = IniReadSectionNames($KundenDaten3)
Global $P[UBound($IniSections)]
For $i = 1 To UBound($IniSections) - 1
$P[$i] = IniRead($KundenDaten3, $IniSections[$i], "ShowMe", "Bitte warten")
Next
_GUICtrlListView_DeleteAllItems($Listview_User)
_FillListView()
EndIf
EndIf
Case $bBack3
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $MainGUI)
;####################################################### Zu Button Kunden-Daten übersicht / Bis hier #############################
;####################################################### Zu Button Leer / Ab hier ################################################
Case $mverwalten4
If $beide = 1 Then
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_SHOW, $SubGUI4)
Else
GUISetState(@SW_HIDE, $MainGUI)
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_SHOW, $SubGUI4)
EndIf
Case $bBack4
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $MainGUI)
;####################################################### Zu Button Leer / Bis hier ###############################################
;******************************************* Neukunden INI wird angelegt / Ab hier *******************************************
Case $speichern
$lastNum += 1
$Anrede2 = GUICtrlRead($Anrede)
$Name2 = GUICtrlRead($Name)
$Vorname2 = GUICtrlRead($Vorname)
$Strasse2 = GUICtrlRead($Strasse)
$Nr2 = GUICtrlRead($Nr)
$Nr3 = GUICtrlRead($Nrz)
$Plz2 = GUICtrlRead($Plz)
$Ort2 = GUICtrlRead($Ort)
$Tel2 = GUICtrlRead($Tel)
$INI = $lastNum & ".INI"
$Auslesen1 = $lastNum
$ShowMe = "ShowMe="
$Uhr = _NowCalcDate()&" "&@Hour&":"&@Min&":"&@SEC
GUICtrlCreateLabel($Auslesen1, 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($Auslesen1, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
IniWrite($INI2, "Numbers", "last", $lastNum)
IniWrite($INI, "No", $lastNum, $lastNum)
IniWriteSection($INI, "Kunden-Daten", $Anrede2 &"|"& $Vorname2 &"|"& $Name2 &"|"& $Strasse2 &"|"& $Nr2 &"|"& $Nr3 &"|"& $Plz2 &"|"& $Ort2 &"|"& $Tel2 &"|"& $Auslesen1)
IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten für Neukunden angelegt" &"|"& "Stamdaten für Neukunden angelegt" &"|"& "Stamdaten für Neukunden angelegt")
;~ IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten wurden angelegt" &"|"& "0.00" &"|"& "0.00")
GUICtrlSetData($Name, "")
GUICtrlSetData($Vorname, "")
GUICtrlSetData($Strasse, "")
GUICtrlSetData($Nr, "")
GUICtrlSetData($Nrz, "")
GUICtrlSetData($Plz, "")
GUICtrlSetData($Ort, "")
GUICtrlSetData($Tel, "")
GUICtrlSetData($Uhr, "")
Beep(740,500)
;~ IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten wurden angelegt" &"|"& "0.00" &"|"& "0.00")
;******************************************* Neukunden INI wird angelegt / Bis hier *******************************************
;******************************************* Einkäufe werden in INI geschrieben / Ab hier *************************************
Case $hinzubutton
$Uhr = _NowCalcDate()&" "&@Hour&":"&@Min&":"&@SEC
$ShowMe = "ShowMe="
$So1 = GUICtrlRead($summealt)
$So2 = StringReplace($So1, ",", ".")
$So3 = GUICtrlRead($summehinzu)
$So4 = StringReplace($So3, ",", ".")
GUICtrlSetData($OutputGesamtpreis, StringFormat("%.2f", $So2 + $So4))
$OutputGesamtpreis2 = GUICtrlRead($OutputGesamtpreis)
$freitext2 = GUICtrlRead($freitext)
$summehinzu2 = GUICtrlRead($summehinzu)
$summehinzu2 = StringReplace($summehinzu2, ",", ".")
IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& $freitext2 &"|"& $summehinzu2 &"|"& $OutputGesamtpreis2&"|aaaaaaa")
GUICtrlSetData($summehinzu, "")
GUICtrlSetData($summehinzu2, "")
GUICtrlSetData($freitext, "")
GUICtrlSetData($freitext2, "")
GUICtrlSetData($summealt, "")
GUICtrlSetData($OutputGesamtpreis2, "")
GUICtrlSetData($Uhr, "")
Beep(740,500)
;******************************************* Einkäufe werden in INI geschrieben / Bis hier ************************************
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Kunden suchen / Ab hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case $Suchen
$KundenDaten2 = GUICtrlRead($KundenDaten)
Local $INI = @ScriptDir & "\" & $KundenDaten2 & ".ini"
$File = $INI
If FileExists($File) Then
;Datei einlesen
$String = FileRead($File)
;Zeilenumbrüche durch | ersetzen und String spliten:
$Split = StringSplit(StringReplace($String, @CRLF, "|"), "|", 1)
GUICtrlCreateLabel($KundenDaten2, 300, 30, 110, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($KundenDaten2, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
Else
MsgBox(16, " Fehler ", " Kundennummer " & @CRLF & @CRLF & " nicht gefunden ")
$String = FileRead("0.ini")
$Split = StringSplit(StringReplace($String, @CRLF, "|"), "|", 1)
GUICtrlCreateLabel(" ", 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "Arial")
GUICtrlCreateLabel(" ", 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
EndIf
GUICtrlCreateLabel("Anrede:", 25, 140, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Anredeausgelesen = GUICtrlCreateLabel($Split[4], 25, 160, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Vorname:", 25, 190, 60, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Vornameausgelesen = GUICtrlCreateLabel($Split[5], 25, 210, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Name:", 25, 240, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nameausgelesen = GUICtrlCreateLabel($Split[6], 25, 260, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Strasse:", 25, 290, 250, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Strasseausgelesen = GUICtrlCreateLabel($Split[7], 25, 310, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Nr:", 25, 340, 20, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nrausgelesen = GUICtrlCreateLabel($Split[8],25, 360, 124, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Nrzausgelesen = GUICtrlCreateLabel($Split[9],151, 360, 123, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 2)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Plz:", 25, 410, 30, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$PLZausgelesen = GUICtrlCreateLabel($Split[10], 25, 430, 250, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Ort:", 25, 460, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Ortausgelesen = GUICtrlCreateLabel($Split[11], 25, 480, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Tel:", 25, 510, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Telausgelesen = GUICtrlCreateLabel($Split[12], 25, 530, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Group4 = GUICtrlCreateGroup(" Alter Einkauf hier ", 415, 150, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 190, 160, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$summealt = GUICtrlCreateLabel($Split[17], 685, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Freitext:", 430, 190, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$freitextalt = GUICtrlCreateLabel($Split[16], 430, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$datumangelegt = GUICtrlCreateLabel($Split[15], 3430, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Group5 = GUICtrlCreateGroup(" Gesamtsumme hier ", 415, 280, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 320, 160, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$OutputGesamtpreis = GUICtrlCreateLabel("", 685, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Kunden suchen / Bis hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Von hier ++++++
Case $ButtonDrucken
$KundenDaten2 = GUICtrlRead($KundenDaten)
_FilePrint(@ScriptDir & "\" & $KundenDaten2 & ".ini") ; Drucken
;~ FileDelete($File) ; Aufräumen
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Bis hier ++++++
EndSwitch
WEnd
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListView wird mit Daten gefüllt / Ab hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Func _FillListView()
For $i = 1 To UBound($P) - 1
GUICtrlCreateListViewItem($P[$i],$Listview_User)
_GUICtrlListView_SetColumnWidth($Listview_User, 0, $LVSCW_AUTOSIZE)
Next
EndFunc
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListView wird mit Daten gefüllt / Bis hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Heutiger Einkauf : 15,33 Euro
Betrag von letzten Einkauf: 20,00 Euro
Gesamtsumme bisher: 35,33 EuroDas diese Werte alle in die Ini Datei geschrieben, bei bedarf gelesen werden, und weiter beschrieben werden.
Das die die Werte:
Datum, Freitext, Letzter Einkauf Betrag, Summe Gesamtbetrag
in Listview angezeigt werden... -
Dank UEZ !
Das war genau das was ich gesucht habe!
Ich kann beinen Beitrag wieder schließen.
Mit freundlichen Grüßen
HGF -
Hallo Name22!
ZitatIch möchte die Bilder genau so speichern wie Sie in dem GUI angezeigt werden!
Wie abspeichern? Als Bild? Das ist schwer vorstellbar ohne funktionsfähiges Script.
Die beiden Bilder werden zur Zeit abgespeichert!
Das Script ist funktionsfähig!
Es klappt, jedoch nicht so wie es im GUI angezeigt wird!Soll zustand:
Also Bild 1 soll als Hintergrund / Untergrund und Bild 2 da drauf auf festgesetzten Bereich gespeichert werden.Ist zustand:
Bild 1 wird als Hintergrund / Untergrund und Bild 2 da drauf gespeichert.
Aber beide Bilder werden in tatsächlicher Größe gespeichert ich kann zur Zeit die Größe nicht beeinflussen (Höhe und Breite) !!! -
HGF Du brauchst für gewöhnlich nur 1 _GDIPlus_Startup pro Script und nicht 3 ;).??????
mit 3x läufts doch auch...
Bilderposition in Ini speichern!stayawayknight ohne worte....
-
Erst einmal einen einen lieben Dank und Gruß an UEZ!
Ohne seine Hilfe wäre ich wahrscheinlich noch gar nicht soweit!So nun benötige ich noch eine kleine Hilfe!
Thema Speichern:
Ich möchte die Bilder genau so speichern wie Sie in dem GUI angezeigt werden!
Spoiler anzeigen
[autoit]; #DANKE# ====================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Ersteinmal Vielen Dank an ....: UEZ
; Author (Hauptprogramm)........: UEZ
; Author (Function).............: UEZ
; Weiterentwickelt von .........: GHF
; Natürlich mit Hilfe von.......: UEZ und den AutoIt Forum Mitgliedern
;
; #DANKE# ====================================================================================================================
#include <Array.au3>
#include <GDIPlus.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <File.au3>
#include <WindowsConstants.au3>
#Include <WinAPIEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
$hGUI1 = GUICreate("Daten werden geladen ...", 400, 80)
GUISetBkColor(0xFFFFFF)
GuiCtrlCreateProgress(100, 20, 150, 20)
GuiCtrlSetData(-1, 5)
GuiCtrlSetData(-1, 10)
GuiCtrlSetData(-1, 15)
GuiCtrlSetData(-1, 20)
GuiCtrlSetData(-1, 40)
GuiCtrlSetData(-1, 60)
GuiCtrlSetData(-1, 75)
GuiCtrlSetData(-1, 80)
GuiCtrlSetData(-1, 85)
GuiCtrlSetData(-1, 96)
GuiCtrlCreateLabel("Status:", 10, 22, 100)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("26.10.2010"&@CRLF&"Version: 0.0.1", 240, 9, 150, -1, $ES_RIGHT)
GUICtrlSetFont(-1, 10, 400, 4, "Arial")
GuiCtrlCreateLabel("(Daten werden geladen bitte haben Sie etwas geduld)", 10, 55, 400, 30)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
_GDIPlus_Startup()
$image_path = (@ScriptDir & '\include01\')
$image_pathover = (@ScriptDir & '\include02\')
Global $hPic = -99
Global $hPicover = -99
$count = _FileListToArray($image_path, "*.gif", 1)
$countover = _FileListToArray($image_pathover, "*.gif", 1)
If Not IsArray($count) Then Exit MsgBox(16, "Fehler", "Fehlende Dateien in " & $image_path, 10)
If Not IsArray($countover) Then Exit MsgBox(16, "Fehler", "Fehlende Dateien in " & $image_pathover, 10)
$hGUI = GUICreate("Bild1 und Bild2 - Vorschau", 798, 655)
GUISetBkColor(0xFFFFFF)
$hComboover = _GUICtrlComboBoxEx_Create($hGUI, "", 640, 15, 70, 335, $CBS_DROPDOWNLIST)
Dim $bitmap_from_file[$countover[0] + 1]
_GDIPlus_Startup()
$iCX = 48
$iCY = 48
$hImageover = _GUIImageList_Create(48, 48, 5, 1)
For $i = 1 To $countover[0]
_GUIImageList_AddBitmapEx($hImageover, $image_pathover & "\" & $countover[$i], $iCX, $iCY)
Next
_GUICtrlComboBoxEx_SetImageList($hComboover, $hImageover)
For $i = 0 To $countover[0] - 1
_GUICtrlComboBoxEx_AddString($hComboover, $image_pathover & "\" & $countover[$i], $i, $i)
Next
_GUICtrlComboBoxEx_SetItemHeight($hComboover, 0, 51)
_GUICtrlComboBoxEx_SetCurSel($hComboover, 0)
$bottonover = GUICtrlCreateButton("Bild1 anzeigen", 715, 14, 60, 56, $BS_MULTILINE)
$hCombo = _GUICtrlComboBoxEx_Create($hGUI, "", 640, 76, 70, 335, $CBS_DROPDOWNLIST)
Dim $bitmap_from_file[$count[0] + 1]
_GDIPlus_Startup()
$iCX = 48
$iCY = 48
$hImage = _GUIImageList_Create(48, 48, 5, 1)
For $i = 1 To $count[0]
_GUIImageList_AddBitmapEx($hImage, $image_path & "\" & $count[$i], $iCX, $iCY)
Next
_GUICtrlComboBoxEx_SetImageList($hCombo, $hImage)
For $i = 0 To $count[0] - 1
_GUICtrlComboBoxEx_AddString($hCombo, $image_path & "\" & $count[$i], $i, $i)
Next
_GUICtrlComboBoxEx_SetItemHeight($hCombo, 0, 51)
_GUICtrlComboBoxEx_SetCurSel($hCombo, 0)
$botton = GUICtrlCreateButton("Bild2 anzeigen", 715, 75, 60, 56, $BS_MULTILINE)
$Textanzeigen1 = GUICtrlCreateButton("Text 1", 640, 350, 150, 25, $BS_CENTER)
$Textanzeigen2 = GUICtrlCreateButton("Text 2", 640, 380, 150, 25, $BS_CENTER)
$SaveButton = GUICtrlCreateButton("SAVE", 640, 410, 150, 25, $BS_CENTER)
$Software1 = GUICtrlCreateButton(" Soft1 Starten", 640, 440, 150, 25, $BS_CENTER)
$Info = GUICtrlCreateButton(" Info zur Software", 640, 470, 150, 25, $BS_CENTER)
$Button1 = GUICtrlCreateButton(" ", 640, 500, 150, 25, $BS_CENTER)
$Button2 = GUICtrlCreateButton(" ", 640, 530, 150, 25, $BS_CENTER)
$Button3 = GUICtrlCreateButton(" ", 640, 560, 150, 25, $BS_CENTER)
GUICtrlCreateLabel("Version: 0.0.1", 640, 630, 100, -1, $ES_LEFT)
GUICtrlSetFont(-1, 10, 400, 4, "Arial")
GUISetState(@SW_HIDE, $hGUI1)
GUISetState(@SW_SHOW, $hGUI)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $gui_event_close
_GDIPlus_Shutdown()
GUIDelete($hGUI)
Exit
Case $msg = $bottonover
$iItemover = _GUICtrlComboBoxEx_GetCurSel($hComboover)+1
$aItemover = _GUICtrlComboBoxEx_GetItem($hComboover,$iItemover)
$hImageover = _GDIPlus_BitmapCreateFromFile ($aItemover[0])
$iX = _GDIPlus_ImageGetWidth($hImageover)
$iY = _GDIPlus_ImageGetHeight($hImageover)
_GDIPlus_BitmapDispose($hImageover)
$iRatio = $iX / $iY
if $iRatio >= 1 Then
$iX = 300
$iY = 300
Else
$iY = 300
$iX = 300
EndIf
if $hPicover <> -99 then GUICtrlDelete($hPicover)
$hPicover = GUICtrlCreatePic($aItemover[0], 175, 110, $iX , $iY)
Case $msg = $botton
$iItem = _GUICtrlComboBoxEx_GetCurSel($hCombo)+1
$aItem = _GUICtrlComboBoxEx_GetItem($hCombo,$iItem)
$hImage = _GDIPlus_BitmapCreateFromFile ($aItem[0])
$iX = _GDIPlus_ImageGetWidth($hImage)
$iY = _GDIPlus_ImageGetHeight($hImage)
_GDIPlus_BitmapDispose($hImage)
$iRatio = $iX / $iY
if $iRatio >= 1 Then
$iX = 650
$iY = 600
Else
$iY = 650
$iX = 600
EndIf
if $hPic <> -99 then GUICtrlDelete($hPic)
$hPic = GUICtrlCreatePic($aItem[0], 0, 20, $iX, $iY)
Case $msg = $Info
If $Info Then ContinueLoop MsgBox(64, "Info: Bitte Lesen", "Bedienungsanleitung:"&@CRLF&""&@CRLF&"1. Motiv auswählen"&@CRLF&"Motiv anzeigen Button anklicken"&@CRLF&" "&@CRLF&"2. Produkt auswählen"&@CRLF&"Produkt anzeigen Button anklicken"&@CRLF&" "&@CRLF&" "&@CRLF&" ")
Exit
Case $msg = $Software1
ShellExecute("Soft1.exe")
Case $msg = $SaveButton$himg2 = _GDIPlus_ImageLoadFromFile($aItem[0])
[/autoit]
$himg3 = _GDIPlus_ImageLoadFromFile($aItemover[0])
$Save = FileSaveDialog("Speichere Bild", @ScriptDir, "JPG (*.JPG)")
$ToBild2 = _GDIPlus_ImageGetGraphicsContext ($himg2)
$iX = _GDIPlus_ImageGetWidth ($himg2)
$iY = _GDIPlus_ImageGetHeight ($himg2)
$iX2 = _GDIPlus_ImageGetWidth ($himg3)
$iY2 = _GDIPlus_ImageGetHeight ($himg3)
$a=_GDIPlus_GraphicsDrawImage ($ToBild2,$himg3, 400, 210)
_GDIPlus_ImageSaveToFile($himg2, $Save & "")
_GDIPlus_ImageDispose($himg2)
_GDIPlus_ImageDispose($himg3)
_GDIPlus_ImageDispose($himg3)
EndSelect
WEnd
; #FUNCTION# ====================================================================================================================
; Name...........: _GUIImageList_AddBitmapEx
; Description ...: Creates a bitmap from an image file (JPG, PNG, BMP, GIF, etc.) and adds it to the _GUIImageList control
; Syntax.........: _GUIImageList_AddBitmapEx($hWnd, $sFile, $iWidth, $iHeight)
; Parameters ....: $hWnd - file name where the icon should be extracted from (*.dll, *.ico, *.exe)
; $sFile - path to the bitmap that contains the image
; $iWidth - width of the _GUIImageList
; $iHeight - height of the _GUIImageList
; Return values .: Success - Returns 1
; Failure - @error
; Author ........: UEZ
; Version .......: 0.5 Build 2010-06-22
; Remarks .......: <GDIPlus.au3> must be included and _GDIPlus_Startup() must be started to use GDI+ functions.
; Don't forget the _GDIPlus_Shutdown() when closing
; ===============================================================================================================================
Func _GUIImageList_AddBitmapEx($hWnd, $sFile, $iWidth = 48, $iHeight = 48)
If $hWnd = 0 Or $sFile = "" Or Not IsDeclared("ghGDIPDll") Then Return SetError(1, 0, 0)
Local $iStride = 0, $iPixelFormat = 0x0026200A, $pScan0 = 0
Local $bitmap_from_file = _GDIPlus_BitmapCreateFromFile($sFile)
If @error Then Return SetError(@error, @extended, 0)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", $iStride, "int", $iPixelFormat, "ptr", $pScan0, "int*", 0)
If @error Then Return SetError(@error, @extended, 0)
Local $hClone = $aResult[6]
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hClone)
_GDIPlus_GraphicsDrawImageRect($hGraphics, $bitmap_from_file, 0, 0, $iWidth, $iHeight)
$hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hClone)
_GUIImageList_Add($hWnd, $hBmp)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_BitmapDispose($bitmap_from_file)
_GDIPlus_BitmapDispose($hClone)
_WinAPI_DeleteObject($hBmp)
Return SetError(0, 0, 1)
EndFunc -
Herzlich willkommen
-
Herzlich willkommen, Marius