Beiträge von subzero007

subzero007

endlich fertig habe es nun fertig, aber so glücklich bin ich mit der lösung nicht,
hat jemand eine idee wie man das besser lösen könnte??

Spoiler anzeigen

[autoit]

#Include <GuiListBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <String.au3>

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

Global $folder,$array,$string, $sel, $stringAdd

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

Opt("GuiOnEventMode",1)
$Form1 = GUICreate("Form1", 633, 370, -1, -1)
GuiSetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Edit1 = GUICtrlCreateEdit("", 108, 48, 249, 280)
$hListBox = GUICtrlCreateList("", 370, 48, 250, 280)
$Zeile_x_einfugen = GUICtrlCreateButton("Zeile X einfügen", 10, 128, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$Zeile_yeinfugen = GUICtrlCreateButton("Zeile Y einfügen", 10, 159, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$Zeile_z_einfugen = GUICtrlCreateButton("Zeile Z einfügen", 10, 190, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$InsFol = GUICtrlCreateButton("Ordner einfügen", 440, 338, 91, 25)
GuiCtrlSetOnEvent(-1, "_insFol")
$Ordnerinhalt_Listview = GUICtrlCreateLabel("ORDNER LIST", 372, 24, 178, 20)
$DATEI_EDIT = GUICtrlCreateLabel("DATEI EDIT", 110, 24, 67, 17)
$Speichern = GUICtrlCreateButton("Speichern", 140, 338, 75, 25)
GuiCtrlSetonevent(-1, "_save")
$Edit_loeschen = GUICtrlCreateButton("Edit löschen", 220, 338, 75, 25)
GuiCtrlSetonevent(-1, "_del")
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

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

While 1
sleep(100)
WEnd

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

Func _insFol()
_GUICtrlListBox_ResetContent($hListBox)
$folder = FileSelectFolder("Wählen Sie einen Ordner aus:", @DesktopDir)
If $folder <> "" Then
; GuICtrlSetData($Edit1, "")
$array = _FileListToArray($folder, "*.ini",1)
For $i = 1 To Ubound($array)-1
_GUICtrlListBox_AddFile($hListBox, $folder&"/"&$array[$i])
Next
EndIf
EndFunc

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

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
If Not IsHWnd($hListBox) Then $hWndListBox = GUICtrlGetHandle($hListBox)
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF)
$iCode = BitShift($iwParam, 16)
Switch $hWndFrom
Case $hListBox, $hWndListBox
Switch $iCode
Case $LBN_DBLCLK
$stringAdd = ""
$sel = _GUICtrlListBox_GetCurSel($hListBox)
If $sel <> -1 Then
$read = FileRead($folder&"/"&$array[$sel+1])
$split = StringSplit($read, "")
For $i = 1 To $split[0]
If $split[$i] = "[" Then
$string &= @CRLF
EndIf
$string &= $split[$i]
Next
;GuICtrlSetData($Edit1, StringTrimLeft($string,1)&@CRLF)
GuICtrlSetData($Edit1, GUICtrlRead($Edit1) & @CRLF & StringTrimLeft($string,1)&@CRLF&@CRLF)

EndIf
EndSwitch
$string = ""
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND

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

Func _insLine()
Switch @GUI_CtrlId
Case 5

$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)

$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)

$stringAdd = @crlf & "Satz 1" & @CRLF & @CRLF

Case 6
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)

$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$stringAdd = @crlf & "Satz 2" & @CRLF & @CRLF
Case 7
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)

$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf&@CRLF , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF&@crlf , @CRLF&@CRLF)
GuICtrlSetData($Edit1, $string)
$stringAdd = @crlf & "Satz 3" & @CRLF & @CRLF
EndSwitch

$string = StringReplace(GuiCtrlRead($Edit1), @crlf&@CRLF ,$stringAdd)
GuICtrlSetData($Edit1, $string)

EndFunc

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

Func _save()
$saveFile = FileSaveDialog("Wählen Sie einen Ordner aus:", @DesktopDir,"Files(*.*)")
If $saveFile <> "" Then
FileWrite($saveFile, GuiCtrlRead($Edit1))
EndIf
EndFunc

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

Func _del()
GuICtrlSetData($Edit1, "")
EndFunc

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

Func _Exit()
Exit
EndFunc

[/autoit]

subzero007

Danke funktioniert aber wenn ich eine andere ini reinlade dann löscht er wieder den inhalt?
aber wenn ich gleiche reinlade ist alles in Ordnung????

subzero007

Hey,
bin schonmal ein Schritt weiter
Habe noch ein Problem:
Wenn ich die ini in die Editbox lade und eine Zweite ini lade sollte der inhalt nicht gelöscht werden also unten an die editbox eingefügt werden, wie mache ich das??

