Move("StrToList",...) und Move("ListToStr",...)

Hallo Roland,

Declare String b, Int anz
Cls
ClearList
b = "50,40,30,20,10"
Print "Unsortiert                       : "; b
anz = Move("StrToList", b, ",")
Print "Anzahl der hinzugefügten Strings : "; anz
SortList 5
b = Move("ListToStr", ",")
Print "Sortiert                         : "; b
Print "Anzahl der TeilStrings in b      : "; Len(b, ",")
Print "Taste zum Beenden..."
WaitKey
End

Ist zwar nicht unbedingt ein Bug, wenn man es weiß :

Move("StrToList", S, D) gibt als Anzahl 1 weniger zurück, als erwartet.
Move("ListToStr", S) gibt ein Komma zuviel zurück.

Sicherlich kann man ersteres umgehen, indem man mit GetCount(0)
die Anzahl ermittelt und im zweiten einfach das letzte Komma löscht.
Aber wenn schon Rückgabewerte der Move-Funktionen da sind, sollten
sie auch korrekte Werte zurückgeben.

Besonders, wenn das Funktionsergebnis automatisiert weiterverarbeitet
wird :

Declare String b, Int anz, z, Memory bereich
ClearList
b = "50,40,30,20,10"
anz = Move("StrToList", b, ",")


' hier ist aber die Anzahl 5, statt der ermittelten 4
' durch den Move - Befehl
Dim bereich, anz * 4
z = 0
SortList 5
Listbox$("", 0)
' -> hier sieht man, daß auch wirklich 5 Strings in der Liste sind


WhileLoop 0, @GetCount(0) -1
    Long bereich, z = @Val(GetString$(0, &LOOP))
    Inc z, 4
EndWhile


WaitKey
Dispose bereich
End

Hier wird dann unnötigerweise versucht, über die Bereichsgrenze zu schreiben,
was natürlich eine Fehlermeldung verursacht, weil zu wenig Speicher gedimt
wurde. Auch die Funktionen
SubStr$(S1,N[,S2])
Len(S[, D])
liefern dann falsche Ergebnisse, wenn es um das letzte Element (Teilstring) geht.

Somit wäre es mehr ein Wunsch von mir, das in X3 und den FreeProfan -
Versionen zu korrigieren.

Danke Roland.
Wäre bei Move("MemToList", B, D) auch eine Änderung möglich ?
Beispiel :

Declare Memory b
Dim b, 100


String b, 0 = "1", "2", "3"
Print Move("MemToList", b, Chr$(0))
WaitKey
Dispose b
End

Hier werden 97 Strings gemovt, obwohl ja nur 3 im Bereich sind.
So richtig stimmt das Ergebnis ja auch nicht, wenn man es auch
programmiertechnisch bzw. automatisch weiterverabeiten möchte.

Klar ist mir, daß das die restlichen Nullbytes sind und es könnten
ja auch Leerzeilen sein, die dazwischen stehen. Aber oft beläßt man
ja den Bereich mit den Nullbytes und befüllt ihn nur. Das ist ja auch
Standard, wenn z.B. eine API-Funktion einen solchen Bereich mit
Zeichenketten zurückgibt. Deshalb habe ich den Delimitter, den man
ja ändern kann, hier mal vernachlässigt.

Vielleicht ließe sich das per optionalem Flag so einstellen, daß nur
Strings mit Inhalt kopiert werden. Also wenn Länge > 0.
Damit bräuchte man die Listboxliste nicht per Schleife nach Leerstrings
durchsuchen und ggf. löschen.

Wenn man denn nun unbedingt Leerzeilen im Bereich braucht, kann
man ja das alt hergebrachte ALT+255 dafür nehmen und an die benötigten
Stellen im Bereich setzen.

Ist jetzt nur mal eine Idee von mir.