- VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
243 ：ピラフ[]：2014/12/31(水) 10:15:46.56 ID:aa1VLakq - ,_/）_
（∴∴）
r"￣￣￣￣"ヽ
（ ___________________）
r ´ ｀ヽ
＜（___________________________）＞
/ ＼ ／＼
/ ● ,,. .,, ● ヽ
|. （__人__） | あけおめことよろ
ﾐﾐ､､,,,,,,__,,,,,,,,,,,,,,_,,,,,,,,,,,､､-ﾐ
┗━彡ミﾐ彡ﾐ ミ彡ミﾐ彡━┛
ﾐミ彡ﾐ .＼ .／ﾐ彡ミﾐミ
彡ミﾐﾐ .＼／ .ミﾐ彡
ﾐ丿.┃ . ● .┃ヾﾐ
┗━━┛┗━━┛
| - VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
247 ：ピラフ[]：2014/12/31(水) 12:24:39.87 ID:aa1VLakq - >>246
無料でもメールアドレスとかIPアドレスとか知られるのはいやだ。
メニューがわかりにくいし、子画面が開くのがいやらしいし。なんかやだ。
| - VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
249 ：ピラフ[]：2014/12/31(水) 16:53:32.41 ID:aa1VLakq - >>248
これピラフ
http://trendy.nikkeibp.co.jp/article/column/20080821/1017834/03_px300.jpg
ところで、ピラフ完全に閃いたんだけどさ、
2つの配列を結合するメソッドConcatがあったとするじゃん。
Function Concat(A, B)
Dim C
ReDim C(UBound(A) + UBound(B) + 1)
Copy C, A, 0
Copy C, B, UBound(A) + 1
Concat = C
End Function
Sub Copy(S, D, I)
Dim E
For Each E In D
S(I) = E
I = I + 1
Next
End Sub
そしたら、配列に値を追加するメソッドAppendはあっさり実装できるんだよね。
Function Append(A, Value)
Append = Concat(A, Array(Value))
End Function
これってすごくない？
| - VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
252 ：ピラフ[]：2014/12/31(水) 19:32:16.27 ID:aa1VLakq - >>251
写真見てもらったらわかると思うけど、ピラフまだ20代だよ。
| - VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
254 ：ピラフ[]：2014/12/31(水) 20:01:04.48 ID:aa1VLakq - >>253
40代に見えないよね。これが奇跡の世代か。
ピラフ職場で50代のババアだと思ってた人が30代の人でびっくりしたことがある。
世の中不思議だよね。
|
|