HSPTV!掲示板

メモリノートパッドの中身に例えば
A
A
A
B
B
B
C
C
C
B
B

といったような文字列が入っていたとして、それを

A
B
C

と重複しているものは１つにして整理したい場合、どうすればよいでしょうか？
頭の良い方、うまい方法をおしえてください。

概念としては
１行一行読み込んでいって、
今まで読み込んだ分と全て不一致なら、
記録を繰り返す感じです。

	dialog ,16,
	notesel noteall
	noteload refstr
//noteはメモリノートの変数
	noteget note,0
	pstr = note
	p = 1
	repeat notemax-1,1
		noteget note,cnt
		d = 0
		repeat p
			if note == pstr(cnt):d = 1
		loop
		if d == 0{
			pstr(p) = note
			p++
		}
	loop
	noteunsel
	notesel noteall2
	repeat p
		noteadd pstr(cnt),cnt,1
	loop
	notesave "save.txt"
	noteunsel

ありがとうございます。
こんなのすぐに頭に思い浮かぶんですか、すごいです。
研究してみます。