Beiträge von BugFix

**BugFix**

Das ist easy, einfach die umbenannten Dateipfade mit zurückgeben lassen.

Spoiler anzeigen

[autoit]

$sPfad = "D:\para\dib\"
$aRenamedFiles = _AddExt_txt($sPfad)

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

; == Bearbeitung

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

; == Rückbenennen
_Rename_Back($aRenamedFiles)

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

Func _AddExt_txt($_sPath)
Local $oFSO = ObjCreate('Scripting.FileSystemObject')
Local $oFile, $sExt
Local $aFiles = _GetFilesFolder_Rekursiv($_sPath, -1, 0)
Local $sRet = ''
For $i = 1 To $aFiles[0]
$oFile = $oFSO.GetFile($aFiles[$i])
$sExt = $oFSO.GetExtensionName($oFile)
If $sExt = '0' Then
$oFSO.MoveFile($aFiles[$i], $aFiles[$i] & '.txt')
$sRet &= $aFiles[$i] & '.txt' & Chr(0)
EndIf
Next
Return StringSplit(StringTrimRight($sRet, 1), Chr(0))
EndFunc

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

Func _Rename_Back($_aFiles)
For $i = 1 To $_aFiles[0]
FileMove($_aFiles[$i], StringTrimRight($_aFiles[$i], 4))
Next
EndFunc

[/autoit]

**BugFix**

Festzustellen, ob eine Datei keine Endung hat ist mit AutoIt an sich nichht möglich, da nur der Punkt als Abgrenzung zur Extension keine Sicherheit bietet, schließlich gibt es auch Dateien mit Punkt im Namen.
Deshalb braucht es hier eine Lösung, die explizit auf die Erweiterung zugreifen kann.

Spoiler anzeigen

[autoit]

$sPfad = "D:\para\dib\"
_AddExt_txt($sPfad)

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

Func _AddExt_txt($_sPath)
Local $oFSO = ObjCreate('Scripting.FileSystemObject')
Local $oFile, $sExt
Local $aFiles = _GetFilesFolder_Rekursiv($_sPath, -1, 0)
For $i = 1 To $aFiles[0]
$oFile = $oFSO.GetFile($aFiles[$i])
$sExt = $oFSO.GetExtensionName($oFile)
If $sExt = '0' Then $oFSO.MoveFile($aFiles[$i], $aFiles[$i] & '.txt')
Next
EndFunc

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

;==================================================================================================
; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0 ,[$sDelim='0']]]])
; Description: Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
; optional: $iRetType 0 gibt Array, 1 gibt String zurück
; optional: $sDelim legt Trennzeichen für Stringrückgabe fest
; 0 -@CRLF (Standard) 1 -@CR 2 -@LF 3 -';' 4 -'|'
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0, $sDelim='0')
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFiles = ''
Switch $sDelim
Case '1'
$sDelim = @CR
Case '2'
$sDelim = @LF
Case '3'
$sDelim = ';'
Case '4'
$sDelim = '|'
Case Else
$sDelim = @CRLF
EndSwitch
If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
If $sExt = -1 Then $sExt = '*'
If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
_ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir,$sDelim)
If $iRetType = 0 Then
Local $aOut
$aOut = StringSplit(StringTrimRight($strFiles, StringLen($sDelim)), $sDelim, 1)
If $aOut[1] = '' Then
ReDim $aOut[1]
$aOut[0] = 0
EndIf
Return $aOut
Else
Return StringTrimRight($strFiles, StringLen($sDelim))
EndIf
EndFunc

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

Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1, $Delim=@CRLF)
If Not IsDeclared("strFiles") Then Global $strFiles = ''
If ($Dir = -1) Or ($Dir = 0) Then
For $file In $Folder.Files
If $Ext <> '*' Then
If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
$strFiles &= $file.Path & $Delim
Else
$strFiles &= $file.Path & $Delim
EndIf
Next
EndIf
For $Subfolder In $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & $Delim
_ShowSubFolders($Subfolder, $Ext, $Dir, $Delim)
Next
EndFunc

[/autoit]

**BugFix**

Hier liegt der Fehler

[autoit]

Switch $hWndFrom
Case $List_r_Report ; Events der Listbox

[/autoit]

Switch verwendet das Handle und im Case-Zweig gibst du die ID an. Verwende auch dort das Handle:

[autoit]

GUICtrlGetHandle($List_r_Report)

[/autoit]

**BugFix**

