Zu1. Eine Kombination aus StingLen und StringLeft oder StringLen und StringMid könnte für dich die Lösung sein
Zu2. Die Bytezahl sollte die MTU (1400) nicht überschreiten, sonst werden die Pakete aufgeteilt.
Zu 1.: Das ginge auch mit StringRegExp:
[autoit]
#include <Array.au3>
$sText = ''
For $i = 0 To 99
$sText &= Chr(Random(65, 90, 1))
Next
$aText = StringRegExp($sText, '.{1,10}', 3)
_ArrayDisplay($aText)
also irgendwie habe ich immernoch probleme 
Ich wollte ein Programm zur Dateiübertragung machen. Ich kenne nichts anderes in autoit als tcp oder UDP oder gibt es etwas besseres dafür?
Naja aufjedenfall wollte ich jetzt tcp nehmen und da ich ja nicht die komplette datei aufeinmal schicken kann muss ich sie ja splitten und zu binary umwandeln, oder?
Also habe ich das Probiert, es geht auch so schonmal, aber nur mit textdatein 
und große datein kann ich nichtmal öffnen da kommt dann das memory zu klein ist, kann man mir da noch helfen?
$Pfad = FileOpenDialog("Wähle die Datei aus", "Arbeitsplatz", "Alle Dateien (*.*)")
$Datei = StringToBinary(FileRead($Pfad))
$Split = StringSplit($Pfad, "\")
$Dateiendung = StringSplit(StringRight($Pfad, StringLen($Split[$Split[0]])), ".")
$Save = FileSaveDialog("Wähle den Speicherort und den Namen der Datei", StringLeft($Pfad, StringLen($Pfad) - StringLen($Split[$Split[0]])), "(*." & $Dateiendung[$Dateiendung[0]] & ")", Default, StringLeft ($Split[$Split[0]],StringLen ($Split[$Split[0]]) - StringLen ($Dateiendung[$Dateiendung[0]]) -1) & " (1)." & $Dateiendung[$Dateiendung[0]])
$Split2 = StringSplit ($Save,"\")
$Save2 = StringLeft ($Save,StringLen ($Save) - Stringlen ($Split2[$Split2[0]])) & StringLeft ($Split[$Split[0]],StringLen ($Split[$Split[0]]) - StringLen ($Dateiendung[$Dateiendung[0]]) -1) & "Temp." & $Dateiendung[$Dateiendung[0]]
$Lange = StringLen ($Datei)
$aText = StringRegExp($Datei, '.{1,1024}', 3)
For $1 = 0 To UBound ($aText) -1
FileWrite ($Save2,$aText[$1])
Next
FileWrite ($Save,BinaryToString (FileRead ($Save2)))
FileDelete ($Save2)
Schonmal danke im voraus
Das sieht klasse aus Oscar
EDIT:
[autoit]
Ich habe leider ein problem, es geht nicht so wie ich es wollte#include <Array.au3>
[/autoit]
$sText = FileRead (@ScriptDir & "\Test.txt")
$aText = StringRegExp($sText, '.{1,1024}', 3)
MsgBox (0,"",StringLen ($aText[0]))
_ArrayDisplay($aText)
Dein Code funzt schon, aber _ArrayDisplay zeigt nicht richtig an. Liegt warscheinlich daran, das dein Text | enthällt, was der Standart-Seperator ist.
#include <Array.au3>
$sText = FileRead (@ScriptDir & "\Test.txt")
MsgBox (0,"",$sText)
$aText = StringRegExp($sText, '.{1,10}', 3)
MsgBox (0,"",$aText[0])
Edit und hier nochmal mit _ArrayDisplay, in jedem Feld werden Byte 1 bis 1024 angezeigt, fortlaufend.
#cs **************************************************************************
[/autoit] [autoit][/autoit] [autoit]StringSplit für Bytegöße und TCP-Frage
[/autoit] [autoit][/autoit] [autoit]http://www.autoit.de/index.php?page…0015#post110015
[/autoit] [autoit][/autoit] [autoit]#ce **************************************************************************
[/autoit] [autoit][/autoit] [autoit]#include <Array.au3>
$sText = FileRead (@ScriptDir & "\Test.txt")
MsgBox (0,"",$sText)
$aText = StringRegExp($sText, '.{1,1024}', 3)
MsgBox (0,"",$aText[0])
_ArrayDisplay($aText, "", -1, 1,"@")
Edit 2, hier nochmal ohne StringRexExp.
#include <Array.au3>
$sText = FileRead (@ScriptDir & "\Test.txt")
MsgBox (0,"",$sText)
$aText = StringMid($sText, 1,1024)
MsgBox (0,"Länge der Strings: "& Stringlen($aText),$aText)
Hab das jetz nochmal gemacht, Schritt für Schritt.
[autoit]#include <Array.au3>
$sText = FileRead(@ScriptDir & "\Test.txt")
MsgBox(0, "", $sText)
$aText = StringRegExp($sText, '.{1,1024}', 3)
MsgBox(0, "Info", "Der String wurde in " & UBound($aText) & " Teile geteilt")
For $i = 0 To UBound($aText) - 1
MsgBox(0, "Split Nr." & $i + 1, $aText[$i])
Next
