VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
549(1): 2019/05/31(金)09:56 ID:9KbqWk0a(1/4)調 AAS
n=6
a=Array(-6,3,9,5,3,-7)
b=a
Set c=CreateObject("Scripting.Dictionary"
sost b
For Each v in b
If Not c.Exists(v) Then c.add v,c.count+1
Next
For i=1 to n
b(i)=c(a(i))
Next
550(1): 2019/05/31(金)10:04 ID:9KbqWk0a(2/4)調 AAS
5行目間違えた
sort b
551(2): 2019/05/31(金)17:48 ID:9KbqWk0a(3/4)調 AAS
順位が飛ぶ場合
n=6
a=Array(-6,3,9,5,3,-7)
b=a
Set c=CreateObject("Scripting.Dictionary"
sort b
For i=1 To n
If Not c.Exists(v) Then c.add v,i
Next
For i=1 To n
b(i)=c(a(i))
Next
552(1): 2019/05/31(金)18:00 ID:9KbqWk0a(4/4)調 AAS
すいません >>551はなしにしてください
順位が飛ぶ場合
n=6
a=Array(-6,3,9,5,3,-7)
b=a
Set c=CreateObject("Scripting.Dictionary"
sort b
For i=1 To n
If Not c.Exists(v) Then c.add b(i),i
Next
For i=1 To n
b(i)=c(a(i))
Next
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.446s*