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?