Beiträge von XovoxKingdom

Zitat

du hast 'vergessen' zu erwähnen, wieviel du zu zahlen bereit bist!
Wenn ich mir deinen Kopf zerbrechen soll, wird das teuer

Der Auftrag steht im Bereich "Ohne Gegenleistung" und somit ist eine Angabe
der Bezahlung redundant, da sie höchstens einem "Danke" entspricht.
Hier ist mein Vorschlag:

Nabend,
vielleicht hilft dir mein "Ansatz", der vllt schon eine kleine Problemlösungsabdeckung besitzt:

Zitat

ControlClick("7-Zip 9.20 Setup","&Finisch","Button2")

@Linea: Vielleicht solltest du "&Finisch" in "&Finish" umbenennen

Du hast nur einen Flüchtigkeitsfehler eingebaut (das ' " ' fehlt in deinem Endparamter)
=>

#include <array.au3>
#include <string.au3>

$sHtmlcode = '<form method="post" id="proxyform" action=""><input type="hidden" name="i" value="YYYY-MM-DD9af9865d7876d309a071a50bc2f06421">'
$aFilter = _StringBetween($sHtmlcode,"YYYY-MM-DD",'">')

If IsArray($aFilter) Then
_ArrayDisplay($aFilter)
Else
MsgBox(0,"Error","Kein Array!")
EndIf

EDIT: Eigentlich wäre es egal, ob das ' " ' in dem Endparameter ist. Es müsste trotzdem keinen Fehler ausgeben.
Da mein Beispiel funktioniert liegt der Fehler offenbar an deinem via "_WinHttpSimpleRequest" extrahierten String!

Zitat

Kann mir denn keiner helfen?

Nach 6 Minuten schon zu pushen wird nicht gerne gesehen, zumal das "Problem" trivial ist
und mit dem Selbststudium der ziemlich ausführlichen Hilfedatei (gibts auch auf Deutsch)
binnen weniger Sekunden/Minuten machbar ist!

Damit ich hiermit wenigstens den Lerneffekt untergrabe und als Ansporn beim nächsten
mal vllt. ein wenig selbst zu experimentieren:
Zufall = Random
Ausgabe = Nachrichtenfenster = MsgBox
Textverwaltung = Datenstruktur mit Strings (= Zeichenketten) = Array
=>

Dim $aTextsammlung[3] = ["passwort123", "passwort1994", "ichbindeinpasswort"]
MsgBox(0,"Zufallsprinzip","Bitte klicken sie hier, um sich ein Passwort zu erstellen.")
MsgBox(0,"Zufällig gewähltes Passwort", $aTextsammlung[Random(0,UBound($aTextsammlung)-1,1)])

Hinsichtlich Geschwindigkeit könnte folgendes eine mögliche Optimierung sein:
- Motivation: es wird der Ausdruck nur einmal ausgewertet.

$array1 = True ; müsste jeweils mit isArray() überprüft werden
$array2 = True
$array3 = True

$result = $array3+$array2*2+$array1*4

Switch $result
Case 0;alle false
;code1
Case 1;array3 ist true
;code2
Case 2;
;code3
Case 3;array3 und 2
;code 4
Case 4;array1
;code5
Case 5;array1 und 3
;code6
Case 6;array2 und 1
;code7
Case 7;array3 und 2 und 1
;code8
EndSwitch

PS: Select Case ist (wenn ichs richtig in Erinnerung habe) noch ein stückchen schneller.

Dieser Sudokulöser gefällt mir
die Testsudokus (leicht) konnte er alle lösen - die auf Stufe schwer
dauern teilweise etwas
Ich hab den Teil der GUI etwas gekürzt (bietet sich bei Sudoku ja gradezu an,
da die Elemente in einer festen Anordnung positioniert sind)

Du musst einfach auf das Seitenladen verzichten, dann sollte es klappen.
Hier ist ein Beispiel, dass den Unterschied repräsentativ darstellt:

#include <array.au3>
#include <IE.au3>

Dim $timer[3][2]
$temp = TimerInit()
$oIE=_IECreate("autoit.de",0,1,1)
$timer[0][1]=TimerDiff($temp)
$temp=TimerInit()
_IENavigate($oIE,"google.de",0)
$timer[1][1]=TimerDiff($temp)
;hier könnte der teil stehen, der "parallel" laufen soll
_IELoadWait($oIE)
$timer[2][1]=TimerDiff($temp)
$temp = ""
$timer[0][0] = "Mit Warten"
$timer[1][0] = "Vor dem Warten"
$timer[2][0] = "Nach dem Warten"
_ArrayDisplay($timer)