Spoiler anzeigen

[autoit]

#Include <GuiListBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <String.au3>

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

Global $folder,$array,$string, $sel, $stringAdd

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

Opt("GuiOnEventMode",1)
$Form1 = GUICreate("Form1", 633, 370, -1, -1)
GuiSetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Edit1 = GUICtrlCreateEdit("", 108, 48, 249, 280)
$hListBox = GUICtrlCreateList("", 370, 48, 250, 280)
$Zeile_x_einfugen = GUICtrlCreateButton("Zeile X einfügen", 10, 128, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$Zeile_yeinfugen = GUICtrlCreateButton("Zeile Y einfügen", 10, 159, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$Zeile_z_einfugen = GUICtrlCreateButton("Zeile Z einfügen", 10, 190, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$InsFol = GUICtrlCreateButton("Ordner einfügen", 440, 338, 91, 25)
GuiCtrlSetOnEvent(-1, "_insFol")
$Ordnerinhalt_Listview = GUICtrlCreateLabel("ORDNER LIST", 372, 24, 178, 20)
$DATEI_EDIT = GUICtrlCreateLabel("DATEI EDIT", 110, 24, 67, 17)
$Speichern = GUICtrlCreateButton("Speichern", 140, 338, 75, 25)
GuiCtrlSetonevent(-1, "_save")
$Edit_loeschen = GUICtrlCreateButton("Edit löschen", 220, 338, 75, 25)
GuiCtrlSetonevent(-1, "_del")
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

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

While 1
sleep(100)
WEnd

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

Func _insFol()
_GUICtrlListBox_ResetContent($hListBox)
$folder = FileSelectFolder("Wählen Sie einen Ordner aus:", @DesktopDir)
If $folder <> "" Then
GuICtrlSetData($Edit1, "")
$array = _FileListToArray($folder, "*.ini",1)
For $i = 1 To Ubound($array)-1
_GUICtrlListBox_AddFile($hListBox, $folder&"/"&$array[$i])
Next
EndIf
EndFunc

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

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
If Not IsHWnd($hListBox) Then $hWndListBox = GUICtrlGetHandle($hListBox)
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF)
$iCode = BitShift($iwParam, 16)
Switch $hWndFrom
Case $hListBox, $hWndListBox
Switch $iCode
Case $LBN_DBLCLK
$stringAdd = ""
$sel = _GUICtrlListBox_GetCurSel($hListBox)
If $sel <> -1 Then
$read = FileRead($folder&"/"&$array[$sel+1])
$split = StringSplit($read, "")
For $i = 1 To $split[0]
If $split[$i] = "[" Then
$string &= @CRLF
EndIf
$string &= $split[$i]
Next
GuICtrlSetData($Edit1, StringTrimLeft($string,1)&@CRLF)
$string = StringReplace(GuiCtrlRead($Edit1), @CRLF&@CRLF, @CRLF); & $stringAdd)
GuICtrlSetData($Edit1, $string)
$string = StringReplace(GuiCtrlRead($Edit1), @CRLF&@CRLF&@CRLF, @CRLF); & $stringAdd)
GuICtrlSetData($Edit1, $string)
$string = ""
EndIf
EndSwitch

;$string = ""

EndSwitch
Return $GUI_RUNDEFMSG

EndFunc ;==>WM_COMMAND

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

Func _insLine()
Switch @GUI_CtrlId
Case 5
$stringAdd = "Satz 1" & @CRLF & @CRLF
Case 6
$stringAdd = "Satz 2" & @CRLF & @CRLF
Case 7
$stringAdd = "Satz 3" & @CRLF & @CRLF
EndSwitch
$string = StringReplace(GuiCtrlRead($Edit1), @CRLF&@CRLF, @CRLF & $stringAdd)
GuICtrlSetData($Edit1, $string)
$string = ""
EndFunc

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

Func _save()
$saveFile = FileSaveDialog("Wählen Sie einen Ordner aus:", @DesktopDir,"Files(*.*)")
If $saveFile <> "" Then
FileWrite($saveFile, GuiCtrlRead($Edit1))
EndIf

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

EndFunc

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

Func _del()
GuICtrlSetData($Edit1, "")
EndFunc

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

Func _Exit()
Exit
EndFunc

[/autoit]

wenn ich in zeile 75

[autoit]

;$string = ""

[/autoit]

das mache dann klappt das ja auch aber meine @crlf verschwinden von der ersten ini die ich eingefügt habe??

subzero007

