HSPTV!掲示板

例えば毎回違うのですが300〜500程度の配列の中に
「りんご、みかん、りんご、梨、みかん、スイカ、スイカ、りんご、なし、メロン…」
と言うように果物が1種類〜100種類程度ランダムに入っているとして、
別途配列を用意して、各果物を一つずつ入れたいです
上記の例だと、
「りんご、みかん、梨、スイカ、メロン」
とするような感じです

初心者でも分かる方法でこれを実現する方法を教えて頂けますか？

これでどうでしょう。
説明にある"梨"と"なし"は打ち間違いと思って対応してないです。

; データ準備
data1 = "りんご","みかん","りんご","梨","みかん","スイカ","スイカ","りんご","梨","メロン"

; 文字列ソート
sortstr data1

mes "ソート結果"
repeat length( data1 ): mes data1( cnt ): loop

; data1を順番に読み込みdata2へセット
data2( 0 ) = data1( 0 )
ix = 0
repeat length( data1 )

	;既にセット済のものはスキップ
	if data2( ix ) = data1( cnt ): continue

	;セット
	ix ++
	data2( ix ) = data1( cnt )
loop

mes "\n結果"
repeat length( data2 ): mes data2( cnt ): loop