HSPTV!掲示板

ちょっと前からＨＳＰやってました。
カタカナ表記の名前のデータのソートをすると「ヴ」が最後にきてしまします。
エクセルなどではできるのですが、何かいい方法はないですか？
対処法として「ヴ」の時のpeekの値のとき「ウ」のあとにいれ、「ヴ」以降の文字のとき、
＋１してずらして「ヴ」を途中に挿入させることを考えました。
それ以外でいい対処ほうがあれば教えていただきたいです。

下記の比較方法で戻り値が両方-1の方法を使ってみてください。
(sortnoteやsortstrでも大丈夫だと思います)

#uselib "kernel32.dll"
#cfunc lstrcmp "lstrcmpA" str, str
#cfunc CompareString "CompareStringA" int, int, str, int, str, int

#uselib "msvcrt.dll"
#cfunc strcmp "strcmp" str, str
#cfunc strcoll "strcoll" str, str
#func setlocale "setlocale" int, str

#define LOCALE_USER_DEFAULT	0x400
#define LC_ALL 0

	setlocale LC_ALL, ""	// strcollの為
	
	u = "ウ"
	vu = "ヴ"
	e = "エ"
	mes "!=で比較"
	mes u != vu
	mes vu != e

	mes "\nstrcmpで比較"
	mes strcmp(u, vu)
	mes strcmp(vu, e)

	mes "\nstrcollで比較"
	// setlocaleのp2で結果が変わる
	mes strcoll(u, vu)
	mes strcoll(vu, e)

	mes "\nCompareStringで比較"
	// 戻り値の規則をあわせる為-2しています
	mes CompareString(LOCALE_USER_DEFAULT, 0, u, -1, vu, -1) - 2
	mes CompareString(LOCALE_USER_DEFAULT, 0, vu, -1, e, -1) - 2

	mes "\nlstrcmpで比較"
	mes lstrcmp(u, vu)
	mes lstrcmp(vu, e)
	
	stop

自己解決しました。
以下のスクリプトです。
pizzaさんありがとうございました。

array=6
dim i,2
dim count,1
dim point,1
sdim tmp,16
sdim stbuf,15,array
stbuf="ウィル","ジェームス","ヴァージニア","ウァーイ","ガリッチ","アラン"
repeat array
point=cnt+1
mes "no."+point+"=\""+stbuf.cnt+"\""
loop
repeat 6
k=5-cnt
repeat array
count=cnt
repeat array-1
point=cnt+1
i.0=wpeek (stbuf.cnt,k)
if i.0>17795:i.0=i.0+1
if i.0=38020:i.0=17796
i.1=wpeek (stbuf.point,k)
if i.1>17795:i.1=i.1+1
if i.1=38020:i.1=17796
if i.0>i.1{
tmp=stbuf.point:stbuf.point=stbuf.cnt:stbuf.cnt=tmp
}
loop
loop
loop
mes " "
repeat array
point=cnt+1
mes "no."+point+"=\""+stbuf.cnt+"\""
loop
stop

解決しましたので、解決済みにします。