@closed
#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
GUICreate("Übungsbeispiel: Datei erstellen", 178, 84, 192, 124)
$Dateiname = GUICtrlCreateInput("", 24, 16, 121, 21)
$Eintragen = GUICtrlCreateButton("Eintragen", 24, 48, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".txt", "Blablablabla Text" & @CRLF) ;@CRLF = Zeilenumbruch
EndSwitch
WEnd
#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
GUICreate("Übungsbeispiel: Datei erstellen", 178, 84, 192, 124)
$Dateiname = GUICtrlCreateInput("", 24, 16, 121, 21)
$Eintragen = GUICtrlCreateButton("Eintragen", 24, 48, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".xml", "<Buildfile version="1.1">
<Action type="extract" archivePath="C:\FR\($Dateiname)" outputPath="Source" extractAll="YES" createXML="YES" xmlPath="p_($Dateiname).xml" />
</Buildfile>" & @CRLF) ;@CRLF = Zeilenumbruch
EndSwitch
WEnd
#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
GUICreate("Übungsbeispiel: Datei erstellen", 178, 84, 192, 124)
$Dateiname = GUICtrlCreateInput("", 24, 16, 121, 21)
$Eintragen = GUICtrlCreateButton("Eintragen", 24, 48, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".xml", '<Buildfile version="1.1">' & _
'<Action type="extract" archivePath="C:\FR\' & GUICtrlRead($Dateiname) & '" outputPath="Source" extractAll="YES" createXML="YES" xmlPath="p_' & GUICtrlRead($Dateiname) & '.xml" />' & _
'</Buildfile>' & @CRLF)
EndSwitch
WEnd
#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
GUICreate("Übungsbeispiel: Datei erstellen", 178, 84, 192, 124)
$Dateiname = GUICtrlCreateInput("", 24, 16, 121, 21)
$Eintragen = GUICtrlCreateButton("Eintragen", 24, 48, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".xml", '<Buildfile version="1.1">' & _
'<Action type="extract" archivePath="C:\FR\' & GUICtrlRead($Dateiname) & '" outputPath="Source" extractAll="YES" createXML="YES" xmlPath="p_' & GUICtrlRead($Dateiname) & '.xml" />' & _
'</Buildfile>' & @CRLF)
endswitch
wend
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".bat", '@echo off' & _
'cd C:\entpackt' & _
'a ' & GUICtrlRead($Dateiname) & '.xml' & _
'beenden' & @CRLF)
EndSwitch
WEnd
#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
GUICreate("Übungsbeispiel: Datei erstellen", 178, 84, 192, 124)
$Dateiname = GUICtrlCreateInput("", 24, 16, 121, 21)
$Eintragen = GUICtrlCreateButton("Eintragen", 24, 48, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".xml", '<Buildfile version="1.1">' & _
'<Action type="extract" archivePath="C:FR' & GUICtrlRead($Dateiname) & '" outputPath="Source" extractAll="YES" createXML="YES" xmlPath="p_' & GUICtrlRead($Dateiname) & '.xml" />' & _
'</Buildfile>' & @CRLF)
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".bat", '@echo off' & _
'cd C:\entpackt' & _
'a ' & GUICtrlRead($Dateiname) & '.xml' & _
'beenden' & @CRLF)
EndSwitch
WEnd
#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
GUICreate("Übungsbeispiel: Datei erstellen", 178, 84, 192, 124)
$Dateiname = GUICtrlCreateInput("", 24, 16, 121, 21)
$Eintragen = GUICtrlCreateButton("Eintragen", 24, 48, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".xml", '<Buildfile version="1.1">' & _
'<Action type="extract" archivePath="C:\entpackt\' & GUICtrlRead($Dateiname) & '" outputPath="Source" extractAll="YES" createXML="YES" xmlPath="p_' & GUICtrlRead($Dateiname) & '.xml" />' & _
'</Buildfile>' & @CRLF)
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".bat", '@echo off' & _
'cd C:\entpackt' & _
'a ' & GUICtrlRead($Dateiname) & '.xml' & _
'beenden' & @CRLF)
EndSwitch
run (@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".bat")
FileDelete(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".bat")
WEnd
Exit
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
GUICreate("Übungsbeispiel: Datei erstellen", 178, 84, 192, 124)
$Dateiname = GUICtrlCreateInput("", 24, 16, 121, 21)
$Eintragen = GUICtrlCreateButton("Eintragen", 24, 48, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".xml", '<Buildfile version="1.1">' & @CRLF & _
'<Action type="extract" archivePath="C:entpackt' & GUICtrlRead($Dateiname) & '" outputPath="Source" extractAll="YES" createXML="YES" xmlPath="p_' & GUICtrlRead($Dateiname) & '.xml" />' & @CRLF & _
'</Buildfile>' & @CRLF)
FileWrite(@ScriptDir & "\" & GUICtrlRead($Dateiname) & ".bat", '@echo off' & @CRLF & 'cd C:\entpackt' & @CRLF & 'a ' & GUICtrlRead($Dateiname) & '.xml' & @CRLF & 'beenden' & @CRLF)
EndSwitch
;Run(@ScriptDir & "" & GUICtrlRead($Dateiname) & ".bat")
;FileDelete(@ScriptDir & "" & GUICtrlRead($Dateiname) & ".bat")
WEnd