so?
[autoit]Global $Array[22] = [187, 190, 191, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 221, 222, 224, 228, 230, 231, 232, 237, 239]
ReDim $array[UBound($array) + 2] ;array aufbereiten für Suche
$text = "" ;arrayinhalt nach textinhalt
$delimiter = "" ;Trennzeichen im Text
For $i = 0 To UBound($Array) - 3 ;array durchlaufen
If $array[$i + 1] = $array[$i] + 1 And $array[$i + 2] = $array[$i] + 2 And $delimiter <> " to " Then ;3 aufeinanderfolgende zahlen gefunden?
$delimiter = " to " ;dann "to"
$text &= $array[$i] & $delimiter ;"to" einfügen
ElseIf $array[$i + 1] <> $array[$i] + 1 Or $delimiter <> " to " Then ;nicht aufeinanderfolgende gefunden
$delimiter = ", " ;ansonsten Trennzeichen ", "
$text &= $Array[$i] & $delimiter ;zusammen mit arrayinhalt
EndIf
Next
$text = StringTrimRight($text, 2) ;letztes Komma weg
ReDim $array[UBound($array) - 2] ;array wiederherstellen
$vorgabe = "187, 190, 191, 206 to 215, 221, 222, 224, 228, 230 to 232, 237, 239"
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $vorg = ' & $vorgabe & @CRLF) ;### Debug Console
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $text = ' & $text & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
//EDIT: kürzer^^