Beiträge von BugFix

**BugFix**

Zitat von ade2k1

Nur verdammt blöd dass man der Funktion nichts übergeben kann.

Das ist zwar unschön, aber nicht dramatisch.
Du legst einfach für die durch AdlibEnable aufzurufenden Funktion Globale Variablen an. Diesen kannst du jederzeit im laufenden Programm Werte zuweisen und beim nächsten Aufruf durch AdlibEnable werden dann diese Werte verwendet. Du kannst der Funktion z.B. auch anweisen nichts zu tun, falls diese Variablen ihren Wert nicht geändert haben.
Hier mal ein einfaches Bsp.:

Spoiler anzeigen

[autoit]

Global $i1 = 0, $i1_alt = 0, $i2 = 20
HotKeySet('^!e', '_ende') ; Beende Skript mit STRG+ALT+e
AdlibEnable('_show', 500) ; Abfrage alle 1/2 Sekunde

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

While True ; jede Sekunde wird Zähler um 1 erhöht
$i1 += 1
Sleep(1000)
WEnd

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

Func _ende()
Exit
EndFunc

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

Func _show()
If ($i1 - $i1_alt) > 4 Then ; nur die 5-er Schritte anzeigen - Beginn bei 25
$i1_alt = $i1
ToolTip($i1 + $i2)
EndIf
EndFunc

[/autoit]

**BugFix**

Zitat von bernd670

BugFix das geht aber kürzer:

Das kommt davon, dass ich noch nie ein Installskript geschrieben habe, sonst hätte ich mir bestimmt die Syntax mal komplett durchgelesen

**BugFix**

Zitat von Shiru

[autoit]
MsgBox(64,$xp[0],"mal sehen")
[/autoit]
wenn dus so meintest das geht leider nicht er sagt mir: Error: Subscript used with non-Array variable

In diesem Fall hat _StringBetween() nicht zum Erfolg geführt und deshalb wurde kein Array erstellt.

**BugFix**

Zitat von Der_Doc

Man ...... ich kenne netmal die Mitternachtsformel

Mach dir nix draus, der Ausdruck ist auch nicht unbedingt wirklich als "umgangssprachlich" zu bezeichnen.
Für Otto-Normalbürger ist das immer noch die Quadratische Ergänzung:
X1,2 = -p/2 +-Wurzel(p²/4 -q)

**BugFix**

Du brauchst nur die Returns der Befehle oder den aktuellen @error-Wert auslesen und entsprechend reagieren.
Grundsätzlich ist @error = 0, wenn die Funktion erfolgreich war. Welche Errorwerte im Fehlerfall entstehen ist in der Hilfe zu den jeweiligen Funktionen zu lesen.
Wenn du auf ein Fenster wartest, solltest du ein Timeout (z.B. 10 s) einbauen, falls es geschehen kann, dass es nicht erscheint.
Also zum Bsp.:

[autoit]

; statt:
WinWaitActive('Fenster')
; besser:
$OK = False
$start = TimerInit()
Do
If WinActive('Fenster') Then $OK = True
Sleep(100)
Until (TimerDiff($start) > 10000) Or $OK
If Not $OK Then Exit MsgBox(0,'', 'Fehlgeschlagen')
; ....

[/autoit]

Kannst ja mal ein paar Funktionen von mir anschauen, ich versuche eigentlich eine intensive Fehlerbehandlung einzubauen.

**BugFix**

Wie wärs denn mit _Singleton() ?

**BugFix**

Hab soeben mal noch an der Performanceschraube gedreht und ca. 40 % Geschwindigkeitsgewinn mit der neuen Version.
Testet mal auf euren PC's, ob da ähnlich Unterschiede sind.
Hab auf meinem Laptop getestet, Celeron M 1,5 GHz, 448 MB RAM.
Im Test sortiere ich ein Array mit 2400 Zeilen und 8 Spalten, befüllt mit Zufallszahlen 1 bis 40.
Sortierung: gemischt und wechselnde Sortierrichtung, aber ALLE Spalten ineinander sortiert.

