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

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

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

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

---

533: ピッコロ ◆YAZTByPXwc6o [] 2019/05/28(火) 22:38:45.74 ID:TJM+GGRg 進捗ですソートできました Option Explicit Dim a a = Array(-6,3,9,5,3,-7) Sort a WScript.Echo Join(a, ", ") Sub Sort(a) 　　Sort_ a, LBound(a), UBound(a) End Sub Sub Sort_(a, l, u) 　　If l >= u Then Exit Sub 　　Sort__ a, l, u 　　Sort_ a, l + 1, u End Sub Sub Sort__(a, l, u) 　　If l >= u Then Exit Sub 　　If a(u - 1) > a(u) Then Swap a(u - 1), a(u) 　　Sort__ a, l, u - 1 End Sub Sub Swap(a, b) 　　Dim c 　　c = a 　　a = b 　　b = c End Sub http://mevius.5ch.net/test/read.cgi/tech/1539439008/533

534: デフォルトの名無しさん [sage] 2019/05/28(火) 22:46:04.67 ID:vNl8ufTP >>533 ブラボー！！下手くそ！！ わざと下手くそに書けと言われても俺にはここまでは無理だわ（称賛） http://mevius.5ch.net/test/read.cgi/tech/1539439008/534

536: デフォルトの名無しさん [] 2019/05/28(火) 22:53:40.44 ID:zzZz5E2H >>533 935 名前：デフォルトの名無しさん[sage] 投稿日：2019/05/17(金) 12:23:14.18 ID:99nnd/tf [1/3] >>934 うるせぇ死ね http://mevius.5ch.net/test/read.cgi/tech/1539439008/536

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.036s