Beiträge von James

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Linear_congruential_generator
Beteiligte: James1337
Skript:

Ausgabe:

BSD (seed = 0):
12345
1406932606
654583808
1358247936
2138638336
1459132416
1445521408
370866176
1896597568
1518859008


Microsoft (seed = 0):
38
7719
21238
2437
8855
11797
8365
32285
10450
30612

Problem(e): _BSD_rand() liefert falsche Werte, wurde aber meines Wissens nach richtig implementiert.

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Mad_Libs
Beteiligte: James1337
Skript:

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Luhn_test_of_credit_card_numbers
Beteiligte: James1337
Skript:

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Sockets
Beteiligte: James1337
Skript:

Stimmt natürlich auch wieder, wobei ein geeigneter Wert für maxlen in einigen Anwendungen imho auch funktionieren sollte ohne Probleme zu verursachen. Aber du hast natürlich Recht.
Edit: Ein Chatserver wäre eine solche Anwendungsmöglichkeit.

Da Server (besonders unter AutoIt-Neulingen) immer wieder ein Problem darstellen,
und ich hier auch schon einige "seltsame" Konstruktionen gesehen habe,
wollte ich einfach mal zeigen, wie ich einen TCP Server programmieren würde:

Local $Server, $Client = -1, $Data ; die wichtigsten Variablen

TCPStartup() ; TCP starten

$Server = TCPListen(@IPAddress1, 1337) ; Server starten
If @error Then
; Information an den Benutzer ausgeben, dass der Server nicht gestartet werden konnte
TCPShutdown()
Exit
EndIf

Do
If ($Client > 0) Then ; überprüfen, ob schon ein Client verbunden ist
$Data = TCPRecv($Client, 1024) ; Daten vom Client empfangen
If @error Then ; Client nicht mehr verbunden
$Client = -1 ; $Client zurücksetzen
ElseIf (StringLen($Data) > 0) Then ; Client hat etwas gesendet
; Daten verarbeiten
TCPSend($Client, $Data) ; Antwort an den Client schicken
EndIf
Else ; noch kein Client verbunden
$Client = TCPAccept($Server) ; eingehende Verbindung akzeptieren
EndIf
; andere wichtige Sachen, zum Beispiel irgendwas um die Schleife zu beenden
Until False
TCPCloseSocket($Client) ; Verbindung zum Client trennen
TCPCloseSocket($Server) ; Server beenden
TCPShutdown() ; TCP beenden
Exit ; Skript beenden

Local $Server, $Client[100], $i, $Data ; die wichtigsten Variablen
For $i = 0 To 99
$Client[$i] = -1 ; -1 = nicht verbunden
Next

TCPStartup() ; TCP starten

$Server = TCPListen(@IPAddress1, 1337) ; Server starten
If @error Then
; Information an den Benutzer ausgeben, dass der Server nicht gestartet werden konnte
TCPShutdown()
Exit
EndIf

$i = 0 ; $i zurücksetzen
Do
If ($Client[$i] > 0) Then ; überprüfen, ob der Client schon verbunden ist
$Data = TCPRecv($Client[$i], 1024) ; Daten vom Client empfangen
If @error Then ; Client nicht mehr verbunden
$Client[$i] = -1 ; $Client zurücksetzen
ElseIf (StringLen($Data) > 0) Then ; Client hat etwas gesendet
; Daten verarbeiten
TCPSend($Client[$i], $Data) ; Antwort an den Client schicken
EndIf
Else ; Client noch nicht verbunden
$Client[$i] = TCPAccept($Server) ; eingehende Verbindung akzeptieren
EndIf
$i += 1 ; $i um 1 erhöhen, damit beim nächsten Durchlauf der Schleife der nächste Client verarbeitet werden kann
If ($i = UBound($Client)) Then $i = 0 ; nach dem letzten Client wieder von vorne beginnnen
; andere wichtige Sachen, zum Beispiel irgendwas um die Schleife zu beenden
Until False
TCPCloseSocket($Client) ; Verbindung zum Client trennen
TCPCloseSocket($Server) ; Server beenden
TCPShutdown() ; TCP beenden
Exit ; Skript beenden

Zitat von Christoph54

Gibts nen Freiwilligen der meine Snippets, wenn sie okay sind hochläd?

Ja, kann ich machen.
//Edit: Immer diese vorschnellen Entscheidungen...

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Hofstadter_Q_sequence
Beteiligte: James1337
Skript:

Problem(e): Ich musste das Skript abbrechen: >Exit code: 1 Time: 1468.340

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Bitwise_operations
Beteiligte: James1337
Skript:

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Ackermann_function
Beteiligte: James1337
Skript:

Du könntest es einfach so machen:

$info2 = StringSplit($info1[$i][1], ",", 2)
If $i = 1 Then $nummern_gruppe_1 = $info2
;...

Ab Zeile 8 kannst du dann alles weglassen, Global würde ich ganz an den Anfang setzen.
Durch Flag 2 bei StringSplit entsteht das Array genau so wie du es brauchst, und die Größe musst du dann auch nicht mehr einzeln festlegen.

Edit: $infos in Zeile 1 sollte $info1 heißen, oder?

Dann würde ich das so machen:

Local $Data1 = FileRead("File1.txt")
Local $SRE = StringRegExp($Data1, "\b(SRX\d+)\b", 3)
If @error Then Exit
Local $i, $Data2 = ""
For $i = 0 To UBound($SRE)-1
$Data2 &= $SRE[$i] & @CRLF
Next
FileWrite("File2.txt", $Data2)

FileRead
StringRegExp
FileWrite

Sind die SRX-Nummern immer so aufgebaut?
Gibt es in der Textdatei irgendwas mit einem ähnlichen Format, was beim Filtern Probleme bereiten könnte?

Auf den ersten Blick finde ich in den Skripten jetzt keinen Fehler...
Was mich allerdings wundert ist die im Server angegebene IP-Adresse. Sollte da nicht eigentlich sowas wie "127.0.0.1" oder @IPAddress1 stehen? Hast du mal den Rückgabewert von _TCPServer_Startup überprüft? Es könnte ja sein, dass der Server gar nicht startet und der Client somit gar nicht die Möglichkeit hat, irgendwelche Daten zu verarbeiten.

Dann musst du dem Server eben noch die Information senden, was für Daten er überhaupt gerade empfängt und diese dann auswerten. Zum Beispiel TCPSend($Server, "PosX|" & $x)

Zitat von i2c

Müssen wir AutoIt jetzt als Hochsprache bezeichnen?

Skriptsprache mit Zukunft.

@Topic Ich finde die Idee super, da ich AutoIt an sich für sehr gut halte (die Sprache an sich, nicht die Umsetzung) und darin garantiert noch eine Menge Potenzial steckt. Ich denke zwar nicht, dass ich bei sehr viel helfen könnte, würde aber trotzdem mitmachen.

Zu 2)
Das funktioniert wahrscheinlich schon, ist aber wie du schon selbst angemerkt hast nicht sehr effektiv. Ein in AutoIt geschriebener TCP- oder UDP-Server (einfach mal die Funktionen in der Hilfe anschauen) wäre besser und auch einfacher zu verwenden.

Auch von mir noch alles Gute zum Geburtstag!

Zitat von sezer0012

Also es soll eine Abfrage sein ob der LINK ( z.B. YouTube ) geöffnet ist...
Geht das?

https://autoit.de/index.php?page…1554#post261554

Ja natürlich musst du das. $Handle ist der Rückgabewert von GUICreate, oder auch einfach nur der Fenstertitel.