Du hast doch ein Standard-Treeview-Control. Dann kannst du es doch mit der Treeview-UDF bedienen.
Hol dir das Handle des Treeview, mit _GUICtrlTreeView_GetSelection($hWnd) erhältst du das Handle des Item und kannst dann dieses für weitere Funktionen nutzen (z.B. ..._GetText).

**BugFix**

Ich hab mal eine Lösung inkl. Verschleierungsfunktion erstellt. Habe ich per PN geschickt. Schließlich sollen deine User nicht Gelegenheit haben, hier nachzulesen, wie sie die Prüfung hintergehen können.

**BugFix**

Zitat von NewAnime

Okay habs, musste nur die Variable am Ende durch $GUI ersetzen.

Nein, das ist falsch. $ES_Center ist ein Style für das Label. Da muß nur das entsprechende Include eingebunden werden.

**BugFix**

Ich habs dir mal auf die Schnelle gebastelt. Aber wenn du selbst mit Grundlagen-GUI Probleme hast, sehe ich schwarz für ein Spiel.

Spoiler anzeigen

[autoit]

Global $aTeams[10] = ['Team A', 'Team B', 'Team C', 'Team D', 'Team E', 'Team F', 'Team G', 'Team H', 'Team I', 'Team J']
Global $aRandomIndex = _GetRandomOrder()

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

Global $GUI, $aInTeam[10], $btNext, $iCounter = 0

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

$GUI = GUICreate('Auslosung der Paarungen', 470, 200)
$aInTeam[0] = GUICtrlCreateInput('', 10, 20, 150, 20)
$aInTeam[1] = GUICtrlCreateInput('', 190, 20, 150, 20)
$aInTeam[2] = GUICtrlCreateInput('', 10, 50, 150, 20)
$aInTeam[3] = GUICtrlCreateInput('', 190, 50, 150, 20)
$aInTeam[4] = GUICtrlCreateInput('', 10, 80, 150, 20)
$aInTeam[5] = GUICtrlCreateInput('', 190, 80, 150, 20)
$aInTeam[6] = GUICtrlCreateInput('', 10, 110, 150, 20)
$aInTeam[7] = GUICtrlCreateInput('', 190, 110, 150, 20)
$aInTeam[8] = GUICtrlCreateInput('', 10, 140, 150, 20)
$aInTeam[9] = GUICtrlCreateInput('', 190, 140, 150, 20)
For $i = 0 To 4
GUICtrlCreateLabel('vs.', 160, ($i*30)+23, 30, 17, $ES_CENTER)
Next
$btNext = GUICtrlCreateButton('Nächstes Team', 360, 20, 100, 21)

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

GUISetState()

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

While True
Switch GUIGetMsg()
Case -3
Exit
Case $btNext
If $iCounter < 10 Then
GUICtrlSetData($aInTeam[$iCounter], $aTeams[$aRandomIndex[$iCounter]])
$iCounter += 1
EndIf
EndSwitch
WEnd

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

Func _GetRandomOrder() ; == erstellt ein Array mit Index 0 bis 9 in zufälliger Reihenfolge
Local $sOrder = '', $tmpRandom, $iCount = 0
Do
$tmpRandom = Random(0,9,1)
If Not StringInStr($sOrder, $tmpRandom) Then
$iCount += 1
$sOrder &= $tmpRandom & ' '
EndIf
Until $iCount = 10
Return StringSplit(StringTrimRight($sOrder,1), ' ', 2)
EndFunc

[/autoit]

**BugFix**

Na klar. Brauchst doch nur die Konsolenausgabe in einer GUI ausgeben. Das zufällige Zusammenstellen muß doch nicht erst im Moment der GUI-Ausgabe erfolgen, das erledigst du vorher. Und dann zeigst du nur einen nach dem anderen in der zufälligen Folge in der GUI an.

**BugFix**

Guckst du:

[autoit]

Global $aTeams[10] = ['Team A', 'Team B', 'Team C', 'Team D', 'Team E', 'Team F', 'Team G', 'Team H', 'Team I', 'Team J']

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

$aRandomIndex = _GetRandomOrder()
For $i = 0 To UBound($aRandomIndex) -1
ConsoleWrite($aTeams[$aRandomIndex[$i]] & @CRLF)
Next

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

Func _GetRandomOrder() ; == erstellt ein Array mit Index 0 bis 9 in zufälliger Reihenfolge
Local $sOrder = '', $tmpRandom, $iCount = 0
Do
$tmpRandom = Random(0,9,1)
If Not StringInStr($sOrder, $tmpRandom) Then
$iCount += 1
$sOrder &= $tmpRandom & ' '
EndIf
Until $iCount = 10
Return StringSplit(StringTrimRight($sOrder,1), ' ', 2)
EndFunc

