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

1デフォルトの名無しさん
垢版 |
2018/10/13(土) 22:56:48.61ID:X8llOrQa
素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
(例○○を自動処理してくれるプログラム)

前スレ
VBSで便利なプログラムを作れスレ
https://mevius.5ch.net/test/read.cgi/tech/1170492587/
549デフォルトの名無しさん
垢版 |
2019/05/31(金) 09:56:54.18ID: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.57ID:9KbqWk0a
5行目間違えた
sort b
551デフォルトの名無しさん
垢版 |
2019/05/31(金) 17:48:52.29ID: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.35ID: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
レスを投稿する

5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。

ニューススポーツなんでも実況