VBSで便利なプログラムを作れスレ 2

[1 デフォルトの名無しさん 2018/10/13(土) 22:56:48.61 ID:X8llOrQa]

素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
（例○○を自動処理してくれるプログラム）

前スレ
VBSで便利なプログラムを作れスレ
https://mevius.5ch.net/test/read.cgi/tech/1170492587/

[549 デフォルトの名無しさん 2019/05/31(金) 09:56:54.18 ID:9KbqWk0a]

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 デフォルトの名無しさん 2019/05/31(金) 10:04:05.57 ID:9KbqWk0a]

5行目間違えた
sort b

[551 デフォルトの名無しさん 2019/05/31(金) 17:48:52.29 ID:9KbqWk0a]

順位が飛ぶ場合
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 デフォルトの名無しさん 2019/05/31(金) 18:00:30.35 ID:9KbqWk0a]

すいません >>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