回答編集履歴
2
追記
test
CHANGED
|
@@ -22,7 +22,7 @@
|
|
|
22
22
|
|
|
23
23
|
```
|
|
24
24
|
|
|
25
|
-
adoR.Fields.Append "F_Name",
|
|
25
|
+
adoR.Fields.Append "F_Name", 201
|
|
26
26
|
|
|
27
27
|
|
|
28
28
|
|
|
@@ -34,14 +34,36 @@
|
|
|
34
34
|
|
|
35
35
|
```
|
|
36
36
|
|
|
37
|
-
adoR.Fields.Append "F_Name",
|
|
37
|
+
adoR.Fields.Append "F_Name", 200, 255
|
|
38
38
|
|
|
39
39
|
```
|
|
40
40
|
|
|
41
41
|
|
|
42
42
|
|
|
43
|
-
でいいのでは。（動作未確認です。）
|
|
43
|
+
でいいのでは。（動作未確認です。）※VBSでは予約済み定数は使えないので数値に変更しました。
|
|
44
44
|
|
|
45
45
|
|
|
46
46
|
|
|
47
47
|
どちらにしても第3引数（DefinedSize）はフィールドサイズなので、ファイル件数（レコード件数）とは関係ないですね。
|
|
48
|
+
|
|
49
|
+
|
|
50
|
+
|
|
51
|
+
別案
|
|
52
|
+
|
|
53
|
+
VBSで配列をソートする方法としては、ADODB以外にも、ArrayList を使う方法があります。こちらの方も試してみては。
|
|
54
|
+
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
[実験記録 No.02 : VBSで動的配列（ArrayList）を使う](http://blog.livedoor.jp/blackcode/archives/vbscript-how-to-use-arraylist.html)
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
あるいは、クイックソートやバブルソートなどのアルゴリズムを使って自前でソートする関数を作成するのもありですね。
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
65
|
+
[配列を昇順または降順に並べ替える関数 - hatena chips](http://hatenachips.blog34.fc2.com/blog-entry-192.html)
|
|
66
|
+
|
|
67
|
+
|
|
68
|
+
|
|
69
|
+
ただ、提示のコードを見る限り、同じフォルダーに入れているので、ソートする必要はないように思います。
|
1
書式の改善
test
CHANGED
|
@@ -20,15 +20,23 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
+
```
|
|
24
|
+
|
|
23
25
|
adoR.Fields.Append "F_Name", adLongVarChar
|
|
24
26
|
|
|
25
27
|
|
|
28
|
+
|
|
29
|
+
```
|
|
26
30
|
|
|
27
31
|
255文字以内なら、
|
|
28
32
|
|
|
29
33
|
|
|
30
34
|
|
|
35
|
+
```
|
|
36
|
+
|
|
31
37
|
adoR.Fields.Append "F_Name", adVarChar, 255
|
|
38
|
+
|
|
39
|
+
```
|
|
32
40
|
|
|
33
41
|
|
|
34
42
|
|