Als ich dir eine PN schicken wollte ist mein FireFox abgeschmiert und das ist aus der PN eine Forum eintrag geworden
Keine anhnung wie das passiert ist????

subzero007

Hat jemand erfahrung damit
ist noch ein fehler drin, kann sich das mal jemand anschauen?
es malt zwar das diagramm aber 2 verschiedene wie kommen die zustande?
und wie kann ich nur eine linie malen sowie in Post 1?

subzero007

Bin jetzt echt am Verzweifeln
wie kann ich hier

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.1.0 (beta)
Author: Prog@ndy

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

Script Function:
Moving chart

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#include<rmchart.au3>

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

$hGUI = GUICreate("Chart Test", 700,500)
_RMC_LoadDLL("rmchart.dll")

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

$ChartID = 2101
_RMC_CreateChart($hGUI, $ChartID ,10,10,300,200,$ColorBlack,0,0,"","",100)

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

_RMC_AddRegion($ChartID,0,5,-5,0)

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

_RMC_AddGrid($ChartID,1, $ColorBlack)
_RMC_AddDataAxis($ChartID,1,$RMC_DATAAXISLEFT, 0, 100 , 0 , 0, $ColorWhite , $ColorWhite ,$RMC_LINESTYLEDOT,0,"","")
_RMC_AddLabelAxis($ChartID,1,0, 1, 5, 0, 0, 0, 0, 0, $RMC_LINESTYLENONE,"")

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

Local $text = Random(1,100,1)
For $i = 1 To 99
$text &= "|" & Random(1,100,1)
Next
Global $struct
_RMC_Split2Double($text, $struct)
_RMC_AddLineSeries($ChartID, 1, $Struct, 100, 0, 0, $RMC_AREA, $RMC_AREA_FLAT , 0, True, $ColorGreen, 0, 0, 0, 0)

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

_RMC_Draw($ChartID)

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

GUISetState()

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

AdLibEnable("_Update",1000)
Func _Update()
$text = StringTrimLeft($text, StringInStr($text, "|")) & "|" & Random(1,100,1)
_RMC_Split2Double($text, $struct)
_RMC_SetSeriesData($ChartID, 1, 1, $struct, 100)
_RMC_Draw($ChartID)
EndFunc

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

While 1
Switch GUIGetMsg()
Case -3
Exit

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

EndSwitch
WEnd

[/autoit]

das einbauen???

[autoit]

#include<Inet.au3>

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

Dim $PublicIP = _GetIP()
Dim $ping = Ping("www.Ping.de", 250)

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

MsgBox(0, "Ping auf ping.de", "Die Internetadresse: " & $PublicIP & " wurde mit einem Ping von " & $ping & " gemessen.")

[/autoit]

Habe viel versucht kriege es nicht hin.
Bitte hilft mir........

subzero007

so in etwa was ich brauche aber noch ein Kleinen schupps,
ich will verschiedene Server Ping also das Antwortzeit verhalten darstellen,
wie würde ich das machen würde mich über einen kleinen Tipp freuen

subzero007

kann man auch damit Liniendiagramm erzeugen wie ich das so sehe kann man dort säulen malen??
ich wollte das ping verhalten also die antwortzeiten verschiedener server in echtzeit graphisch darstellen??

subzero007

Hallo,
habe eine frage möchte gerne Verschiedene Server Monitorn und sie Grafisch darstellen.

so in etwa: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Ja ich weiss man sollte auch etwas Code mit Posten aber tappe noch etwas im dunkeln
hat sowas schonmal jemand gemacht?

subzero007

wie gesagt mitr registry :
http://www.winfaq.de/faq_html/Conte…p?h=tip1756.htm

[autoit]

regwrite

[/autoit]

subzero007

