Beiträge von Echree

Echree

Ich hab sie nun als ANSI gespeichert. Funktionoiert.

Musste in die Ini aber trotzdem noch für andere Leute die die Ini editieren Kommentare einfügen.

Habe am am Anfang jetzt noch [Info] eingefügt. Damit geh ich auch dem Problem aus dem Weg wenn einer die Datei mal ausversehen Falsch speichern sollte.

PDFs werden nun wie gewünscht am richtigen Ort erstellt und gespeichert.

Echree

ich hab den Code der MSG Box mit eingefügt und ein Bild angehängt.

die Ini Datei wird ja gelsen.

bis auf [Pfade] wird alles korrekt ausgegeben.

Edit:

Habe gerade nachgeschaut ja ist als UTF 8 gespeichert

Echree

danke euch aber leider behebt das das problem nicht.

in dem versuch arbeite ich mit $spdf. Dies geht leider auch nicht

Echree

Ich habe ein kleines problem mit der IniRead funktion. Bestimmte Teile aus der Ini werden gelesen andere aber nicht

Code

[Pfade]
spdf = \\192.168.9.170\Export\office\buero\XXXX\xxxx_prozesse\Protokoll Termin\Programm\PDF
sexcel = \\192.168.9.170\Export\office\buero\XXXX\xxxx__prozesse\Protokoll Termin\Programm\Excel
mpdf = \\192.168.9.170\Export\office\buero\XXXX\xxxx__prozesse\Protokoll Termin\Programm\PDF
mexcel = \\192.168.9.170\Export\office\buero\XXXX\xxxx__prozesse\Protokoll Termin\Programm\Excel
vstart = \\192.168.9.170\Export\office\buero\XXXX\vordrucke\programme\Vorlagen\start-stop.xlsx
vmeeting = \\192.168.9.170\Export\office\buero\XXXX\vordrucke\programme\Vorlagen\meeting.xlsx

[Arten]
Abteilung = Gesamtkoordination|Dokumentation|Fertigung+Montage|Sekretariat|Konstruktion|Elektro
aStandard = Gesamtkoordination
Wo = BSP-Verw|Meeting Point|Konstruktionsbuero|Elektrobüro|Dokumentation|Chef-Buero
wStandard = Meeting Point
Tabelle = Meeting

[Start-Stop]
datum = "D8"
wo ="D9"
prolei ="D12"
sekr ="D13"
teiln ="D14"
auftr ="H7"
proj ="H8"
lfd ="H9"

[Meeting]
was = "D7"
datum ="D8"
wo ="D9"
ziel = "D11"
zust ="D12"
sekr = "D13"
teiln = "D14"
abwe = "H7"

[Themen]
t1 = "C18"
t2 = "C19"
t3 = "C20"
t4 = "C21"
t5 = "C22"
t6 = "C23"
t7 = "C24"
t8 = "C25"
z1 = "I18"
z2 = "I19"
z3 = "I20"
z4 = "I21"
z5 = "I22"
z6 = "I23"
z7 = "I24"
z8 = "I25"
zg = "I26"

[Zusammenfassung]
zf1 = "C28"
zf2 = "C29"
zf3 = "C30"
zf4 = "C31"
zf5 = "C32"
zf6 = "C33"
zf7 = "C34"
zf8 = "C35"

Alles anzeigen

C

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
#include <Date.au3>
#include <WinAPIFiles.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>


$config = "\\192.168.9.170\Export\office\buero\XXXXX\vordrucke\programme\Config\Meeting.ini"
$tabelle = IniRead($config,"Arten","Tabelle","")
$abteilung = IniRead($config,"Arten","Abteilung","")
$aStandard = IniRead($config,"Arten","aStandard","")
$wStandard = IniRead($config,"Arten","wStandard","")
$ort = IniRead($config,"Arten","Wo","")

