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

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

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

---

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

---

692: ピッコロ ◆YAZTByPXwc6o [] 2019/08/02(金) 00:53:04.71 ID:VeWgf3Oa Option Explicit Main Sub Main() 　　Dim a 　　a = Array(1, 2, 1, 1, 4, 3, 9) 　　StarlinSort a 　　WScript.Echo Join(a, ",") End Sub Sub StarlinSort(arr) 　　Dim i, j 　　j = 0 　　For i = 0 To UBound(arr) 　　　　If i = UBound(arr) Then 　　　　　　arr(j) = arr(i) 　　　　　　j = j + 1 　　　　ElseIf arr(i) <= arr(i + 1) Then 　　　　　　arr(j) = arr(i) 　　　　　　j = j + 1 　　　　Else 　　　　　　arr(i + 1) = arr(i) 　　　　End If 　　Next 　　ReDim Preserve arr(j - 1) End Sub http://mevius.5ch.net/test/read.cgi/tech/1539439008/692

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.034s