Also wenn heute der 15.02.2009 wäre dann sollte im inputfeld ($****") xx16 geschrieben werden wie mache ich das?
über ein beispiele würde ich mich freuen Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

subzero007

ich bin schon etwas weiter kann jetzt eine Zelle lesen

[autoit]

#include <Excel.au3>
#include <Date.au3>
$sFilePath1 = "c:\Test.xls" ; Diese Datei sollte bereits existieren
$oExcel = _ExcelBookOpen($sFilePath1)
$sCellValue = _ExcelReadCell($oExcel, 2,1)
MsgBox(0, "Exiting", $sCellValue)
_ExcelBookClose($oExcel)
MsgBox(0,'',"Das heutige Datum ist:" & _NowDate())

[/autoit]

wie kann ich den eine zelle lesen ohne excel dabei aufzumachen??
Das Datum kann ich auch jetzt auslesen aber wie durchsuche ich das dokument danach und gebe den wert wieder?

subzero007

hallo Habe eine frage wie kann ich ein Bestimmtest feld auslesen un in einem Inputfeld darstellen'? Wie man ein Wert in ein Inputfeld schreibt das weiss ich.
Aber wie lesen ich eine bestimmte zelle aus?

So sieht die Beispiel datei aus: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
Also wenn heute der 16.02.2009 wäre dann sollte im inputfeld xx16 geschrieben werden wie mache ich das?
über besipiele würde ich mich freuen

Edit1:
keiner eine idee oder tipp?

bernd670: beiträge zusammengefasst.

subzero007

Hallo Gibt eigentlich eine Lotus Notes UDF?
Oder wie kann man daten aus einer notes Datenbank auslesen und anhänge lösen?

subzero007

Hallo,
möchte gerne aus einer wörtvorlage bestimmte stellen austauschen und ausdrucken wie zb bei einem serienbrief.
das feld was an word übergeben werden sollle aus einer lsitview bzw inputfeld übergeben werden, und anschliessend ausdrucken,
eine idee wie oder beispiele??

Edit1: (5h später)
keiner einen tipp?

Edit 2: (30min später)
gefunden
http://www.autoitscript.com/forum/index.php?showtopic=30461&hl=word+search+replace

bernd670: 3 Beiträge zusammengefasst!

subzero007

Hallo Leute,

habe mal ein scrit geschrieben womit ich Home und Profile verzeichnisse anlegen kann wollte meine bacht umschreiben in autoit,
es funktioniert auch
wollte gerne fehler Routinen einbauen bräuchte da mal hilfe ??
Danke

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <array.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>

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

Local $ad, $array1, $x = 0

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Home Profile anlegen", 700, 510, 257, 323)
$ListView1 = GUICtrlCreateListView("User", 24, 48, 170, 342)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 0, 160) ; setzt die 1. Spalte des Listviews auf 160 Pixel Breite
$Button1 = GUICtrlCreateButton("User Laden", 24, 400, 60, 25, 0)
$Button2 = GUICtrlCreateButton("Eine ", 24, 432, 50, 25, 0)
$Button3 = GUICtrlCreateButton("Alle", 75, 432, 50, 25, 0)
$Button4 = GUICtrlCreateButton("export1", 136, 400, 59, 25, 0)
$Button7 = GUICtrlCreateButton("Clear List", 80, 20, 59, 25, 0)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Load()
Case $Button2
_hp()
Case $Button3
_hpall()
Case $Button4
_export()
Case $Button7
_GUICtrlListView_DeleteAllItems($ListView1)

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

EndSwitch
WEnd

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

Func _export()

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

$hWnd = $ListView1
$path = FileSaveDialog('ListView-Export speichern', @ScriptDir, "CSV Datei (*.csv)")
If @error Then Exit MsgBox(0, 'Fehler', 'Keine Zieldatei gewählt.')
FileWrite($path & ".csv", _GUICtrlListView_Export($hWnd, 1, ','))

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

EndFunc ;==>_export

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