Code für Test

[autoit]

#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <array.au3>

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

Local $b[2400][8]
For $i = 0 To UBound($b) -1
For $k = 0 To UBound($b,2) -1
$b[$i][$k] = Random(1, 40, 1)
Next
Next

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

ConsoleWrite('Variante: _SQLite_GetTable2d' & @CRLF)
$sum = 0
$min = 10000
$max = 0
$endrun = 20
For $i = 1 To $endrun
$start = TimerInit()
_Array2DSortFree($b, '7|1,1|0,0|1,3|1,5|0,2|0,6|1,4|0')
$end = TimerDiff($start)
$sum += $end
If $end < $min Then $min = $end
If $end > $max Then $max = $end
ConsoleWrite($end & ', ')
If $i = $endrun Then ConsoleWrite(@CRLF)
Next
ConsoleWrite('Min: ' & $min & @CRLF)
ConsoleWrite('Max: ' & $max & @CRLF)
ConsoleWrite('Durchschnitt: ' & $sum/$endrun & @CRLF & @CRLF)

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

ConsoleWrite('Variante: _SQLite_Query + _SQLite_FetchData' & @CRLF)
$sum = 0
$min = 10000
$max = 0
$endrun = 20
For $i = 1 To $endrun
$start = TimerInit()
_Array2DSort_Free($b, '7|1,1|0,0|1,3|1,5|0,2|0,6|1,4|0')
$end = TimerDiff($start)
$sum += $end
If $end < $min Then $min = $end
If $end > $max Then $max = $end
ConsoleWrite($end & ', ')
If $i = $endrun Then ConsoleWrite(@CRLF)
Next
ConsoleWrite('Min: ' & $min & @CRLF)
ConsoleWrite('Max: ' & $max & @CRLF)
ConsoleWrite('Durchschnitt: ' & $sum/$endrun & @CRLF) ; ca. 40 % schneller als Variante 1

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