[/autoit]

**BugFix**

Zitat von NewAnime

also sobald ich das Programm öffne, werden die ganzen Paarungen angezeigt.

Das erste Ergebnis-Array zeigt dir alle Paarungen für alle Spieltage. Jeder spielt einmal gegen jeden. Dazu sind eine von der Gesamtzahl der Mannschaften abhängige Spieltage erforderlich. Deshalb auch die Anzeige: Spieltag | Paarung

Zitat von NewAnime

Wenn ich es schkließe öffnet sich ein weiteres Fenster was mit von Team F alle Heimspiele anzeigt

Das ist nur ein Bsp.-Aufruf. Das kannst du für jede Mannschaft aufrufen. Denn sicher ist es in deinem Game erforderlich, dass du weißt, welchen Gegner an welchem Spieltag deine Mannschaft hat.

Zitat von NewAnime

Beim erneuten schließen bekomme ich alle Spiele vom Spieltag 2 angezeigt.

Wiederum ein Bsp.-Aufruf. Diese Funktion ermöglicht dir alle Paarungen an einem bestimmten Spieltag abzurufen.

Zitat von NewAnime

Was mir aber auffällt ist, dass er nicht die Paarungen jedes mal neu auslost, sondern immer das selbe angezeigt wird.

Zitat von NewAnime

Also das die Paarungen jedesmal neu gemischt werden. Ansonsten weiß man ja jede Saison schon das der erste Spieltag Team A gg Team J antreten muss.

Das wäre ja katastrophal, wenn die Paarungen neu gemischt werden, obwohl der Ligaplan nicht ausgespielt wurde!
Am ersten Spieltag stehen alle Paarungen für die gesamte Saison fest. Da ändert sich bis Saisonende nichts mehr dran.
Für eine neue Saison kannst du dann ja die Mannschaften im Array zufällig umsortieren und dann einen neuen Spielplan generieren.
Das Skriptbsp. von mir ist übrigens, wie du vielleicht bemerkt hast, nur eine Halbsaison. Dieselben Paarungen (nur Heim/Auswärts wechselnd) hast du natürlich dann in der Rückrunde. Überleg dir einfach einen sinnvollen Algorithmus um diese Umverteilung vorzunehmen.
Ich habe auch nicht integriert, dass eine Mannschaft abwechselnd Heim und Auswärts spielt. Das solltest du natürlich in die Funktion _CreatePairs() mit einfließen lassen. Etwas Arbeit soll ja auch für dich bleiben.
Ich wollte dir nur den rechnerischen Anstoß geben, wie man die Kombinationen für beliebig viele (geradzahlige) Mannschaften bilden kann.

**BugFix**

Deklariere die Variablen in der Funktion als

[autoit]

Local Static $Variable

[/autoit]

Sie wird beim ersten Aufruf initialisiert (falls du einen Startwert zuweist, mit diesem) und behält auch nach Funktionsende den aktuellen Wert. Mit diesem wird dann beim nächsten Funktionsaufruf fortgesetzt.

**BugFix**

Suchwort"Hotkey Skript"

[Beispiel] - Benutzer einen beliebigen Hotkey auswählen lassen

**BugFix**

Benutze mal die Forensuche, dazu wurden schon mehrere Lösungen gepostet.

**BugFix**

Fein, ist gebookmarked.

**BugFix**

Na dann wollen wir dir mal helfen

Edit: Ich habe es noch mal überarbeitet und etwas "professionalisiert"
Ich gehe mal von aus, dass immer eine geradzahlige Anzahl an Mannschaften vorhanden ist.

Edit2: Ich habe mal noch 2 Funktionen zum Ermitteln der Spiele eines Teams (Hin- und/oder Rückspiele) bzw. der Paarungen eines bestimmten Spieltages hinzugefügt.

Spoiler anzeigen

[autoit]

#Include <Array.au3>
Global $a[10] = ['Team A','Team B','Team C','Team D','Team E','Team F','Team G','Team H','Team I','Team J']

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

Global $iTeams = UBound($a)
Global $iMatchDays = $iTeams + Mod($iTeams, 2) -1
Global $iMatchesPerDay = ($iTeams - Mod($iTeams, 2))/2
Global $iMatches = $iMatchDays*$iMatchesPerDay

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

Global $aPairs[$iMatches][3]

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

