#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <Word.au3>
HotKeySet("{ESC}", "ende")
Opt("GUIOnEventMode", 1)

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 1000, 600)
$Standort = GUICtrlCreateInput("", 120, 12, 130, 20)
$WKANR = GUICtrlCreateInput("", 120, 60, 130, 20)
$WKATYP = GUICtrlCreateInput("", 120, 108, 130, 20)
GUICtrlCreateLabel("Standort", 40, 12, 50, 20)
GUICtrlCreateLabel("WKA Nummer", 40, 60, 70, 20)
GUICtrlCreateLabel("WKA Typ", 40, 108, 50, 20)
$BLATTHERSTELLER = GUICtrlCreateLabel("Rotorblatthersteller", 40, 190, 130, 20)
GUICtrlCreateLabel("Blatt 1", 410, 108, 50, 20)
$Blattnummer1 = GUICtrlCreateInput("", 470, 108, 130, 25)
GUICtrlCreateLabel("Blatt 2", 410, 190, 50, 20)
$Blattnummer2 = GUICtrlCreateInput("", 470, 190, 130, 25)
GUICtrlCreateLabel("Blatt 3", 410, 272, 50, 20)
$Blattnummer3 = GUICtrlCreateInput("", 470, 272, 130, 25)
$BLATTTYP = GUICtrlCreateLabel("Blatttyp", 240, 190, 130, 20)
$Combo1 = GUICtrlCreateCombo("", 40, 210, 130, 25)
GUICtrlSetOnEvent(-1, "comboauswerten")
GUICtrlSetData(-1, "NR|Rep|R Line|Vest|Unbekannt")
$Combo2 = GUICtrlCreateCombo("", 240, 210, 130, 25)
GUICtrlSetState(-1, $GUI_HIDE)
$Button1 = GUICtrlCreateButton("Fertig", 800, 500, 100, 30)
GUICtrlSetOnEvent(-1, "Ordnererstellen")

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


Func comboauswerten()
	GUICtrlSetData($Combo2, "")
	Select
	
		Case GUICtrlRead($Combo1) = "NR"
			GUICtrlSetData($Combo2, "NR 25|NR 34")
			Case GUICtrlRead($Combo1) = "Rep"
			GUICtrlSetData($Combo2, "Rep 45.2")
		Case GUICtrlRead($Combo1) = "R Line"
			GUICtrlSetData($Combo2, "RL 41")
		Case GUICtrlRead($Combo1) = "Vest"
			GUICtrlSetData($Combo2, "V 19 B|V 20,5 A|V 23 C|V 25 A|V 32_B|V 39_A|V 44_A")
		Case GUICtrlRead($Combo1) = "Unbekannt"
			GUICtrlSetData($Combo2, "A|B")
	EndSelect
	GUICtrlSetState($Combo2, $GUI_SHOW)
EndFunc

Func Ordnererstellen()
	$Section = GUICtrlRead($Standort) & " " & GUICtrlRead($WKANR)
	IniWrite(@ScriptDir & "\Demo.ini", $Section, "local", GUICtrlRead($Standort))
	IniWrite(@ScriptDir & "\Demo.ini.ini", $Section, "WKAnumber", GUICtrlRead($WKANR))
	IniWrite(@ScriptDir & "\Demo.ini.ini", $Section, "WKAtype", GUICtrlRead($WKATYP))
	IniWrite(@ScriptDir & "\Demo.ini.ini", $Section, "manufactor", GUICtrlRead($Combo1))
	IniWrite(@ScriptDir & "\Demo.ini.ini", $Section, "Blattype", GUICtrlRead($Combo2))
	IniWrite(@ScriptDir & "\Demo.ini.ini", $Section, "BlattNr1", GUICtrlRead($Blattnummer1))
	IniWrite(@ScriptDir & "\Demo.ini.ini", $Section, "BlattNr2", GUICtrlRead($Blattnummer2))
	IniWrite(@ScriptDir & "\Demo.ini.ini", $Section, "BlattNr3", GUICtrlRead($Blattnummer3))
	$Pfad = @DesktopDir & "\Gaudi\"
	For $a = 1 To 12
		DirCreate($Pfad & $Section & "\" & GUICtrlRead($Blattnummer1) & "\" & $a)
		DirCreate($Pfad & $Section & "\" & GUICtrlRead($Blattnummer2) & "\" & $a)
		DirCreate($Pfad & $Section & "\" & GUICtrlRead($Blattnummer3) & "\" & $a)
	Next
	DirCreate($Pfad & $Section & "\" & "Bilder")
	neu($Pfad & $Section & "\", GUICtrlRead($Blattnummer1),GUICtrlRead($Blattnummer2),GUICtrlRead($Blattnummer3),GUICtrlRead($Combo2))
	MsgBox(0,"","Fertig")
	ende()
EndFunc

func neu($Pfad,$blatt1,$blatt2,$blatt3,$Blatttyp)
	if StringInStr(GUICtrlRead($Combo2),"_")<>0 Then
		$neuerstring=StringReplace(GUICtrlRead($Combo2),"_"," ")
	Else
		$neuerstring=GUICtrlRead($Combo2)
	EndIf
	$oWordApp = _WordCreate("",0,0)
	
	
	$array = _FileListToArray("C:\Basic Doc for Demo")
	$ENDUNG = ".doc"
	For $a = 1 To $array[0]
		if stringinstr($array[$a],$Blatttyp)<>0 Then
			$oWordApp.Documents.Open("C:\Basic Doc for Demo\" & StringReplace($array[$a],".doc",""))
			$oWordApp.ActiveDocument.Tables(1).Cell(2, 2).Range.Text = GUICtrlRead($WKATYP)
			$oWordApp.ActiveDocument.Tables(1).Cell(2, 4).Range.Text = GUICtrlRead($WKANR)
			$oWordApp.ActiveDocument.Tables(1).Cell(3, 2).Range.Text = $neuerstring;GUICtrlRead($Combo2)
			$oWordApp.ActiveDocument.Tables(1).Cell(3, 4).Range.Text = $blatt1
			$hilfspfad=$Pfad & $blatt1 &"\" & $Blatttyp & $ENDUNG
			$oWordApp.ActiveDocument.SaveAs($hilfspfad)
			$oWordApp.ActiveDocument.Tables(1).Cell(3, 4).Range.Text = $blatt2
			$hilfspfad=$Pfad & $blatt2 &"\" & $Blatttyp & $ENDUNG
			$oWordApp.ActiveDocument.SaveAs($hilfspfad)
			$oWordApp.ActiveDocument.Tables(1).Cell(3, 4).Range.Text = $blatt3
			$hilfspfad=$Pfad & $blatt3 &"\" & $Blatttyp & $ENDUNG
			$oWordApp.ActiveDocument.SaveAs($hilfspfad)
			$oWordApp.Documents.close
		EndIf
	Next
	_WordQuit($oWordApp,-1,1)

EndFunc



While 1
	Sleep(10)
WEnd

Func Ende()
	Exit
EndFunc