; erste Version:
Func _Array2DSortFree(ByRef $ARRAY, $sCOL_ASC)
If Not IsArray($ARRAY) Then Return SetError(1,0,1)
Local $tableStr = "CREATE TABLE tblTEST ("
Local $insertStr = '', $insertBase = "INSERT INTO tblTEST VALUES ("
Local $sortOrder = '', $sortStr = "SELECT * FROM tblTEST ORDER BY "
Local $aResult, $iRows, $iColumns, $iRval, $asc
$sCOL_ASC = StringStripWS($sCOL_ASC,
Local $ub2nd = UBound($ARRAY, 2)
If @error = 2 Then
If (StringLen($sCOL_ASC) > 3) Or (StringLeft($sCOL_ASC, 1) <> '0') Then Return SetError(2,0,1)
If StringRight($sCOL_ASC, 1) = 0 Then
_ArraySort($ARRAY)
Else
_ArraySort($ARRAY, 1)
EndIf
Return 0
Else
Local $aOut[UBound($ARRAY)][$ub2nd]
EndIf
_SQLite_Startup ()
If @error > 0 Then Return SetError(3,0,1)
$hSQL = _SQLite_Open ()
If @error > 0 Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
For $i = 0 To UBound($ARRAY, 2) -1
$tableStr &= "'field" & $i & "',"
Next
$tableStr = StringTrimRight($tableStr, 1) & ");"
For $i = 0 To UBound($ARRAY) -1
$insertStr &= $insertBase
For $k = 0 To UBound($ARRAY, 2) -1
$insertStr &= "'" & $ARRAY[$i][$k] & "',"
Next
$insertStr = StringTrimRight($insertStr, 1) & ");"
Next
If _SQLite_Exec ( $hSQL, $tableStr & $insertStr ) <> $SQLITE_OK Then
_SQLite_Close ()
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
If StringInStr($sCOL_ASC, ',') Then
Local $aOrder = StringSplit($sCOL_ASC, ',')
For $i = 1 To UBound($aOrder) -1
If StringInStr($sCOL_ASC, '|') Then
Local $var = StringSplit($aOrder[$i], '|')
$asc = ' ASC'
If $var[2] = 1 Then $asc = ' DESC'
$sortOrder &= 'field' & $var[1] & $asc & ','
Else
_SQLite_Close ()
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
Next
$sortOrder = StringTrimRight($sortOrder, 1) & ';'
Else
If (StringLen($sCOL_ASC) = 3) And (StringInStr($sCOL_ASC, '|')) Then
Local $var = StringSplit($sCOL_ASC, '|')
$asc = ' ASC'
If $var[2] = 1 Then $asc = ' DESC'
$sortOrder &= 'field' & $var[1] & $asc
Else
_SQLite_Close ()
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
EndIf
$iRval = _SQLite_GetTable2d (-1, $sortStr & $sortOrder, $aResult, $iRows, $iColumns)
If $iRval = $SQLITE_OK Then
For $i = 1 To UBound($aResult) -1
For $k = 0 To UBound($aResult,2) -1
$aOut[$i-1][$k] = $aResult[$i][$k]
Next
Next
Else
_SQLite_Close ()
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
_SQLite_Exec ($hSQL, "DROP TABLE tblTEST;")
_SQLite_Close ()
_SQLite_Shutdown ()
$ARRAY = $aOut
Return 0
EndFunc

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

; zweite Version:
Func _Array2DSort_Free(ByRef $ARRAY, $sCOL_ASC)
If Not IsArray($ARRAY) Then Return SetError(1,0,1)
Local $tableStr = "CREATE TABLE tblTEST ("
Local $insertStr = '', $insertBase = "INSERT INTO tblTEST VALUES ("
Local $sortOrder = '', $sortStr = "SELECT * FROM tblTEST ORDER BY "
Local $hQuery, $aRow, $asc, $i, $k
$sCOL_ASC = StringStripWS($sCOL_ASC,
Local $ub2nd = UBound($ARRAY, 2)
If @error = 2 Then
If (StringLen($sCOL_ASC) > 3) Or (StringLeft($sCOL_ASC, 1) <> '0') Then Return SetError(2,0,1)
If StringRight($sCOL_ASC, 1) = 0 Then
_ArraySort($ARRAY)
Else
_ArraySort($ARRAY, 1)
EndIf
Return 0
Else
Local $aOut[UBound($ARRAY)][$ub2nd]
EndIf
_SQLite_Startup ()
If @error > 0 Then Return SetError(3,0,1)
$hSQL = _SQLite_Open ()
If @error > 0 Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
For $i = 0 To UBound($ARRAY, 2) -1
$tableStr &= "'field" & $i & "',"
Next
$tableStr = StringTrimRight($tableStr, 1) & ");"
For $i = 0 To UBound($ARRAY) -1
$insertStr &= $insertBase
For $k = 0 To UBound($ARRAY, 2) -1
$insertStr &= "'" & $ARRAY[$i][$k] & "',"
Next
$insertStr = StringTrimRight($insertStr, 1) & ");"
Next
If _SQLite_Exec ( $hSQL, $tableStr & $insertStr ) <> $SQLITE_OK Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
If StringInStr($sCOL_ASC, ',') Then
Local $aOrder = StringSplit($sCOL_ASC, ',')
For $i = 1 To UBound($aOrder) -1
If StringInStr($sCOL_ASC, '|') Then
Local $var = StringSplit($aOrder[$i], '|')
$asc = ' ASC'
If $var[2] = 1 Then $asc = ' DESC'
$sortOrder &= 'field' & $var[1] & $asc & ','
Else
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
Next
$sortOrder = StringTrimRight($sortOrder, 1) & ';'
Else
If (StringLen($sCOL_ASC) = 3) And (StringInStr($sCOL_ASC, '|')) Then
Local $var = StringSplit($sCOL_ASC, '|')
$asc = ' ASC'
If $var[2] = 1 Then $asc = ' DESC'
$sortOrder &= 'field' & $var[1] & $asc
Else
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
EndIf
If _SQlite_Query (-1, $sortStr & $sortOrder, $hQuery) <> $SQLITE_OK Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
$i = 0
While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK
For $k = 0 To UBound($ARRAY,2) -1
$ARRAY[$i][$k] = $aRow[$k]
Next
$i += 1
WEnd
_SQLite_Exec ($hSQL, "DROP TABLE tblTEST;")
_SQLite_Close ()
_SQLite_Shutdown ()
Return 0
EndFunc

[/autoit]

Für den Testlauf hab ich der neuen Version einen anderen Namen verpaßt, im Anhang ist es derselbe, wie Version 1.

Edit 17.08.08: Die aktuelle Version ist in Post 15

**BugFix**

[autoit]

Send("#r")
WinWaitActive("Ausführen")
Send("notepad.exe{Enter}")

[/autoit]

Warum so kompliziert?

[autoit]

ShellExecute("notepad")

[/autoit]

[autoit]

Opt("GUIOnEventMode", 1) ; mit dieser Option kannst Du Funktionen aufrufen

[/autoit]

Kann man so nicht stehen lassen. Funktionen kannst du immer aufrufen. Der OnEventMode sorgt dafür, dass du die Events nicht per GUIGetMsg() abfragen mußt, sondern direkt verarbeiten kannst.
"Wie McPoldy schon sagt, kräftig die Hilfe lesen...."

**BugFix**

Du mußt natürlich die angegebenen Funktionen für die Hotkeys auch erstellen.
HotKeySet(Tastenkombi, Funktion)

Spoiler anzeigen

[autoit]

HotKeySet ( "{F10}" , "Start" ) ; start
HotKeySet ( "{F11}" , "End" ) ; ende des scripts
HotKeySet ( "^1", "sendText" ) ; mit strg + 1 soll der text 99000 da stehen

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

Func Start()
; Code
EndFunc

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

Func End()
; Code
EndFunc

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

Func sendText()
; Code
EndFunc

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

; den folgenden Code, dann in die entsprechende Funktion, wobei ich nicht weiß, was die Pfeiltasten sollen:
Send("{down}") ;taste drücken ### Falsch ==> Pfeiltaste abwärts wird gedrückt
Send("{up}") ; taste loslassen ### Falsch ==> Pfeiltaste aufwärts wird gedrückt
Sleep(1) ; text wird in 1 milsec eingegeben # so kurze Pause gibt es nicht
send ("99000") ; text bzw zahlen die geschreiben werden sollen

[/autoit]

Nebenbei: Das war mein Post Nr. 2000

**BugFix**

Also Spinne, warum diese abweisende Haltung
Man kann mit Autos auch Menschen totfahren, aber grundsätzlich sind sie nützlich
Das Sharen von Files per Torrent gab es schon vor den Musik- und Filmpiraten und wird auch z.B. in der Linux-Welt zum Verteilen der Images weiter genutzt. Und soweit ich das mitbekommen habe, arbeiten auch die Hochschulen damit - das Prinzip ist nunmal einfach klasse

**BugFix**

Es gibt ein praktisches Tool zum Konfigurieren von SciTE ohne Gefahr zu laufen, die Einstellungsdatei zu vermurksen.
Hier der Link.

**BugFix**

Hi,
ich habe nun für die Funktion _ArraySort_2ary eine andere Möglichkeit gefunden, mehrstufig zu sortieren.
In der neuen Version kann die Art der Sortierung völlig frei gewählt werden. Sortierung ist nicht nur 2-stufig, sondern für alle Spalten möglich.
Daher auch ein neuer Name: _Array2DSortFree().
Gerade in der mehrstufigen Sortierung großer Datenmengen ist hierbei ein gewaltiger Geschwindigkeitsvorteil entstanden.
Diese Features stehen zur Verfügung:
• Sortierung von 1D-Arrays
Sortierrichtung Ascending oder Descending
• Sortierung von 2D-Arrays
- Sortierung nach ein bis allen Spalten mehrstufig
- Für jede Spalte wird eine eigene Sortierrichtung angegeben
- Sortierreihenfolge beliebig kombinierbar
• Syntax
_Array2DSortFree($Array2Sort, 'SpaltenIndex|RichtingsIndex,SpaltenIndex|RichtingsIndex')
_Array2DSortFree($Array2Sort, '0|0,3|1')

Testet mal schön und gebt mir Feedback. ~~Dann werde ich die Funktion anstelle der _ArraySort_2ary in die ArrayMore.au3 aufnehmen.~~ Leider nicht möglich (s. hier).

Edit 10.05.2009
In der aktuellen Stable (3.3.0.0) arbeitet die Funktion _SQLite_Query() fehlerhaft. Habe sie ersetzt mit _SQLite_GetTable2d(), nun funktioniert es auch wieder.

_Array2DSortFree() mit Bsp.

[autoit]

#include <array.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>

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

Local $a[10][4] = [ _
[18,4,6,3], _
[11,5,6,3], _
[11,6,7,3], _
[14,4,4,2], _
[11,5,6,1], _
[18,4,8,1], _
[14,3,4,4], _
[11,5,7,2], _
[14,4,4,1], _
[18,4,6,2]]

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

_Array2DSortFree($a, '0|0,3|1')
_ArrayDisplay($a, 'Array sortiert, Spalte 0 ASC und innerhalb dann Spalte 3 DESC')

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

;==================================================================================================
; Function Name: _Array2DSortFree(ByRef $ARRAY, $sCOL_ASC [, $NUM=False])
; Description:: Sortierung von 1D/2D-Arrays nach freier Wahl
; 1D Sortierung Auf- oder Absteigend
; 2D mehrstufige Sortierung, Reihenfolge und Sortier-
; richtung (je Spalte) frei wählbar
; auch einzelne Spalte sortierbar
; Parameter(s): $ARRAY Das zu sortierende Array
; $sCOL_ASC String mit Sortierangaben "Spalte|Richtung [, Spalte|Richtung]"
; zu sortierende Spalte (0-Index)|Richtung (0-Asc, 1-Desc)
; z.B. Spalte 2 aufsteigend und in 2 absteigend Spalte 1
; _Array2DSortFree($ar2Sort, '1|0,0|1')
; optional $NUM "False" sortiert alphabetisch (Standard), "True" sortiert numerisch
; Return Value(s): Erfolg 0
; Fehler 1 Set Error 1 $ARRAY ist kein Array
; 2 1D-Array, aber Spaltenangabe für 2D
; 3 SQL-Fehler
; 4 Angaben für Spalte|Sortierrichtung fehlerhaft
; Requirements: #include <SQLite.au3>
; #include <SQLite.dll.au3>
; #include <Array.au3>
; Note: Es ist dringend erforderlich, die SQLite-Includes am Beginn des aufrufenden
; Skriptes auszuführen. Anderenfalls schlägt die Initialisierung der SQLite.dll
; durch _SQLite_Startup() fehl.
; Version: 3.3.0.0
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
#include-once
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
Func _Array2DSortFree(ByRef $ARRAY, $sCOL_ASC, $NUM=False)
If Not IsArray($ARRAY) Then Return SetError(1,0,1)
Local $tableStr = "CREATE TABLE [tblTEST] ("
Local $insertStr = '', $insertBase = "INSERT INTO tblTEST VALUES ("
Local $sortOrder = '', $sortStr = "SELECT * FROM tblTEST ORDER BY "
Local $aResult, $asc, $iRows, $iCol
$sCOL_ASC = StringStripWS($sCOL_ASC,
Local $ub2nd = UBound($ARRAY, 2)
If @error = 2 Then
If (StringLen($sCOL_ASC) > 3) Or (StringLeft($sCOL_ASC, 1) <> '0') Then Return SetError(2,0,1)
If StringRight($sCOL_ASC, 1) = 0 Then
_ArraySort($ARRAY)
Else
_ArraySort($ARRAY, 1)
EndIf
Return 0
Else
Local $aOut[UBound($ARRAY)][$ub2nd]
EndIf
_SQLite_Startup ()
If @error > 0 Then Return SetError(3,0,1)
$hSQL = _SQLite_Open ()
If @error > 0 Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
For $i = 0 To UBound($ARRAY, 2) -1
$tableStr &= "'field" & $i & "',"
Next
$tableStr = StringTrimRight($tableStr, 1) & ");"
For $i = 0 To UBound($ARRAY) -1
$insertStr &= $insertBase
For $k = 0 To UBound($ARRAY, 2) -1
$insertStr &= "'" & $ARRAY[$i][$k] & "',"
Next
$insertStr = StringTrimRight($insertStr, 1) & ");"
Next
If _SQLite_Exec ( $hSQL, $tableStr & $insertStr ) <> $SQLITE_OK Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
If StringInStr($sCOL_ASC, ',') Then
Local $aOrder = StringSplit($sCOL_ASC, ',')
For $i = 1 To UBound($aOrder) -1
If StringInStr($sCOL_ASC, '|') Then
Local $var = StringSplit($aOrder[$i], '|')
$asc = ' ASC'
If $var[2] = 1 Then $asc = ' DESC'
If $NUM Then
$sortOrder &= 'ABS(field' & $var[1] & ')' & $asc & ','
Else
$sortOrder &= 'field' & $var[1] & $asc & ','
EndIf
Else
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
Next
$sortOrder = StringTrimRight($sortOrder, 1) & ';'
Else
If (StringLen($sCOL_ASC) > 2) And (StringInStr($sCOL_ASC, '|')) Then
Local $var = StringSplit($sCOL_ASC, '|')
$asc = ' ASC'
If $var[2] = 1 Then $asc = ' DESC'
If $NUM Then
$sortOrder &= 'ABS(field' & $var[1] & ')' & $asc
Else
$sortOrder &= 'field' & $var[1] & $asc
EndIf
Else
_SQLite_Shutdown ()
Return SetError(4,0,1)
EndIf
EndIf
If _SQLite_GetTable2d ( $hSQL, $sortStr & $sortOrder, $aResult, $iRows, $iCol ) <> $SQLITE_OK Then
_SQLite_Shutdown ()
Return SetError(3,0,1)
EndIf
For $i = 1 To UBound($aResult) -1
For $j = 0 To UBound($ARRAY,2) -1
$ARRAY[$i-1][$j] = $aResult[$i][$j]
Next
Next
_SQLite_Exec ($hSQL, "DROP TABLE tblTEST;")
_SQLite_Close ()
_SQLite_Shutdown ()
Return 0
EndFunc ;==>_Array2DSortFree

[/autoit]

Edit:
Eines fällt mir grad noch ein, die SQLite-Includes müssen zwingend am Anfang des aufrufenden Skripts stehen.
Ist dies nicht der Fall, kann _SQLite_Startup() nicht die SQLite.dll initialisieren.
Also die Includes in die Funktions-au3 schreiben geht nicht. Habe bestimmt eine Stunde damit verbracht, diesen Fehler zu lokalisieren.

DL bisher: 25

**BugFix**

Es geht, stör dich nicht an der Fehlermeldung beim Start. Die Variablen werden ja erst zur Laufzeit erstellt, sind somit noch nicht deklariert:

[autoit]

For $i = 1 To 9
Assign('var' & $i, $i)
Next
ConsoleWrite('var1 = ' & $var1 & @CRLF)
ConsoleWrite('var2 = ' & $var2 & @CRLF)
ConsoleWrite('var3 = ' & $var3 & @CRLF)
ConsoleWrite('var4 = ' & $var4 & @CRLF)
ConsoleWrite('var5 = ' & $var5 & @CRLF)
ConsoleWrite('var6 = ' & $var6 & @CRLF)
ConsoleWrite('var7 = ' & $var7 & @CRLF)
ConsoleWrite('var8 = ' & $var8 & @CRLF)
ConsoleWrite('var9 = ' & $var9 & @CRLF)

[/autoit]

Aber um die Angaben weiter zu verarbeiten, mußt du vorab den Variablennamen kennen. Insofern weiß ich nicht, ob das was bringt.

**BugFix** · Hi, Anpassung an Prod 3.2.12.0 vorgenommen. s. 1. Post

Hi,
Anpassung an Prod 3.2.12.0 vorgenommen. s. 1. Post

**BugFix**

Zitat von fabs

komme ich per Hand auf L={4,45|0,9}

Da hast du dich vertan ;-), der Wert muß halbiert werden ( / 2*a ).

Habs mal so probiert, funzt:

[autoit]

Global $a = 1
Global $b = -4
Global $c = -2
Global $p, $x1, $x2
Global $sqrt_radikant = Sqrt($b*$b - 4*$a*$c)
$p = -1*$b
$x1 = ($p + $sqrt_radikant) / 2*$a
$x2 = ($p - $sqrt_radikant) / 2*$a
MsgBox(0, '', '$x1 = ' & $x1 & @LF & '$x2 = ' & $x2)

[/autoit]

**BugFix**

Bernd: 100% Zustimmung

**BugFix**

Ich versteh nicht, was das für einen Sinn haben soll.
Wenn sich der Wert einer Variablen ändert, so passiert das ja nicht von allein, sondern weil du es so programmiert hast. Was hindert dich, an der Stelle, wo die Wertzuweisung erfolgt, eine Aktion auszulösen, die diesen Vorgang protokolliert?
Denkbar wäre z.B. ein gepushtes Array, das auf diese Art immer die letzten 5 od. 10 od. ... Änderungen führt.
Aber ohne zu wisen, was du vorhast, ist es schwer Hilfe zu leisten.

**BugFix**

Der Funktionsaufruf stimmt schon so, wie von dir beschrieben.
progandy hat zum Aufruf den Hilfsbefehl Call benutzt. (Bei der Verwendung dieses Befehls sträuben sich mir immer die Nackenhaare, grrr, - hier macht er aber Sinn).
Wenn du dir mal die Beschreibung des Befehls Call ansiehst, merkst du, dass dort der Funktionsname als String aufgerufen wird.

**BugFix**

Zitat von ade2k1

Nur find ich keine Möglichkeit, wie ich es schaffe, dass sich der Inhalt des Input-Feldes ändert,

Die Funktion zum Aktualisieren des Inputfeldes in festen Intervallen aufrufen:

[autoit]

AdlibEnable('SetInput', $Zeitintervall_in_ms)
Func SetInput()
GUICtrlSetData($InputCtrl, $Data) ; $Data muß Globale Variable sein, wenn in anderer Funktion Wertezuweisung
EndFunc

[/autoit]

**BugFix**

Zitat von remax

Wird schon mal einiges verständlicher, aber was sind Metazeichen? Und gibt es eine Liste wo man nachschauen kann?

Die AutoIt-Hilfe bietet dir schon einiges dazu ( unter <Tutorials> <String Regular expression> ).
Du findest im Web auch einiges dazu, z.B. hier

Beiträge von BugFix

Berechnung der zeitlichen Dauer - Einbinden in eine GUI

Gibt es hilfen für Fehleranalysen?

Quelltext auslesen (bot)

Quadratische Gleichung auflösen

Gibt es hilfen für Fehleranalysen?

Prüfen ob Programm schon offen ist

ArrayMore.au3

Script mit Tastenenkombination Text Erstellen?

Script mit Tastenenkombination Text Erstellen?

torrent erzeuger selber bauen?

FAQ

ArrayMore.au3

Spezielle Variablen deklarieren

ArrayMore.au3

Quadratische Gleichung auflösen

Glühbirne ausgewechselt!!!

Var Call

Dynamische Funktionen ? Heisst das so :)

Berechnung der zeitlichen Dauer - Einbinden in eine GUI

STRG+c für Ping Script