Wenn die "doppelten" Titel alle mit "...(x).mp3" enden, dann sollte folgendes klappen:

#include <array.au3>
Dim $sTitel[2] = [ "Depeche Mode - Blablabla Bla [Deluxversion] (Voice Digital 123](1).mp3", "Depeche Mode - Blablabla Bla [Deluxversion] (Voice Digital 123](2).mp3"]
For $i=0 To UBound($sTitel)-1
$sTitel[$i] = StringRegExpReplace($sTitel[$i],"(.+)\(\d+\)(\.mp3)","$1$2")
Next
_ArrayDisplay($sTitel, "Replaced Arrayitems")
$sTitel = _ArrayUnique($sTitel)
$sTitel[0] = "Anzahl Titel : " & $sTitel[0]
_ArrayDisplay($sTitel,"After _ArrayUnique")

PS: Arrayunique wird bei dieser großen Sammlung sicher einiges zutun haben => auslagerung in eine Dll/Assembler/C(++)

Probier mal eins der folgenden Muster:

[\dA-z]*string[\dA-z]*test
\w*string\w*test
.*string.*test

Das erste findet als Trennzeichen Zahlen und Buchstaben,
das zweite zusätzlich noch einen Unterstrich und letzteres
akzeptiert "alle" Zeichen.
(jeweils immer keins oder beliebig viele)

hier ist eine Variante mit GuiGetMsg():

$hGui = GUICreate("simple ping display", 251, 39, -1, -1)
$lblPing = GUICtrlCreateLabel("Ping: ", 8, 8, 172, 17)
$btnClose = GUICtrlCreateButton("Close", 192, 8, 49, 25)
AdlibRegister("refreshPing", 1000)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
If (($msg == $btnClose) Or ($msg == -3)) Then
AdlibUnRegister()
Exit
EndIf
WEnd

Func refreshPing()
GUICtrlSetData($lblPing,"Ping: " & Ping("46.4.67.125",250))
EndFunc

Beim groben überfliegen der netload-AGBs hab ich keinen Absatz gefunden in dem
die Automatisierung nicht gestattet ist => müsste Forenregelkonform sein,
obwohl es einen kleinen Vorteil bietet...
@Mods: Sollte ich mich geirrt haben oder aus einem anderen Grund das Script für
unzulässig erklärt werden, so werde ich es umgehend löschen!

hier der Source:

#include <INet.au3>
$success = 0
Dim $Links[7] = [1,5,11,12,13,14,39]; ids der Subpages
ToolTip("Start",0,0)
For $i=0 To UBound($Links)-1
ToolTip("Aktuell bei : " & $i+1 & " von " & UBound($Links),0,0)
$text = _INetGetSource("http://www.netload.in/index.php?id="&$Links[$i])
If StringInStr($text,"amp;egg_id") Then
$success = 1
ExitLoop
EndIf
Next ; ab hier könnte man eine Endlosschleife starten lassen
ToolTip("DONE")
If $success Then
MsgBox(0,"Erfolg : "&$success,"String gefunden! id = " & $Links[$i])
ShellExecute("http://www.netload.in/index.php?id="&$Links[$i])
Else
MsgBox(0,"Erfolg : "&$success,"Leider fehlgeschlagen!")
EndIf
Exit

Hallo,
also mir fallen spontan 2 Ratschläge bzgl. deines Programmes ein.
1. Da du sowieso mit IniWrite/Read arbeitest, kannst du doch erstmal prüfen,
ob die Datei schon existiert (ist dies der Fall: potentiell könnte bereits ein PW
drin stehen - andernfalls logischerweise nicht). Sollte sie nicht existieren, dann
kannst du via Iniwrite einen wert setzen, der als "NichtPasswort" reserviert ist.
z.b. "-1"
Sollte beim auslesen ein solches "Passwort" auftauchen, so kannst du recht sicher sein,
dass das Passwort nicht gesetzt wurde (- andernfalls wurde es auf "-1" gesetzt...).

2. Passwörter sollten NIEMALS als Klartext gespeichert werden...
da du laut eigener Angaben noch recht neu bei der Programmierung mit AutoIt bist,
solltest du dir folgenden Thread anschauen und auch die Beispiele in der Hilfedatei
(siehe Post von autoBert)

ich hab damals in der Schule zwar auch nur "ausprobieren" gelernt, aber für kubische Gleichungen (3ten Grades) gibt es eine Formel:
http://de.wikipedia.org/wiki/Kubische_Gleichung
vllt. hilft dir das.
PS: wenn es "nur" um >diese< Nullstellen geht, dann sind folgende Werte Lösung:
x1 = -0,1334 + 0.424i
x2 = -0,1334 - 0.424i
x3 = -6.7323
(werte gerundet)
// EDIT:
auf >dieser< Seite findet man die Funktion "Lösen mit Erläuterungen"
da ist der Weg (Normalisierung, Substitution, ...) beschrieben.
Das sollte letzte Verständnisprobleme beseitigen

