VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)

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

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

556: デフォルトの名無しさん [] 2019/06/01(土) 10:43:47.94 ID:/THuLu8v なんで皆ソートするの？ 他より大きかったら＋1するだけじゃないの？ Option Explicit 　　Dim arr1 　　Dim arr2 　　arr1 = Array(-6, 3, 9, 5, 3, -7) 　　arr2 = RankArray(arr1, 1) 　　WScript.Echo Join(arr2, ", ") Function RankArray(arrSrc, k) 　　Dim i 　　Dim j 　　Dim arrRet 　　arrRet = Array(1, 1, 1, 1, 1, 1) 　　For j = 1 To UBound(arrSrc) 　　　　For i = 0 To j - 1 　　　　　　If arrSrc(i) > arrSrc(j) Then 　　　　　　　　arrRet(i) = arrRet(i) + 1 　　　　　　ElseIf arrSrc(i) = arrSrc(j) Then 　　　　　　　　arrRet(i) = arrRet(i) + k 　　　　　　　　arrRet(j) = arrRet(j) + k 　　　　　　Else 　　　　　　　　arrRet(j) = arrRet(j) + 1 　　　　　　End If 　　　　Next 　　Next 　　RankArray = arrRet End Function http://mevius.5ch.net/test/read.cgi/tech/1539439008/556

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.024s