Arraywerte als Text zusammenfassen

Hi,
sowas vielleicht?

Stimmt, ist Mist.

Dann kommt bei dir aber "206, 207, 208, 209, 210, 211, 212, 213, 214, 215" und nicht "206 to 215" raus.

So z.B sollte es gehen:

Global $Array[23] = [22, 187, 190, 191, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 221, 222, 224, 228, 230, 231, 232, 237, 239]
$text = ""
For $i = 0 to (UBound($Array)-1)
$text &= $Array[$i] & ", "
Next
$text = StringLeft($text,StringLen($text)-2)
MsgBox(0,"Titel","These samples are omitted: "&$text)

Edit: water war da wohl schneller

Bevor man irgendwelche lustigen Schleifen programmiert, sollte man vielleicht erstmal klären wie die Daten überhaupt ausgewählt werden sollen. Ich sehe jedenfalls in der Beispielausgabe im ersten Posting noch kein System das den Einsatz einer intelligenten Schleife erlauben würde.

Also @ Katrijn : Wie sollen die Blöcke ausgewählt werden? Wie groß sollen die Blöcke sein? Welches System steckt dahinter?

Edit: Kommt davon wenn man nicht richtig liest...

Aus dem Beispiel geht doch genau hervor, dass mehr als 2 aufeinanderfolgende Zahlen zu einem Block zusammengefasst werden sollen.

190, 191    <---  nicht mehr als 2 Zahlen
206 to 215  <---  mehr als 2 aufeinanderfolgende Zahlen

Edit:

Next try:

Global $aNumbers[23] = [22, 187, 190, 191, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 221, 222, 224, 228, 230, 231, 232, 237, 239]
Global $sComment = "These samples are omitted: "
Global $sOutput = $sComment
Global $iStart = $aNumbers[1], $iEnd = $aNumbers[1]
For $i = 2 To $aNumbers[0]
If $aNumbers[$i] > $iEnd + 1 Then ; Start of new range
_WriteResult()
$iStart = $aNumbers[$i]
EndIf
$iEnd = $aNumbers[$i]
Next
_WriteResult()
ConsoleWrite($sOutput & @CRLF)

Func _WriteResult()
If $iEnd = $iStart Then ; Range consists of only one number
If $sOutput = $sComment Then
$sOutput = $sOutput & $iStart
Else
$sOutput = $sOutput & ", " & $iStart
EndIf
Else
If $iStart + 1 = $iEnd Then ; Range constists of two consecutive numbers
If $sOutput = $sComment Then
$sOutput = $sOutput & ", " & $iStart & ", " & $iEnd
Else
$sOutput = $sOutput & ", " & $iStart & ", " & $iEnd
EndIf
ElseIf $sOutput = $sComment Then ; Range constists of more than 2 consecutive numbers
$sOutput = $sOutput & $iStart & " to " & $iEnd
Else
$sOutput = $sOutput & ", " & $iStart & " to " & $iEnd
EndIf
EndIf
EndFunc ;==>_WriteResult

Returns:
These samples are omitted: 187, 190, 191, 206 to 215, 221, 222, 224, 228, 230 to 232, 237, 239

so?

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^^