[*]Profan

arr$[]=explode(test)

arr$[]=explode(test,)

declare versuch#,probe%[],test$
clear versuch#,probe%[],test$
print SizeOf(versuch#),
print SizeOf(versuoch#),
print SizeOf(probe%[]),
print SizeOf(proube%[]),
print SizeOf(test$),
print SizeOf(tehest$)
waitinput
KompilierenMarqueSéparation
declare t$[]
t$[0]=
t$[1]=
t$[2]=
t$[3]=
t$[4]=
imprimer SizeOf(t $[])
waitinput
end

car Explode pouvoir oui im piège des Leerstrings aussi rien d'autre, comme dem ersten Element quelque chose zuzuweisen; nämlich une Leerstring.
Betrachtet on hingegen une Leerstring comme vorhanden, so tomber espace cet Schwierigkeiten weg. un pas vorhanden seiendes Element ist ensuite weder Leerstring encore zéro, mais schlicht pas vorhanden, womit qui Taille des Arrays sans équivoque bestimmbar ist.
Womit un Problem trop avons du scheinst, ist, dass Explode überhaupt qui travail aufnimmt. All cela philosophische Zeug pourrait on sich ersparen, si on es schlicht so machte:
KompilierenMarqueSéparation
cas text$<> : matrix$[] = Explode(text$,)

Explode pouvoir nämlich quoi es soll: Es teilt den erhaltenen Text den Delimitern ensprechend sur. cela erste, quoi il findet, est un Leerstring, qui zwar rien contient, deswegen mais encore longtemps pas rien ist. cette Leerstring wird ensuite dem ersten Element des Arrays zugewiesen, après gibt es aucun weiteren Teilstring plus - ils sont aucun Leerstrings, mais réellement pas existent - , womit Explode sa travail erledigt hat.
un Beispiel pour ist que voici:
KompilierenMarqueSéparation
cls
var matrix$[] = Eplode(;;;;,;)
imprimer SizeOf(matrix$[])
waitinput
end

le son meiner Logik venez cinq heraus, quoi erhältst du?
KompilierenMarqueSéparation
cls
var matrix$[] = Eplode(;,;)
imprimer SizeOf(matrix$[])
waitinput
end

le son meiner Logik venez deux heraus, erkläre deux heraus, quoi meinst du? une? 

PS: Verzeih mir qui Langatmigkeit, j'ai qui prochain deux Wochen keinen Unterricht plus. 

cls
print SizeOf(Explode(a;b,;)) ergiebt 2
print SizeOf(Explode(a;,;)) ergiebt 2
print SizeOf(Explode(;b,;)) ergiebt 2
print SizeOf(Explode(;,;)) ergiebt 2
print SizeOf(Explode(a,;)) ergiebt 1
print SizeOf(Explode(,;)) ergiebt 0
print SizeOf(Explode(abcd)) ergiebt 4
print SizeOf(Explode(
)) ergiebt 2
print SizeOf(Explode(a)) ergiebt 1
print SizeOf(Explode( )) ergiebt 1
print SizeOf(Explode(z)) ergiebt 1
print SizeOf(Explode(Chr$(7))) ergiebt 1
print SizeOf(Explode()) ergiebt 0

cls
print SizeOf(Explode(a;b,;))ergiebt 2
print SizeOf(Explode(a;,;))ergiebt 2
print SizeOf(Explode(;b,;))ergiebt 2
print SizeOf(Explode(;,;))ergiebt 2
print SizeOf(Explode(a,;))ergiebt 1
print SizeOf(Explode(,;))ergiebt 0
print SizeOf(Explode(abcd))ergiebt 4
print SizeOf(Explode(
))ergiebt 2
print SizeOf(Explode(a))ergiebt 1
print SizeOf(Explode( ))ergiebt 1
print SizeOf(Explode(z))ergiebt 1
print SizeOf(Explode(Chr$(7)))ergiebt 1
print SizeOf(Explode())ergiebt 0
waitinput
end

cls
print len(a;b,;)ergiebt 2
print len(a;,;)ergiebt 2
print len(;b,;)ergiebt 2
print len(;,;)ergiebt 2
print len(a,;)ergiebt 1
print len(,;)ergiebt 0
print len(abcd)ergiebt 4
print len(
)ergiebt 2
print len(a)ergiebt 1
print len( )ergiebt 1
print len(z)ergiebt 1
print len(Chr$(7))ergiebt 1
print len()ergiebt 0
waitinput
end