VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
VBSで便利なプログラムを作れスレ 2 http://mevius.5ch.net/test/read.cgi/tech/1539439008/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
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 http://mevius.5ch.net/test/read.cgi/tech/1539439008/549
550: デフォルトの名無しさん [] 2019/05/31(金) 10:04:05.57 ID:9KbqWk0a 5行目間違えた sort b http://mevius.5ch.net/test/read.cgi/tech/1539439008/550
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
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.033s