VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
VBSで便利なプログラムを作れスレ 2 http://mevius.5ch.net/test/read.cgi/tech/1539439008/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
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 http://mevius.5ch.net/test/read.cgi/tech/1539439008/551
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 http://mevius.5ch.net/test/read.cgi/tech/1539439008/552
553: デフォルトの名無しさん [] 2019/05/31(金) 19:44:35.89 ID:wgRNs4gC >>549-552 自演乙 http://mevius.5ch.net/test/read.cgi/tech/1539439008/553
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.035s