$spdf = IniRead($config,"Pfade","spdf","")&"\"&@YEAR&"\"
$sexcel = IniRead($config,"Pfade","sexcel","")&"\"&@YEAR&"\"
$mexcel = IniRead($config,"Pfade","mexcel","")&"\"&@YEAR&"\"
$mpdf = IniRead($config,"Pfade","mpdf","")&"\"&@YEAR&"\"

#Region ### 
$startf = GUICreate("Start/Stop Meeting", 756, 795, 349, 106)
$Label21 = GUICtrlCreateLabel("Wo", 24, 56, 21, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Source Sans Pro")
$wo2 = GUICtrlCreateCombo("", 112, 56, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,$ort,$wStandard)
$Label41 = GUICtrlCreateLabel("Teilnehmer", 24, 296, 65, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Source Sans Pro")
$teil2 = GUICtrlCreateInput("", 112, 296, 585, 21)
$wann2 = GUICtrlCreateDate("2019/12/20 10:25:53", 112, 88, 146, 21, 0)
$Label81 = GUICtrlCreateLabel("Wann", 24, 88, 35, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Source Sans Pro")
$Label1 = GUICtrlCreateLabel("Projektleiter", 24, 144, 59, 17)
$prolei = GUICtrlCreateInput("", 112, 144, 145, 21)
$Auftragsnummerl = GUICtrlCreateLabel("Auftragsnummer", 24, 184, 80, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Source Sans Pro")
$Projektnummerl = GUICtrlCreateLabel("Projektnummer", 24, 224, 74, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Source Sans Pro")
$Lieferdatum = GUICtrlCreateLabel("Lieferdatum", 24, 256, 59, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Source Sans Pro")
$S = GUICtrlCreateLabel("Start/Stop Meeting ", 280, 16, 140, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Source Sans Pro")
$Auftragsnummer = GUICtrlCreateInput("", 112, 184, 145, 21)
$Projektnummer = GUICtrlCreateInput("", 112, 224, 145, 21)
$lfd = GUICtrlCreateDate("2019/12/20 10:25:53", 112, 256, 146, 21, 0)
$pdf = GUICtrlCreateCheckbox("PDF erstellen", 296, 144, 97, 17)
$pdfo = GUICtrlCreateCheckbox("PDF öffnen", 400, 144, 97, 17)
$excel = GUICtrlCreateCheckbox("Excel erstellen", 296, 168, 97, 17)
$create = GUICtrlCreateButton("Erstellen", 464, 48, 131, 49)
$exit = GUICtrlCreateButton("Verwerfen", 608, 48, 131, 49)
$Th = GUICtrlCreateTab(16, 368, 721, 385)
$Thema = GUICtrlCreateTabItem("Thema")
$T11 = GUICtrlCreateInput("", 64, 416, 585, 21)
$T21 = GUICtrlCreateInput("", 64, 456, 585, 21)
$T31 = GUICtrlCreateInput("", 64, 496, 585, 21)
$T41 = GUICtrlCreateInput("", 64, 536, 585, 21)
$T51 = GUICtrlCreateInput("", 64, 576, 585, 21)
$T61 = GUICtrlCreateInput("", 64, 616, 585, 21)
$T71 = GUICtrlCreateInput("", 64, 656, 585, 21)
$T81 = GUICtrlCreateInput("", 64, 696, 585, 21)
$Z11 = GUICtrlCreateInput("", 672, 416, 33, 21)
$Z21 = GUICtrlCreateInput("", 672, 456, 33, 21)
$Z31 = GUICtrlCreateInput("", 672, 496, 33, 21)
$Z41 = GUICtrlCreateInput("", 672, 536, 33, 21)
$Z51 = GUICtrlCreateInput("", 672, 576, 33, 21)
$Z61 = GUICtrlCreateInput("", 672, 616, 33, 21)
$Z71 = GUICtrlCreateInput("", 672, 656, 33, 21)
$Z81 = GUICtrlCreateInput("", 672, 696, 33, 21)
$Zusammenfassung = GUICtrlCreateTabItem("Zusammenfassung")
$zf11 = GUICtrlCreateInput("", 64, 416, 649, 21)
$zf21 = GUICtrlCreateInput("", 64, 456, 649, 21)
$zf31 = GUICtrlCreateInput("", 64, 496, 649, 21)
$zf41 = GUICtrlCreateInput("", 64, 536, 649, 21)
$zf51 = GUICtrlCreateInput("", 64, 576, 649, 21)
$zf61 = GUICtrlCreateInput("", 64, 616, 649, 21)
$zf71 = GUICtrlCreateInput("", 64, 656, 649, 21)
$zf81 = GUICtrlCreateInput("", 64, 696, 649, 21)
GUICtrlCreateTabItem("")
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_HIDE)
#EndRegion ### 




#Region Auswahl
$auswahl = GUICreate("Auswahl", 309, 89, 184, 129)
$start = GUICtrlCreateButton("Start/Stop", 32, 24, 107, 41)
$besp = GUICtrlCreateButton("Besprechungen", 168, 24, 99, 41)
GUISetState(@SW_SHOW)
#EndRegion ### 





func start()
    if GuiCtrlRead($excel) = $GUI_CHECKED or GuiCtrlRead($pdf) = $GUI_CHECKED Then
        $wann3 = GuiCtrlRead($wann2)
        $speicherpdf1 = $spdf&"\Start-Stop\"
        $speicherexcel1 = $sexcel&"\Start-Stop\"
        $vorlage = IniRead($config,"Pfade","vstart","")

        $oExcel=_Excel_Open(false)
        $oWorkbook=_Excel_BookOpen($oExcel,$vorlage)
        $zg = GuiCtrlRead($Z1) + GuiCtrlRead($Z11) + GuiCtrlRead($Z21) + GuiCtrlRead($Z31) + GuiCtrlRead($Z41) + GuiCtrlRead($Z51) + GuiCtrlRead($Z61) + GuiCtrlRead($Z71) + GuiCtrlRead($Z81)

        _Excel_RangeWrite($oWorkbook,$tabelle,GUiCTrlRead($wo2),IniRead($config,"Start-Stop","wo",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,$wann3,IniRead($config,"Start-Stop","wann",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($prolei),IniRead($config,"Start-Stop","prolei",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($teil2),IniRead($config,"Start-Stop","teiln",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($sekr),IniRead($config,"Start-Stop","sekr",""))

        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Auftragsnummer),IniRead($config,"Start-Stop","auftr",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Projektnummer),IniRead($config,"Start-Stop","proj",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($lfd),IniRead($config,"Start-Stop","lfd",""))



        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($T11),IniRead($config,"Themen","t1",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($T21),IniRead($config,"Themen","t2",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($T31),IniRead($config,"Themen","t3",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($T41),IniRead($config,"Themen","t4",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($T51),IniRead($config,"Themen","t5",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($T61),IniRead($config,"Themen","t6",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($T71),IniRead($config,"Themen","t7",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($T81),IniRead($config,"Themen","t8",""))

        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Z11),IniRead($config,"Themen","z1",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Z21),IniRead($config,"Themen","z2",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Z31),IniRead($config,"Themen","z3",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Z41),IniRead($config,"Themen","z4",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Z51),IniRead($config,"Themen","z5",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Z61),IniRead($config,"Themen","z6",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Z71),IniRead($config,"Themen","z7",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Z81),IniRead($config,"Themen","z8",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($Zg),IniRead($config,"Themen","zg",""))

        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($zf11),IniRead($config,"Zusammenfassung","zf1",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($zf21),IniRead($config,"Zusammenfassung","zf2",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($zf31),IniRead($config,"Zusammenfassung","zf3",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($zf41),IniRead($config,"Zusammenfassung","zf4",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($zf51),IniRead($config,"Zusammenfassung","zf5",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($zf61),IniRead($config,"Zusammenfassung","zf6",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($zf71),IniRead($config,"Zusammenfassung","zf7",""))
        _Excel_RangeWrite($oWorkbook,$tabelle,GuiCtrlRead($zf81),IniRead($config,"Zusammenfassung","zf8",""))


        ;PDF erzeugen

        if GuiCtrlRead($pdf) = $GUI_CHECKED Then
            if FileExists($speicherpdf1) then
            Else
                DirCreate($speicherpdf1)
            EndIf


            $fileformat = 57
            $datei = $speicherpdf1&$wann3&".pdf"

            With $oExcel
                .Application.DisplayAlerts = true ; Schaltet Fehlermeldungen bei Excel aus
                .ActiveWorkBook.SaveAs($datei, $Fileformat)
            EndWith
;            ShellExecute($speicherpdf1)
;            ShellExecute($vorlage)
            Msgbox(64,"test","SPDF: " & IniRead($config,"Pfade","spdf","") &@CRLF& "Vorlage: " &IniRead($config,"Pfade","vstart","") &@CRLF& "WO: " & IniRead($config,"Arten","Wo",""))

        EndIf

        ;Excel erzeugen

        if GuiCtrlRead($excel2) = $GUI_CHECKED Then
            if FileExists($speicherexcel1) Then
            Else
                DirCreate($speicherexcel1)
            EndIf

            $fileformat = 51
            $datei = $speicherpdf1&$wann3&".xlsx"
            MsgBox(1,"test",$mPDF)

            With $oExcel
                .Application.DisplayAlerts = true ; Schaltet Fehlermeldungen bei Excel aus
                .ActiveWorkBook.SaveAs($datei, $Fileformat)
            EndWith
        EndIf


        _Excel_BookClose($oWorkbook)
        _Excel_Close($oExcel)
    Else
        MsgBox(64,"Error","Bitte PDF oder Excel erstellen")


    EndIf

endFunc

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $exit
            Exit
;
        Case $besp
            GUISetState(@SW_HIDE,$auswahl)
            GUISetState(@SW_Show,$besprechung)
        Case $start
            GUISetState(@SW_HIDE,$auswahl)
            GUISetState(@SW_Show,$startf)
        
        Case $create
            start()


    EndSwitch
WEnd

Alles anzeigen

alles was auf den Key Pfade zugreift funktioniert nicht.

ich habe auch Testweise eine msgbox mit IniRead versucht, die Ausgabe bleibt aber Leer.

Ich seh wahrscheinlich den Wald vor lauter Bäumen nicht.

Kann mir wer helfen?

Echree

danke hat geklappt

Echree

Hallo ich versuche über ein Formular das Ergebniss einer Rechnung per Buttonklick ausgeben zulassen. Leider berücksichtigt er mir nicht meine Textboxen wo liegt der fehler?

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Echree\Documents\Form1.kxf
$Form1 = GUICreate("Form1", 420, 205, 616, 383)
$Label1 = GUICtrlCreateLabel("Messung V1", 17, 62, 63, 17)
$zahl2 = GUICtrlCreateInput("",89, 62, 81, 21)
$Label2 = GUICtrlCreateLabel("Messung U1", 16, 29, 64, 17)
$zahl1 = GUICtrlCreateInput("", 88, 29, 81, 21)
$Label3 = GUICtrlCreateLabel("Messung W1", 16, 96, 67, 17)
$zahl3 = GUICtrlCreateInput("",88, 96, 81, 21)
$Button1 = GUICtrlCreateButton("Rechnen", 200, 16, 161, 57, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("D:\16092010-Claim-klein_rgb.jpg", 40, 128, 353, 65, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Button1
MsGBox(64,"Ergebniss","Ergebniss:" & round(($zahl1 + $zahl2 + $zahl3) / sqrt(3), 3))

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

Case $Label1
Case $Label2
Case $Label3

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

EndSwitch
WEnd

[/autoit]

Als Ergebniss bekomm ich immer eine 10,392

Beiträge von Echree

Ini Read geht teilweise nicht

Ini Read geht teilweise nicht

Ini Read geht teilweise nicht

Ini Read geht teilweise nicht

Addieren auf Textbox

Addieren auf Textbox