Beiträge von gmmg

    $csv_array_merge = ""

    ;----------------------------------------------------------------------
    $exportFile_merge = $mainfolder_path & $combo_txt & "\results_temp\results-" & $Survey_Name & ".csv"

    If FileExists($exportFile_merge) Then FileDelete($exportFile_merge)
    If Not FileExists($exportFile_merge) Then _FileCreate($exportFile_merge)
    ;----------------------------------------------------------------------

    $exportFile_0 = $mainfolder_path & $combo_txt & "\results_temp\results-" & $Survey_Name & "_0.csv"
    $exportFile_1 = $mainfolder_path & $combo_txt & "\results_temp\results-" & $Survey_Name & "_1.csv"

    _FileReadToArray($exportFile_0, $csv_array_0)  ; ohne Zusatzfelder
    _ArrayDisplay($csv_array_0)

    _FileReadToArray($exportFile_1, $csv_array_1)  ; mit Zusatzfeldern
    _ArrayDisplay($csv_array_1)


        For $e = 1 to UBound($csv_array_1) -2

            $csv_array_1_splitt = StringSplit($csv_array_1[$e],";")

            $sRange = "0-13"
            _ArrayDelete($csv_array_1_splitt, $sRange)

            ; $csv_array_merge &= $csv_array_0[$e] &";"& $csv_array_1_splitt[0] &";"&  $csv_array_1_splitt[1] &";"&  $csv_array_1_splitt[2] &";"&  $csv_array_1_splitt[3] &";"& $csv_array_1_splitt[4] & @CR  ; ist aktuell noch nicht an das neue Merge angepasst.

        Next

        FileWrite($exportFile_merge, $csv_array_merge)

        ;FileDelete($exportFile_0)    ;delete Results File1
        ;FileDelete($exportFile_1)    ;delete Results File2

#---------------------------------------------------------
# Automatically answer all prompts negatively not to stall
#---------------------------------------------------------

# the script on errors
option batch on

# Disable overwrite confirmations that conflict with the previous
option confirm off

# Connect using a password
# open ftp:user:pass@ipadress -explicittls
open ftp:user:pass@server -explicittls

# Change remote directory
cd /Verzeichnis

# Force binary mode transfer
option transfer binary

# Download file to the local directory d:\ löscht danach das file vom ftp
get -delete meine-Datei*.txt d:\Download\

# Disconnect
close

# Exit WinSCP
exit

##RequireAdmin
#include <array.au3>
#include <TaskScheduler.au3>

Local $oService
Local $aArray

$oService = _TS_Open()
;~ $aArray = _TS_TaskList($oService)
;~ If @error Then MsgBox(0, @error, @extended)
;~ _ArrayDisplay($aArray)

; *****************************************************************************
; Check if a folder exists and create folder if not
; *****************************************************************************
Global $sFolder = "\Test"
Global $iExists = _TS_FolderExists($oService, $sFolder)
If Not @error Then
    MsgBox($MB_ICONINFORMATION, "_TS_FolderExists", "Checked folder: " & $sFolder & @CRLF & "Exists: " & $iExists)
    Global $aTaskProperties = _TS_FolderCreate($oService, $sFolder)
        If Not @error Then
            MsgBox($MB_ICONINFORMATION, "_TS_FolderCreate", "Folder: " & $sFolder & " successfully created!")
        Else
            MsgBox($MB_ICONERROR, "_TS_FolderCreate", "Returned @error=" & @error & ", @extended=" & @extended & @CRLF & @CRLF & _TS_ErrorText(@error))
        EndIf

Else
    MsgBox($MB_ICONERROR, "_TS_FolderExists", "Returned @error=" & @error & ", @extended=" & @extended & @CRLF & @CRLF & _TS_ErrorText(@error))
EndIf

$sFolderName = $sFolder

$XML = "D:\Test_Task.xml"
$sTargetTaskName = "Test_Task"

Global $oTaskDefinition = _TS_TaskImportXML($oService, 2, $XML)
If @error Then Exit MsgBox($MB_ICONERROR, "_TS_TaskImportXML", "Returned @error=" & @error & ", @extended=" & @extended & @CRLF & @CRLF & _TS_ErrorText(@error))
MsgBox($MB_ICONINFORMATION, "_TS_TaskImportXML", "Task Definition successfully created.")

; *****************************************************************************
; Register the new Task
; *****************************************************************************
Global $oTask = _TS_TaskRegister($oService, $sFolderName, $sTargetTaskName, $oTaskDefinition)
If @error Then Exit MsgBox($MB_ICONERROR, "_TS_TaskImportXML", "_TS_TaskRegister returned @error=" & @error & ", @extended=" & @extended & @CRLF & @CRLF & _TS_ErrorText(@error))
MsgBox($MB_ICONINFORMATION, "_TS_TaskImportXML", "Task '" & $oTask.Path & "' successfully created.")

_TS_Close($oService)

;~ @error: 1 = Host is offline
;~ 2 = Host is unreachable
;~ 3 = Bad destination
;~ 4 = Other errors



#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

$ip = ""

        ; Create a GUI with various controls.
Local $hGUI = GUICreate("Example", 300, 200)

Local $input = GUICtrlCreateInput("", 10, 10, 100, 20)
Local $ping = GUICtrlCreateButton("Ping", 120, 170, 85, 25)
Local $idCheckbox = GUICtrlCreateCheckbox("Standard Checkbox", 10, 50, 185, 25)
Local $idButton_Close = GUICtrlCreateButton("Close", 210, 170, 85, 25)

; Display the GUI.
GUISetState(@SW_SHOW, $hGUI)

; Loop until the user exits.
While 1
        Switch GUIGetMsg()
                Case $GUI_EVENT_CLOSE, $idButton_Close
                        ExitLoop

                Case $ping

                    $ip = GUICtrlRead($input)

                    MsgBox(0,"",$ip)
                    _ping($ip)

                Case $idCheckbox
                        If _IsChecked($idCheckbox) Then
                                MsgBox($MB_SYSTEMMODAL, "", "The checkbox is checked.", 0, $hGUI)
                        Else
                                MsgBox($MB_SYSTEMMODAL, "", "The checkbox is not checked.", 0, $hGUI)
                        EndIf

        EndSwitch
WEnd

; Delete the previous GUI and all controls.
GUIDelete($hGUI)

Func _IsChecked($idControlID)
        Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked


Func _ping($ip)

    ; Ping the AutoIt website with a timeout of 250ms.
    Local $iPing = Ping($ip, 1000)

    If $iPing Then ; If a value greater than 0 was returned then display the following message.
            MsgBox(0, "", "The roundtrip-time took: " & $iPing & "ms.")
            GUICtrlSetState($idCheckbox, $GUI_CHECKED)
    Else
            MsgBox(0, "", "An error occurred with @error value of: " & @error)
    EndIf

EndFunc