Func _Load() ;
_GUICtrlListView_DeleteAllItems($ListView1) ; Das Handle eben noch bestimmen (s. Anfang des Threads)
Local $sItem
$FileOpenDialog = FileOpenDialog("Pc Liste Wählen", @ScriptDir & "\", "Pc Liste (*.txt;*.csv)", 1 + 4)
Local $hFile = FileOpen($FileOpenDialog, 0) ; Datei zum lesen öffnen
If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
_GUICtrlListView_BeginUpdate($ListView1) ; Listview sperren
While True ; Endlosschleife
$sItem = FileReadLine($hFile) ; Zeile aus der Datei lesen
If @error Then ExitLoop ; wenn das Ende der Datei erreicht ist, dann Endlosschleife verlassen
GUICtrlCreateListViewItem($sItem, $ListView1) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
WEnd
_GUICtrlListView_EndUpdate($ListView1) ; Listview wieder freigeben
FileClose($hFile) ; Datei schließen
EndIf
EndFunc ;==>_Load

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

Func _hpall()

Local $icount = _GUICtrlListView_GetItemCount($ListView1)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($ListView1, $i)

DirCopy("\\server\share\template", "\\server\share\home\" & ($ListViewText[1]), 1)
If NOT @ERROR Then
RunWait(@ComSpec & " /c " & 'CACLS.exe \\server\share\home\' & $ListViewText[1] & ' /T /E /G domäne\' & $ListViewText[1] & ':F', "", @SW_HIDE)
Else
MsgBox(0, "", "Beim HomeLaufwerk ist ein fehler aufgetretten bitte Prüfen")
EndIf
DirCopy("\\server\share\Template", "\\server\share\profil\" & ($ListViewText[1]), 1)
If NOT @ERROR Then

RunWait(@ComSpec & " /c " & '\\server\share\profil\' & $ListViewText[1] & ' /T /E /G domäne\' & $ListViewText[1] & ':F', "", @SW_HIDE)
Else
MsgBox(0, "", "Beim Profil ist ein fehler aufgetretten bitte Prüfen")
EndIf
Next
EndFunc

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

Func _hp()

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

$ListViewText = _GUICtrlListView_GetItemTextArray($ListView1)

DirCopy("\\server\share\template", "\\server\share\home\" & ($ListViewText[1]), 1)
If NOT @ERROR Then
RunWait(@ComSpec & " /c " & 'CACLS.exe \\server\share\home\' & $ListViewText[1] & ' /T /E /G domäne\' & $ListViewText[1] & ':F', "", @SW_HIDE)

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

Else
MsgBox(0, "", "Beim HomeLaufwerk ist ein fehler aufgetretten bitte Prüfen")
EndIf
DirCopy("\\server\share\Template", "\\server\share\profil\" & ($ListViewText[1]), 1)
If NOT @ERROR Then
RunWait(@ComSpec & " /c " & '\\server\share\profil\' & $ListViewText[1] & ' /T /E /G domäne\' & $ListViewText[1] & ':F', "", @SW_HIDE)

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

Else
MsgBox(0, "", "Beim Profil ist ein fehler aufgetretten bitte Prüfen")
EndIf

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

EndFunc

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

Func _GUICtrlListView_Export($hWnd, $exType = 0, $Delim = Default) ; $exType=0 Array / $exType=1 String
If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd)
Local $row = _GUICtrlListView_GetItemCount($hWnd)
If $exType Then
If $Delim <> Default Then Local $oldDelim = Opt('GUIDataSeparatorChar', $Delim)
Local $sOut = ''
For $i = 0 To $row - 1
$sOut &= _GUICtrlListView_GetItemTextString($hWnd, $i) & @CRLF
Next
If $Delim <> Default Then Opt('GUIDataSeparatorChar', $oldDelim)
Return $sOut
EndIf
Local $col = _GUICtrlListView_GetColumnCount($hWnd)
Local $aOut[$row][$col]
If $col = 1 Then
ReDim $aOut[$row]
For $i = 0 To UBound($aOut) - 1
$aOut[$i] = _GUICtrlListView_GetItemText($hWnd, $i)
Next
Return $aOut
EndIf
For $i = 0 To UBound($aOut) - 1
For $j = 0 To UBound($aOut, 2) - 1
$aOut[$i][$j] = _GUICtrlListView_GetItemText($hWnd, $i, $j)
Next
Next
Return $aOut
EndFunc ;==>_GUICtrlListView_Export

[/autoit]

subzero007

danke hat mir sehr geholfen

subzero007

wenn ich es so mache funktioniert es:

[autoit]

RunWait(@ComSpec & " /c " & 'CACLS \\server\share\ordner /T /E /G domäne\user:F', "", @SW_HIDE)

[/autoit]

subzero007

hallo,
habe ein frage ich möchte bevor ich $stringAdd ausführe prüffen wieviele @crlf habe,
wenn ich welche habe reduzieren auf 1 @crlf wie mache ich das?

[autoit]

Func _insLine()
Switch @GUI_CtrlId
Case 5
$stringAdd = "Satz 1" & @CRLF & @CRLF
Case 6
$stringAdd = "Satz 2" & @CRLF & @CRLF
Case 7
$stringAdd = "Satz 3" & @CRLF & @CRLF
EndSwitch
$string = StringReplace(GuiCtrlRead($Edit1), @CRLF&@CRLF ,@CRLF & $stringAdd)

GuICtrlSetData($Edit1, $string)
$string = ""
EndFunc

[/autoit]

subzero007

was mache ich falsch?

[autoit]

RunWait(@ComSpec & " /c " & 'CACLS.exe \\server\share\' & ($ListViewText[1]) & '/T /E /G domäne\' & ($ListViewText[1]) & ':F', "", @SW_HIDE)

[/autoit]

Beiträge von subzero007

Listview Editbox

Listview Editbox

Listview Editbox

Excel

Ping Statistik

Ping Statistik

Ping Statistik

Ping Statistik

Ping Statistik

Startmenü deaktivieren

Excel

Excel

Excel

LOTUS NOTES

Word Serienbrief

Verzeichniss Kopieren Umbennen Rechte setzten Fehler Routine

Syntax fehler?

Syntax fehler?

StringReplace

Syntax fehler?