Zitat

Vielleicht gefällt es ja euch!

Auf jeden Fall!!
Ich bin immer wieder von deinen Künsten beeindruckt!
Computergrafik finde ich sehr interessant, drum würde es mich interessieren
woher du die Formeln hast.. oder leitest du dir das durch etwas überlegen selbst her?
Einige kleine Formeln (Drehmatrix z.B.) hab ich auch schon verwendet, aber das ist
sicherlich erst einer der ersten Schritte

Anbei ist noch ein Screenshot, der einen "Schmiereffekt" zeigt.
Liegt es an meinem vllt. nicht übermäßig schnellen Rechner?
Zumindest erscheint es mir, als hätte er ziemlich viel zutun...
snapshot

Mögen noch VIELE! weitere Scripte folgen...
MfG. ein großer Fan

c0 = c * (q^T - 1) / (q^T * r) | * (q^T * r)
c0 * (q^T * r) = c * (q^T - 1)
c0 * q^T * r = c * q^T - c | / q^T
c0 * r = c - c / q^T | - c
c0 * r - c = - c / q ^T | Kehrwert
1 / (c0 * r - c) = q^T / c | * (- c)
- c / (c0 * r - c) = q^T | log
log (- c / (c0 * r - c)) = log(q^T) | / log (q) , wegen logarithmengesetz
log (- c / (c0 * r - c)) / log(q) = T

jetzt nurnoch einsetzen
PS: q = r+1

Die Aufgabe hat mein Interesse geweckt
Ich habs geschafft die Aufgabe zu lösen:

Func KapitalAufbrauchDauer()
#cs
Grundlage ist die Formel des Rentenbarwerts:

c0 = c * (q^T - 1) / (q^T * r)

mit:
c0 = Gesamtkapital
c = Monatliche Abgänge
r = Zinsen
q = 1+r
T = Dauer in Jahren

das dann mehr oder minder geschickt umgeformt und "tada" das ist das Resultat:

#ce
$gesamtkapital = 100000
$monatsgeld = 15000
$zinsen = 0.065

Return Log((-1*$monatsgeld)/($gesamtkapital * $zinsen - $monatsgeld))/Log($zinsen+1)
EndFunc

MsgBox(0,"Kapitalverbrauch",Int(KapitalAufbrauchDauer())&" Jahr(e) dauert es!")

Die Termumformung kann ich gerne auf Nachfrage nochmal anfügen!

Sofern sich das Muster der Formatierung (= media tag) nicht ändert und immer ne mp3 ist (kann man ja leicht erweitern), dann sollte folgendes klappen:

$input = ' <media src="E:\03_Eigene Music\969\The Beginning Of Chaos\The Beginning.mp3"/>'
;funktioniert mit und ohne leerzeichen am anfang

$output = StringRegExpReplace($input, '([\t\s]*<media\ssrc=")([^"]+)\.mp3"/>', "#$2#")
MsgBox(0, "Resultat", $input & @CRLF & @CRLF & $output)

Die Funktion ist stark optimierbar, da die "Verschlüsselung" nicht sonderlich komplex ist
(ich hoffe ich hab in dem Muster nix vergessen

$text = InputBox("Title","Text plz","Douky, der Verschlüsseler ist, naja")

Func convert($in)
Return StringRegExpReplace($in,"([öüäaeiouÜÖÄAEIOU])","$1lew$1"); siehe neues Muster unten
EndFunc

MsgBox(0,"Löffelsprache",convert($text))

EDIT: ja ich sehs schon, das "ie" etc. wird nicht berücksichtigt, sollte aber machbar sein viel spaß damit
dieses Muster sollte alles treffen: (ie|au|ei|[öüäaeiouÜÖÄAEIOU])

Gefällt mir
wird sicherlich in Zukunft das eine oder andere "Edit" ersetzen und
somit viel benutzerfreundlicher implementiert werden
ich muss sagen, bisher war mir die Umsetzung mit dem IE zu umständlich/optisch nicht
so ansprechend und schwieriger umzusetzen...
"Leider" kann ich dieses Argument nicht mehr benutzen um meinen LAN-Chat
aufzuschieben

Mal ne Frage an die "Könner":
Ist es performanter die (derzeit) lokale Variable in jeder (benötigten) Funktion neu zu deklarieren + initialisieren,
oder mit Global zu arbeiten?