@all: Nachdem der Threadersteller auch auf mehrmaliges Nachfragen nicht bereit ist die zu automatisierende Anwendung zu benennen und er ausseerdem schon eine Lösungsmöglichkeit hat, bitte diesen Thread nicht supporten bis er genauere Angaben macht
mfg autoBert
Und hier noch eine Alternative:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]#region - GUI Create
GUICreate('ListBox nach Zahlen sortiert',200,500)
$idList = GUICtrlCreateList("",10,10,180,480)
GUICtrlSetFont(-1,10,10,Default,"Courier New")
for $i = 0 to 999
GUICtrlSetData($idList,StringRight(" " & Random(1,9999,1),4))
Next
GUISetState()
#endregion
#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#endregion
mfg autoBert
Guten Tag allerseits!
Bereits tot geglaubt, melde ich mich doch nochmal. Danke L3viathan!
naja, bereits tod gesagte leben länger.
Guten Tag allerseits!
Leider läuft bei mir z.Z. alles etwas aus dem Ruder. Darüber hinaus habe ich mich persönlich von AutoIt abgewandt, da es nicht kompatibel zu meinem neuen Erst-Betriebssystem Linux Mint ist. Nun benutzte ich für fast alles Java.
Schade, dass du uns verlassen willst
Ein Ergebnis wird es wirklich nicht mehr geben. Ich wüsste auch nicht für welche Einsendungen, mich haben keine erreicht.
Matthias
da hätte ich ja mit meinem Minimal-Ansatz ja sogar mal einen Wettbewerb geonnen, wenn ich denn eingereicht hätte.
Guten Tag allerseits!
Der Wettbewerb selbst wird nicht im Sand verlaufen. Schnitzel und ich arbeiten gerade an einer Version 2.0, die etwas mehr Spielraum zulässt und etwas besser organisiert ist. Bis dahin... stay tuned!Beste Grüße aus dem Pott,
Matthias
bin gespannt, obwohl ich bemerkt habe dass mein Gehirn ganz schön eingerostet ist
mfg autoBert
Hallo John,
schau dir InetGet an.
@All: Da davon auszugehen ist dass diese Website (genau wie die Mehrheit üblicherweise auch) etwas dagegen hat dass Profile "automatisiert" abgerufen werden bitte ich:
@All keinen weiteren Support zu leisten.
danke autoBert
die dt. Hilfe zu AutoIt ist mir oftmals etwas zu "löchrig".
da muss ich Tweaky und den Doc in Schutz nehmen: Die deutsche Hilfe ist eine 1 zu 1 Übersetzung des Originals und annähernd fehlerfrei übersetzt. Die englische Hilfe ist auch um Welten besser als ich in meinem bisherigen Programmiererleben jemals gesehen habe.
mfg autoBert
dieses passt am besten zu _FTP_FileRename, könnte aber natürlich auch für _FTP_Open und _FTP_Connect verwendet werden.
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FTPEx.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]_example()
[/autoit] [autoit][/autoit] [autoit]Func _example()
;benennt eine Datei auf dem FTP-Server um
Local $s_ServerName = 'guest.autobert.myplace.net' ;dieser Server existiert nicht
Local $s_Username = "guest"
Local $s_Password = "TopSecret"
Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann ach mit 1 für passive Verbung testen
Local $s_OldName = "readme2.txt"
Local $s_NewName = "readme.txt"
Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP
$l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
$errOpen = @error
If Not @error Then
$l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
$errFTP = @error
If Not @error Then
_FTP_FileRename($l_FTPSession, $s_OldName, $s_NewName)
If Not @error Then
ConsoleWrite("FileRename: in Ordnung " & @CRLF)
Else
ConsoleWrite("FileRename: fehlgeschlagen " & " " & @error & @CRLF)
EndIf
Else
MsgBox(0, "Connect", "fehlgeschlagen")
ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
EndIf
Else
MsgBox(0, "Open", "fehlgeschlagen")
ConsoleWrite("Open " & " " & $errOpen & @CRLF)
EndIf
_FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
EndFunc ;==>_example
ieses passt am besten zu _FTP_FileRead, _FTP_FileGetSize, _FTP_FileOpen. Könnte aber natürlich auch für _FTP_Open und _FTP_Connect verwendet werden.
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FTPEx.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]_example()
[/autoit] [autoit][/autoit] [autoit]Func _example()
Local $s_ServerName = 'ftp.csx.cam.ac.uk' ;das ist ein real exitierender Server
Local $s_Username = ''
Local $s_Password = ''
Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann ach mit 1 für passive Verbung testen
Local $s_RemoteFile = "README"
Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP, $h_File, $sText, $iLen
$l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
$errOpen = @error
If Not @error Then
$l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
$errFTP = @error
If Not @error Then
$iLen = _FTP_FileGetSize ($l_FTPSession,$s_RemoteFile)
$h_File = _FTP_FileOpen($l_FTPSession, $s_RemoteFile)
If Not @error Then
$sText = BinaryToString(_FTP_FileRead($h_File,$iLen))
If Not @error Then
MsgBox(0, "Fileread", $sText)
_FTP_FileClose($h_File)
Else
ConsoleWrite("FileRead: fehlgeschlagen " & " " & @error & @CRLF)
EndIf
Else
ConsoleWrite("FileOpen: fehlgeschlagen " & " " & @error & @CRLF)
EndIf
Else
MsgBox(0, "Connect", "fehlgeschlagen")
ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
EndIf
Else
MsgBox(0, "Open", "fehlgeschlagen")
ConsoleWrite("Open " & " " & $errOpen & @CRLF)
EndIf
_FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
EndFunc ;==>_example1
Hallo kilo,
herzlich willkommen im Forum und viel Spass mit AutoIt.
Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee
und jetzt zu deiner Frage: das kommt daher dass du di LV-Items mit einer Funktion aus der UDf erstellt hast. GuiCtrlRead funktioniert aber nur mit den nativen (fest eingebauten) Funktionen von AutoIt. Und selbst dann hättest du nur den Index erhalten. Warum du auch mit _FileListToArray und FileFindFirstFile / FileFindNextFile den Ordner 2 mal durchsuchst verstehe ich nicht. Mein Lösungsvorschlag wäre:
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
Global $sPath = @ScriptDir & "\" ;Pfad anpassen
Global $aFiles[1]
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$aFiles = _FileListToArray($sPath, "*.txt", 1)
[/autoit] [autoit][/autoit] [autoit]_Loeschen_aus_Liste()
[/autoit] [autoit][/autoit] [autoit]Func _Loeschen_aus_Liste()
[/autoit] [autoit][/autoit] [autoit]Local $idLV_Files, $idBtn_Delete, $dtTime, $msg, $aInfo
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Create GUI
GUICreate(" Datei zum Löschen auswählen", 500, 400)
$idBtn_Delete = GUICtrlCreateButton("die markierte Datei löschen", 150, 220, 200, 30)
[/autoit] [autoit][/autoit] [autoit]$idLV_Files = GUICtrlCreateListView("Name der Datei|Erstellungsdatum", 3, 20, 494, 175)
_GUICtrlListView_SetColumnWidth($idLV_Files, 0, 300)
_GUICtrlListView_SetColumnWidth($idLV_Files, 1, 300)
For $i = 1 To $aFiles[0]
$dtTime = FileGetTime($sPath & $aFiles[$i], 0)
GUICtrlCreateListViewItem($aFiles[$i] & "|" & $dtTime[2] & "." & $dtTime[1] & "." & $dtTime[0] & " " & $dtTime[3] & ":" & $dtTime[4] & " Uhr", $idLV_Files)
Next
GUISetState()
Do
$msg = GUIGetMsg()
If $msg = $idBtn_Delete Then
$aInfo = StringSplit(GUICtrlRead(GUICtrlRead($idLV_Files, 1)),"|") ;über GuiCtrlRead
;$aInfo = _GUICtrlListView_GetItemTextArray($idLV_Files) ;oder fertige Funktion
if MsgBox(36, "Datei: " & $aInfo[1], "erstellt am " & $aInfo[2] &@CRLF & "wirklich löschen?") = 6 Then
ConsoleWrite("Datei " & $aInfo[1] & " würde gelöscht!" & @CRLF)
Else
ConsoleWrite("Datei " & $aInfo[1] & " würde nicht gelöscht!" & @CRLF)
EndIf
EndIf
Until $msg = $GUI_EVENT_CLOSE
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>_Loeschen_aus_Liste
[/autoit]mfg autoBert
schön, dann ist dein Problem ja gelöst, schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)
mfg autoBert
Funktioniert leider nicht !
Die Fehlerbeschreibung ist leider etwas zu nichts sagend.
Ich habe zwar kein Excel, bin der Meinung sollte aber so funktionieren:
#include <Excel.au3>
#include <Array.au3>
#include <Ie.au3>
Dim $aArrayNr[2]
[/autoit] [autoit][/autoit] [autoit]$sFilePath = "C:\Temp\Nr.xls"
$oExcel = _ExcelBookAttach($sFilePath)
$aArrayNr = _ExcelReadArray($oExcel, 1, 1, 100, 1)
_ArrayDisplay($aArrayNr) ;zur Kontrolle
$oIE = _IEAttach("Nr.", "text")
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To UBound($aArrayNr) -1
$fNr = _IEGetObjById($oIE, "t_nr[$i]")
_IEFormElementSetValue($fNr, $aArrayNr[$i])
Next
sollten noch weitere Fargen bestehen bitte nach folgender Anweisung posten:
Ausserdem ist die Excel-Tabelle hilfreich zum durchtesten.
mfg autoBert
Hallo BugFix,
schöne Spielerei da das Makro @min eine führende 0 mit zurückgibt solltest du diese weg-"Trimmen" wie du es bei den Stunden auch schon machst,
mfg autoBert
Und hier schon etwas aufbereitet: http://de.wikipedia.org/wiki/Jugendarbeitsschutzgesetz
mfg autoBert
Hallo Hallo ,
herzlich willkommen im Forum und viel Spass mit AutoIt.
Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee .
mfg autoBert
herzlich willkommen im Forum und viel Spass mit AutoIt.
Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee
und jetzt zu
hallo cub3lab,
schau das nächste Mal selbst in das Benutzerprofil und werte diese Info aus: Letzte Aktivität Donnerstag, 9. Juli 2009, 17:25, bevor du eine Karteileiche ausgräbst,
mfg autoBert
Hallo Keule-Freiburg,
herzlich willkommen im Forum und viel Spass mit AutoIt.
Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee
und jetzt zu deinem Problem: Arrays beginnen in AutoIt (wie bei fast jeder anderen Programmiersprache auch) mit dem Element 0. Du musst es also so machen:
[autoit]#include <array.au3>
Dim $aArrayNr[2]
Dim $aArrayNr1[2]
$aArrayNr[0] = "Holger"
$aArrayNr[1] = "Jon"
For $i = 0 To 1
$aArrayNr1[$i] = $aArrayNr[$i]
Next
_ArrayDisplay($aArrayNr1) ;zu Kontrollzwecken kann gelöscht werden
mfg autoBert
Hallo Robinx3,
herzlich willkommen im Forum und viel Spass mit AutoIt.
Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee .
mfg autoBert
Ich kann euch aus sicherheitsgründen die richtige Adresse nicht sagen. Der Port ist aber der selbe.
Dann kann man dir auch nicht helfen.
mfg autoBert
Hallo kunstlust,
mach es so:
[autoit]#include<Array.au3>
Local $dateiname = @WorkingDir & "\test.ini"
Local $ininames = IniReadSectionNames($dateiname)
;_ArrayDisplay($ininames)
For $i = 1 to $ininames[0]
$program = IniReadSection($dateiname, $ininames[$i])
; _ArrayDisplay($program)
For $t = 1 To $program[0][0]
If @error Then ExitLoop
ConsoleWrite($ininames[$i] & " => " & $program[$t][0] & "=" & $program[$t][1] & @CRLF)
Next
Next
und es klappt,
mfg autoBert
Hallo R4z0r,
erstelle ein Array und arbeite dieses in einer Schleife ab. Dabei könnte
[autoit]_FTP_ListToArrayEx
[/autoit]hilfreich sein,
mfg autoBert
Nachdem Sie den Ukash oder Paysafecard* Voucher gekauft haben, geben sie den auf unserer Homepage ein.
Auf welcher Homepage? Das ganze ist wohl eher als (verspäteter) Aprilscherz zu werten.
mfg autoBert