For $i = 1 To $iMatchDays
_CreatePairs($aPairs, $a, $i)
_MoveEntries($a)
Next

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

_ArrayDisplay($aPairs, 'Paarungen je Spieltag')

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

;~ $aRet = _GetMatchesTeam($aPairs, 'Team F') ; == Heim + Auswärts
$aRet = _GetMatchesTeam($aPairs, 'Team F', 'H') ; == nur Heim
_ArrayDisplay($aRet, 'Spiele "Team F"')

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

$aRet = _GetMatchesDay($aPairs, 2) ; == alle Paarungen eines bestimmten Spieltages
_ArrayDisplay($aRet, 'Spiele "Tag 2"')

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

Func _MoveEntries(ByRef $_a)
Local $aTmp = $_a
For $i = 0 To UBound($aTmp) -3
$_a[$i+1] = $aTmp[$i]
Next
$_a[0] = $aTmp[UBound($aTmp)-2]
EndFunc

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

Func _CreatePairs(ByRef $_aP, $_a, $_n)
Local Static $indx = 0
Local $i = 0, $i1 = UBound($_a) -1
For $z = 1 To $iMatchesPerDay
$_aP[$indx][0] = $_n
$_aP[$indx][1] = $_a[$i]
$_aP[$indx][2] = $_a[$i1]
$i += 1
$i1 -=1
$indx += 1
Next
EndFunc

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

Func _GetMatchesTeam(ByRef $_aPairs, $_sTeam, $_sType='G')
Local $aOut[1][3] = [[0]] ; == [Spieltag,Typ(A/H),Gegner]
Local $sOpp, $iHome = 0, $aType[2] = ['A','H']
For $i = 0 To UBound($_aPairs) -1
If $_aPairs[$i][1] = $_sTeam Or $_aPairs[$i][2] = $_sTeam Then
$sOpp = $_aPairs[$i][1]
If $_aPairs[$i][1] = $_sTeam Then
$sOpp = $_aPairs[$i][2]
$iHome = 1
EndIf
Switch $_sType
Case 'G' ; == Gesamt (Heim + Auswärts)
__AddToList($aOut, $_aPairs[$i][0], $aType[$iHome], $sOpp)
Case 'H' ; == Heim
If $aType[$iHome] = 'H' Then __AddToList($aOut, $_aPairs[$i][0], 'H', $sOpp)
Case 'A' ; == Auswärts
If $aType[$iHome] = 'A' Then __AddToList($aOut, $_aPairs[$i][0], 'A', $sOpp)
EndSwitch
EndIf
Next
Return $aOut
EndFunc

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

Func _GetMatchesDay(ByRef $_aPairs, $_iDay)
Local $aOut[1][2] = [[0]]
For $i = 0 To UBound($_aPairs) -1
If $_aPairs[$i][0] = $_iDay Then
$aOut[0][0] += 1
ReDim $aOut[$aOut[0][0]+1][2]
$aOut[$aOut[0][0]][0] = $_aPairs[$i][1]
$aOut[$aOut[0][0]][1] = $_aPairs[$i][2]
EndIf
Next
Return $aOut
EndFunc

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

Func __AddToList(ByRef $_a, $_iDay, $_sType, $_sOpp)
$_a[0][0] += 1
ReDim $_a[$_a[0][0]+1][3]
$_a[$_a[0][0]][0] = $_iDay
$_a[$_a[0][0]][1] = $_sType
$_a[$_a[0][0]][2] = $_sOpp
EndFunc

[/autoit]

**BugFix**

Zitat von Thomas55

In den Zeilen 25-28 dreht sich ja alles nur im Kreis, müßte da nicht etwas rein wie "DoEvents" aus VBA ?

Das wird mit: Opt("GUIOnEventMode", 1) erledigt.

**BugFix**

Verwende einfach die GuiMsg $GUI_EVENT_SECONDARYUP / $GUI_EVENT_SECONDARYDOWN und frage dann das Control mit GUIGetCursorInfo() ab.

**BugFix**

Ich würde mit EN_FOCUS arbeiten.
- Fokus aktiv: Starte Überwachung
- solange Fokus: nichts ändern
- wenn Fokus nicht mehr aktiv: Änderungen auswerten

**BugFix**

Danke, damit komme ich schonmal weiter.

Ich habe jetzt angefangen mir eine API-Bibliothek für Lua zu erstellen.
Aber folgende Funktion bleibt erfolglos. Siehst du einen Fehler? Ich habe zwei Varianten probiert:

PHP

local alien = require "alien"


