VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

7: 2018/10/14(日)00:46:29.74 ID:BqZmi47p(2/6)調 AAS
タブ区切りテキストは難しい、やるけどｗ
その間に私からお題を出しましょうか

---

48(1): [age] 2018/10/19(金)17:46:53.74 ID:Ew6yoovN(5/10)調 AAS
>>47
黙れゴミ

---

87(1): 2018/10/19(金)21:12:36.74 ID:oP8cFEj6(15/26)調 AAS
>>86

---

148: [age] 2018/10/25(木)18:18:29.74 ID:rfmxpI04(1)調 AAS
おいはげ

---

229(1): 2018/11/10(土)19:28:40.74 ID:VEtl387f(5/7)調 AAS
>>228
自演乙

---

297(1): 2018/12/17(月)23:18:14.74 ID:bNtdOJME(1)調 AAS
「コマンドプロンプト エスケープ イコール」で検索！

---

533(2): ピッコロ ◆YAZTByPXwc6o 2019/05/28(火)22:38:45.74 ID:TJM+GGRg(7/13)調 AAS
進捗ですソートできました

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

---

542(1): ピッコロ ◆YAZTByPXwc6o 2019/05/28(火)23:13:02.74 ID:TJM+GGRg(13/13)調 AAS
こんな流麗なソート書けるピッコロさんも良いですよね？

---

772: 2019/08/17(土)16:55:24.74 ID:ERh99+52(2/3)調 AAS
説明も何も>>750が答えなのに何で分からないのかねｗｗｗｗｗ

---

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

---

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

---

ぬこの手 ぬこTOP 0.059s