fAPI = {}


fAPI.CreateDirectory = function(_sPath)
	local SECURITY_ATTRIBUTES = alien.defstruct {
	  {'nLength',              'int'},
	  {'lpSecurityDescriptor', 'int'},
	  {'bInheritHandle',       'int'}
	}
	local CreateDirectory = assert(alien.kernel32.CreateDirectoryA)
	CreateDirectory:types{ret = 'int', abi = 'stdcall', 'string', 'pointer'}
	local security = SECURITY_ATTRIBUTES:new()
	local ret = CreateDirectory(_sPath..string.char(0), security())
	return ret, security
end

Alles anzeigen

und:

PHP

fAPI.CreateDirectory = function(_sPath)
	local PATH_NAME = alien.defstruct {
	  {'lpPathName', 'string'}
	}
	local SECURITY_ATTRIBUTES = alien.defstruct {
	  {'nLength',              'int'},
	  {'lpSecurityDescriptor', 'int'},
	  {'bInheritHandle',       'int'}
	}
	local CreateDirectory = assert(alien.kernel32.CreateDirectoryA)
	CreateDirectory:types{ret = 'int', abi = 'stdcall', 'pointer', 'pointer'}
	local path = PATH_NAME:new()
	path.lpPathName = _sPath..string.char(0)
	local security = SECURITY_ATTRIBUTES:new()
	local ret = CreateDirectory(path(), security())
	return ret, security
end

Alles anzeigen

**BugFix**

Als erstes noch ein Hinweis zur Installation:
In der SciTEStartup.lua ist noch der Eintrag:
LoadLuaFile("alien.lua")
erforderlich.

Ich habe jetzt mal ein wenig damit gespielt, komme aber nicht zum Erfolg.
Hier ein Bsp.

PHP

local alien = require "alien"


-- Struktur erstellen
local POINTAPI = alien.defstruct {
      { 'X', 'int'},
      { 'Y', 'int'}
    }


-- Struktur anzeigen
for key,val in pairs(POINTAPI) do
	if type(val) == 'table' then
		for key1,val1 in pairs(val) do
			print(key,key1,val1)
		end
	else
		print(key,val)
	end
end
--[[      Output:
new	function: 02DBF560
offsets	Y	4
offsets	X	0
byval	function: 02A3B710
size	8
types	Y	int
types	X	int
names	1	X
names	2	Y
]]


-- Dll-Aufruf erstellen
local GetCursorPos = assert(alien.user32.GetCursorPos)
    GetCursorPos:types{ret = 'int', abi = 'stdcall', "pointer"}


--~ Zuerst habe ich versucht, ähnlich wie in deinem Bsp., die Funktion "new" anzuwenden.
local pos = POINTAPI:new()          -- ergibt aber nur ein leeres Table?


--~ Das habe ich dann als Parameter für die Funktion verwendet.
local ret = GetCursorPos(pos)
print('Erfolg: '..tostring(ret))    -- Return ist = "0" --> also kein Erfolg


--~ Ich habe nun die Struktur als Parameter übergeben:
local ret = GetCursorPos(POINTAPI)
print('Erfolg: '..tostring(ret))    -- Return ist = "0" --> also auch kein Erfolg


--~ Falls der Aufruf erfolgreich ist (und was muß ich dazu tun) - wie komme ich dann an die Daten?
--~ Ist dafür die Funktion "byval" zuständig? Mit welchen Parametern muß ich sie dann aufrufen

Alles anzeigen

Beiträge von BugFix

Dateien ohne Dateiendung

Dateien ohne Dateiendung

Frage zu Doppelklick abfragen in Listbox

Mausclick auf Treeview Item

Das Ausführen der EXE-Datei nur für die erlaubten MAC-Adressen ermöglichen?

10 verschiedene Kugel aus einem Topf ziehen ohne zurücklegen

10 verschiedene Kugel aus einem Topf ziehen ohne zurücklegen

10 verschiedene Kugel aus einem Topf ziehen ohne zurücklegen

10 verschiedene Kugel aus einem Topf ziehen ohne zurücklegen

Programm zur Ligaplan auslosung

Variablen

Hotkey -> Welche Taste wurde gedrückt?

Hotkey -> Welche Taste wurde gedrückt?

CreateResourceDLL

Programm zur Ligaplan auslosung

Vorheriger Fokus

Rechte/Linke Maustaste bei Klick auf GUI Element erkennen

Letzte Zeile in Edit ersetzen

Alien und VCLua für SciTE

Alien und VCLua für SciTE