VBScriptについて必死に話し合うスレ
■ このスレッドは過去ログ倉庫に格納されています
0001桃白白 ◆9Jro6YFwm650
2014/02/06(木) 22:48:46.16| ノ ヽ
/ ― ―
| ////( _●_)ミ テヘクマ
彡、 |∪| l
ヽ ヽノ /
/´ ヽ、r ̄
r ヽ、 )
ヽ、 ヽヽ
と二_ノ_ノ
0002デフォルトの名無しさん
2014/02/06(木) 23:52:47.73�@
�@�@ �@
�@
�@�@
�@
�@�@ �@
�@�@
�@ �@ �@
�@ �@�@
�@ �@
�@ �@
�@
�@
�@
0003デフォルトの名無しさん
2014/02/07(金) 18:35:29.490004デフォルトの名無しさん
2014/02/07(金) 20:43:28.050005デフォルトの名無しさん
2014/02/08(土) 13:31:38.020006デフォルトの名無しさん
2014/02/08(土) 16:10:41.74WScript.StdOut.WriteLine Drive.DriveLetter & ": " & Drive.TotalSize
Next
0007デフォルトの名無しさん
2014/02/08(土) 16:51:18.120008デフォルトの名無しさん
2014/02/08(土) 17:01:26.180009桃白白 ◆9Jro6YFwm650
2014/02/09(日) 18:27:19.97桃白白ご相談したいことがあるんだけど、聞いてくれる?
Personクラスはフィールドに誕生日とお名前とお金と年齢を保持するの。
Class Person
Dim Birthday
Dim Name
Dim Money
Dim Age
End Class
Porsons配列はPersonオブジェクトを複数保持するの。
ReDim Persons(...)
Persons配列に含まれるPersonオブジェクトのうち、誕生日が
指定した日付から指定した日付までのもので合計の金額と
人数と年齢の平均を求めたいの。
値を求めるときに入力するのは期間の開始日と期間の終了日なの。
誕生日がこの期間内のものについて処理したいの。
条件が変わるかもしれないからできるだけ汎用性があるように実装したいんだけど、どう実装したらいい?
桃白白困っています。教えてくださいお願いします。
0010片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/09(日) 18:45:37.63...
End Type
Sub StatPersons(ByRef stat_result, date1, date2)
0011デフォルトの名無しさん
2014/02/10(月) 00:21:55.340012デフォルトの名無しさん
2014/02/10(月) 02:11:16.53言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
京都大学霊長類研究所
0013桃白白 ◆9Jro6YFwm650
2014/02/10(月) 05:24:56.91桃白白アイちゃんじゃないよ!
だいたいちゃん付けっておかしいよ!くんにしろおらあああ!!
0014デフォルトの名無しさん
2014/02/10(月) 14:16:08.15http://social.msdn.microsoft.com/Forums/vstudio/ja-JP/ab5f7e16-dc53-43b7-9dfd-af14698b1fe6?forum=vbgeneralja
0015デフォルトの名無しさん
2014/02/10(月) 18:38:39.960016デフォルトの名無しさん
2014/02/10(月) 23:01:57.160017桃白白 ◆9Jro6YFwm650
2014/02/10(月) 23:06:17.22桃白白じゃないけど、桃白白はわりあい好きだなこういう人。
価値観が違っても自分なりの考えを持っていてそれを披露できるって
とっても素敵なことだと思う。ここに来たらいいのに。
>>15
桃白白女だよ、かわいい系の。
ちょっと写真古いけど、これ桃白白。
http://upload.wikimedia.org/wikipedia/commons/f/f3/Raicho_Hiratsuka.jpg
0018桃白白 ◆9Jro6YFwm650
2014/02/10(月) 23:08:19.57(「・ω・)「がおー
0019デフォルトの名無しさん
2014/02/11(火) 10:29:09.09Class Person の配列を支配するクラス作ればいいやん
0020桃白白 ◆9Jro6YFwm650
2014/02/11(火) 10:32:00.46どういうこと?コード書いてよ。桃白白ぜんぜんわかんない。
0021デフォルトの名無しさん
2014/02/11(火) 11:40:23.760022桃白白 ◆9Jro6YFwm650
2014/02/11(火) 11:43:31.83知らない。抱いてくれ。
0023デフォルトの名無しさん
2014/02/11(火) 12:13:58.960024デフォルトの名無しさん
2014/02/11(火) 12:55:17.76IE5.0位から
0025デフォルトの名無しさん
2014/02/11(火) 13:57:42.06SQL使った方が速いよ
0026桃白白 ◆9Jro6YFwm650
2014/02/11(火) 14:02:07.71DB用意しなきゃいけないじゃん。データ管理にDB使う男ってどうかと思う……。
0027デフォルトの名無しさん
2014/02/11(火) 14:22:15.640028デフォルトの名無しさん
2014/02/11(火) 21:03:33.28用意するって程でもないじゃん
ADOX使えば、VBScript上から簡単に作れるし
0029桃白白 ◆9Jro6YFwm650
2014/02/11(火) 21:06:12.52DB使う男の人って……。桃白白ドン引き。
奢らない男より最低だと思う。桃白白割り勘でもいいと思うけど、
DB使う男だけはムリ!
0030デフォルトの名無しさん
2014/02/11(火) 21:18:39.440031片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/12(水) 19:22:18.95桃白白さんにはそんなの関係ねえ〜♪
0032デフォルトの名無しさん
2014/02/12(水) 19:46:48.970033桃白白 ◆9Jro6YFwm650
2014/02/13(木) 05:56:54.13まるで桃白白が大規模開発にかかわっていないみたいな、
こう見えても桃白白無職なんだよ、本当におっしゃるとおりです、
すこし遅れましたがあけましておめでとうございます、
本年もよろしくお願いもうしあげます。
0034デフォルトの名無しさん
2014/02/13(木) 06:13:42.99,.ィ'/ ,;: ,;:::::;\
/;;'" ,.::,' ,' / |:;;:;:;:;:;:;ハ
// /;::::::,,' ; :ミ ;:;:;:;:;:;:;',
;:;| /;:;:;;; ' ヾ:;:;:;:;:;:;:;':,
,!;;;! ノ// ::|;:;:;:;:;:;:;:;、
;;;;;;! ノ" . : : :::l;:;:;:;:;:;:;:i,l
ノl;;;;|::;;,,_ _,,,,..,,__ : :ヾ;:;:;;:;:;|!i!
|;;;;| 、,、 "_,,,.. .: :|::r:;;:;;| |
_,. -''i|;;;:|', ; :: `¨´ . : ノ;;レ;;;l;;|
,ィ'" |;:リ.ハ ノ ::.. /;;;;;リノノ^`ー 、
/ " ヽ ゞ...r=' ノ,'ノノノノ ` 、
/ i ハヽ==- // / \
;' ! ;'_,,ヽ、 _./ / ,' ヽ
,' i ( ゝ ̄、 _,. :' ;' ,. 'i
;' 、 ~`ゝ--ァ\ ,! ,. |
,' :, i' ゞ.;' \i / ,. - ' , |
桃白白(39)
0035片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/13(木) 20:43:29.820036デフォルトの名無しさん
2014/02/13(木) 21:43:05.120037デフォルトの名無しさん
2014/02/14(金) 12:46:10.960038桃白白 ◆9Jro6YFwm650
2014/02/15(土) 12:56:14.85____
/ \
/ ─ ─\
/ ⌒ ⌒ \ ハハッ冗談はよせよマイハニー
| ,ノ(、_, )ヽ |
\ トェェェイ /
/ _ ヽニソ, く
0039片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/15(土) 13:07:19.780040片山桃白白 ◆9Jro6YFwm650
2014/02/15(土) 13:27:23.04単語の最初の文字を大文字で表記することをキャメルケースといいます。
桃白白はスネークケースの文字列をキャメルケースの文字列に変換する関数を
作ってほしいと思っています。また、キャメルケースの文字列を
スネークケースの文字列に変換する関数を作ってほしいと思っているのです。
みんなの力が必要です。よろしくお願いもうしあげます。
0041デフォルトの名無しさん
2014/02/15(土) 13:31:59.660042片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/15(土) 13:42:58.37dim i,c,f,newstr
newstr = ""
if len(str) > 0 then
c = mid(str,1,1)
newstr = ucase(c)
f = 0
for i=2 to len(str)
c = mid(str,i,1)
if c = "_" then
f = 1
else
if f = 1 then
newstr = newstr & ucase(c)
else
newstr = newstr & c
end if
end if
next
end if
snaketocamel = newstr
end function
msgbox snaketocamel("test_abc")
0043片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/15(土) 13:51:45.10[email protected]
0044デフォルトの名無しさん
2014/02/15(土) 14:10:24.71dim i,c,f,newstr
newstr = ""
if len(str) > 0 then
c = mid(str,1,1)
newstr = ucase(c)
f = 0
for i=2 to len(str)
c = mid(str,i,1)
if c = "_" then
f = 1
else
if f = 1 then
newstr = newstr & ucase(c)
f = 0;'これ追加
else
newstr = newstr & c
end if
end if
next
end if
snaketocamel = newstr
end function
msgbox snaketocamel("test_abc")
0045デフォルトの名無しさん
2014/02/15(土) 16:40:17.790046デフォルトの名無しさん
2014/02/15(土) 16:57:13.270047デフォルトの名無しさん
2014/02/15(土) 17:32:28.280048デフォルトの名無しさん
2014/02/16(日) 00:37:15.56Function SnakeToCamel(Snake)
Dim Word
For Each Word In Split(Snake, "_")
SnakeToCamel = SnakeToCamel & Capitalize(Word)
Next
End Function
Function Capitalize(Word)
Capitalize = UCase(Mid(Word, 1, 1)) & LCase(Mid(Word, 2, Len(Word)))
End Function
0049デフォルトの名無しさん
2014/02/16(日) 00:43:59.19Function CamelToSnake(Camel)
Const Caps = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim Word
Word = Mid(Camel, 1, 1)
Dim i
For i = 2 To Len(Camel)
Dim c
c = Mid(Camel, i, 1)
If InStr(1, Caps, c, 0) > 0 Then
CamelToSnake = CamelToSnake & UCase(Word) & "_"
Word = c
Else
Word = Word & c
End If
Next
CamelToSnake = CamelToSnake & UCase(Word)
End Function
0050デフォルトの名無しさん
2014/02/16(日) 01:53:43.69まずPersonクラスに、メインキーとなるIDを付けよう
ある範囲の日付で、集計するのだから、
DBにしても、速く検索できない
なぜなら一般的に、
日付に検索用のインデックスを付けないから、
線形探索となり、すべてのレコードを見るので、
計算量はO(n)
日付で集計するのは日次、月次処理で、よくある
0051デフォルトの名無しさん
2014/02/16(日) 10:57:01.16んなこたぁ言ってない
わざわざコーディングする手間がなくなるって言ってるの
そもそも奴は、「Personクラス」の集合を扱いたいが、配列で管理する方法が分からないと言ってるの
それに対して、配列を管理するクラス作ればいいんじゃないと言われ
コードが想像できないから書いてくれとアホな事を言い出すから
DBに突っ込んでSQL使えとアドバイスされてんだよ
0052桃白白 ◆9Jro6YFwm650
2014/02/16(日) 11:14:05.39DBは論外だしー配列を管理するクラスって口で言うのは簡単だけど、
それが難しいから質問してるわけでー桃白白困ってるのー助けてー。
0053デフォルトの名無しさん
2014/02/16(日) 12:13:07.04自分でやれ
ヒントは
配列への追加は、addメソッドつくって、その時にredimする
日付は、datevalueか、dateserialで大小判定が可能になる
で、そんなもの作っても、SQLでちょいちょいと出来るから、労力の無駄以外の何物でもない
0054桃白白 ◆9Jro6YFwm650
2014/02/16(日) 12:21:19.62追加はいらないよ。質問は
Persons配列に含まれるPersonオブジェクトのうち、誕生日が
指定した日付から指定した日付までのもので合計の金額と
人数と年齢の平均を求めたいの。
値を求めるときに入力するのは期間の開始日と期間の終了日なの。
誕生日がこの期間内のものについて処理したいの。
条件が変わるかもしれないからできるだけ汎用性があるように実装したいんだけど、どう実装したらいい?
どれだけ汎用的に実装できるかってところ。質問さえよくわかってないのに実りがないとかいわないでもらいたい。
0055片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/16(日) 12:34:42.060056片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/16(日) 12:44:41.35class paidate
dim year
dim month
dim day
end class
'日付を比較する関数
function paidatecompare(d1,d2)
if d1.year > d2.year then
paidatecompare = 1
elseif d1.year < d2.year thenpaidatecompare = -1
elseif d1.month > d2.month then
...(省略)...
else
paidatecompare = 0
end if
end function
0057片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/16(日) 12:55:06.20class paistatresult
dim total_money'合計金額
dim num_person'人数
dim total_age'年齢合計
dim avg_age'年齢平均
end class
'集計をする関数
sub dostat(statresult,d1,d2)
dim item
for each item in persons
if paidatecompare(d1,item.birthday)<=0 and paidatecompare(item.birthday,d2)<=0 then
...
end if
next
end sub
0058デフォルトの名無しさん
2014/02/16(日) 13:00:10.24追加の条件の通りなら、SQLでやる方が柔軟性が高いに決まってるじゃない
Birthdayだろうと、Nameだろうと、Moneyだろうと、好きなものを集めてこれるよ
0059桃白白 ◆9Jro6YFwm650
2014/02/16(日) 13:11:30.57桃白白はDBが嫌いだからSQLを使いません。
0060桃白白 ◆9Jro6YFwm650
2014/02/16(日) 13:26:45.350061デフォルトの名無しさん
2014/02/16(日) 13:54:05.33Private m_start, m_end, m_count, m_avg, m_total
Private Sub Class_Initialize()
m_count = 0
m_avg = 0
m_total = 0
End Sub
Public Function tako(pai_class_obj)
If m_start < pai_class_obj.Birthday And m_end > pai_class_obj.Birthday Then
m_count = m_count + 1
m_avg = m_avg + pai_class_obj.Age
m_total = m_total + pai_class_obj.Money
End If
End Function
End Class
'---------------
Dim ika, pai
Set ika = New FindClass
ika.StartDate("1999/1/1")
ika.EndDate("2014/1/1")
For Each col In pai_class_array
ika.tako(pai)
Next
msgbox ika.Count & "人: " & ika.Total & "円: 平均" & ika.Avg & "才"
ゲッター、セッターは自分で追加しやがれ
0062桃白白 ◆9Jro6YFwm650
2014/02/16(日) 14:45:22.25>>57
>>61
ありがとうございます。桃白白なんとお礼をもうしあげてよいやら、
ほんとうにありがたく、うれしく、かたじけなく、よろこばしく、このたびはまことにありがとうございます。
>>61
この実装は目から鱗が落ちるようでした。参考にさせていただきたいと思います、ありがとうございます。
0063デフォルトの名無しさん
2014/02/16(日) 15:08:40.18無駄な時間使わせやがって
Classのメンバーを全てPublicにしてるから、>>61のやり方が覚えられないんだろうが
0064桃白白 ◆9Jro6YFwm650
2014/02/16(日) 15:14:40.44Publicは関係ないでしょうが!Publicは悪くないよ、桃白白の悪口ならいいけど、
Publicの悪口は許さないよ!!
0065デフォルトの名無しさん
2014/02/16(日) 15:18:52.61Publicの悪口なんか言ってないだろうが
PrivateとPublicの区別が付かない君のオツムにケチを付けてるだけだろうが
0066桃白白 ◆9Jro6YFwm650
2014/02/16(日) 15:22:33.25桃白白PrivateとPublicの区別付くよ。
PrivateとPublicの区別付くのとPrivateとPublicの区別付かないのとの区別ができてないじゃん。
いいがかりもいいところだよ!
0067桃白白 ◆9Jro6YFwm650
2014/02/16(日) 15:24:40.37だってアクセスできなくなるじゃん。それって誰のためなのって思うわけ。
桃白白そう思うわけ!いつでも心の扉を開けておきたいそういう思いが桃白白にはあるわけ!!
そこをわかってほしいわけ!!!
0068デフォルトの名無しさん
2014/02/16(日) 15:53:09.27ばーか
PrivateとPublicの区別が付かない限り、>>61のやり方が判らないままだといってるの
0069桃白白 ◆9Jro6YFwm650
2014/02/16(日) 15:58:04.32アクセス修飾子関係ないだろって桃白白はいってんの。バカはお前だハゲ、けつ毛そったろか。
0070デフォルトの名無しさん
2014/02/16(日) 16:01:27.69関係あるだろ、その証拠に君、>>61のやり方を思いついてないじゃん
0071桃白白 ◆9Jro6YFwm650
2014/02/16(日) 16:08:27.89アクセス修飾子が原因で思いつかなかったわけじゃないだろ。
全部Publicにしても>>61のやりかたはできるわけだし。
桃白白はアクセス修飾子をすべてPublicにしている。
桃白白は>>61を思いつかなかった。
アクセス修飾子をすべてPublicにする人間は>>61を思いつかないの証明ができてないじゃないか。
0072桃白白 ◆9Jro6YFwm650
2014/02/16(日) 16:11:45.22アクセス修飾子にかんしては桃白白のほうがあっとうてきに正しいことを思い知らせてやんよ
Class Test
Private Value
End Class
Dim t
Set t = New Test
t.Value = 1 <- これができない。
0073片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/16(日) 16:14:15.97プログラム資源のアクセス方法をあえて制限することで問題をオブジェクトローカルに限定することができる。
例えば実装が変わってもgetter,setterを変更するだけで外部仕様の変更を最小限にすることができる。
つまり、仕様変更に強いプログラムにすることができる。
0074桃白白 ◆9Jro6YFwm650
2014/02/16(日) 16:17:59.21こざかしい、こざかしいわ! アクセス修飾子を省略することによって
明晰になるロジックの前ではアクセス制限など必要ないわ!! 違うか!?
0075片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/16(日) 16:25:33.10至るところに点在しているとき、
Valueの値を0か1に制限する必要が生じたとすると、
点在しているt.Value = 2というコードを探しだして変更する
という大変な作業が必要になる。
別に一生小規模開発しかしないなら別にいいんだけどね。
0076桃白白 ◆9Jro6YFwm650
2014/02/16(日) 16:27:11.22Valueをプロパティに変えても点在することに変わりはないでしょうが
0077デフォルトの名無しさん
2014/02/16(日) 16:27:18.34全てのアクセス修飾子をPublicにする限り、>>61を思いつくわけがない
>>72のコードで、「<- これができない。」と書いている時点で、>>61を思いつかないことを全て証明してんじゃん
「<- これができない。」出来ないから、>>61を思いつくのだよ
0078桃白白 ◆9Jro6YFwm650
2014/02/16(日) 16:29:41.22できても思いつくよねっていってんの。桃白白は速攻で思いついたし、アクセス修飾子を
使ってギトギトになってる>>61よりよっぽどきれいなコードを書ける。
0079片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/16(日) 16:35:36.76t.SetValue 0とか
t.SetValue 1とか
t.SetValue 2
というコードだったらSetValueの定義を変更するだけでOK。
こういうのをsetterっていうんだけどね。
オブジェクト指向勉強してないでしょう?
0080デフォルトの名無しさん
2014/02/16(日) 16:41:14.49一定範囲内は細かいスコープ管理をしても無駄じゃないかっていう考えはあるな。
javaのデフォルトスコープがpackageスコープっていうのはこの辺の考えを引き継いでいる。
反対にこの辺むやみに厳密にしようとしたのがC++だった。
0081桃白白 ◆9Jro6YFwm650
2014/02/16(日) 16:43:13.71なに言ってんだお前。
SetValueを変更するだけでなにがいいんだ?
必要になったらプロパティ定義するだけじゃねえか。
ほれ。必要ないないならいらないね。
Property Set Value(v)
Value_ = v
End Property
JavaBeans の規則ってどれくらいきついものなんですか? - Yahoo!知恵袋
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1268311327
>同じ機能をpublicフィールドで実装することが推奨されだしている"傾向"(※2)もあります。
勉強してないのはそっちだろ
0082デフォルトの名無しさん
2014/02/16(日) 16:51:38.81そりゃ、模範解答を見てからなら、何でも言えらぁなw
0083桃白白 ◆9Jro6YFwm650
2014/02/16(日) 16:54:52.97そうだよ、なんでも言えるよ、揚げ足取ってやろうか?
日付の境界がおかしいね、メソッドの呼び出しも間違ってる、
アクセス修飾子使ってるからそういう間違いを犯すんだよ、
君のコードがアクセス修飾子を使ってはいけないことの何よりの証拠だw
0084片山博文MZ無能 ◆T6xkBnTXz7B0
2014/02/16(日) 16:57:36.630085デフォルトの名無しさん
2014/02/16(日) 16:59:08.54で?
あんなコード使わなくても、俺はSQLでちょいちょいやるから関係ない
君が駄々を捏ねるから、無駄な時間を使って、無駄なコードを書いたに過ぎない
そして、君は、そんな無駄なコードすら思いつけない無能なのさw
0087デフォルトの名無しさん
2014/02/16(日) 17:14:28.57ちなみに、メソッドの呼び出しが間違ってるところって何処よw
存在しないメソッドがどうたらとか言うなよw
0088桃白白 ◆9Jro6YFwm650
2014/02/16(日) 17:16:38.41かっこつけてるところ
0089デフォルトの名無しさん
2014/02/16(日) 17:18:58.88本当だw
すまんかったw
まっ、Publicのみで書いてたら、>>61を思いつかないってのは嘘じゃないけどなw
0090デフォルトの名無しさん
2014/02/16(日) 17:25:04.83getter,setterが、Propertyとは限らないだろwwww
Function StartDate()
ならどうすんだよwwww
>>89も桃白白ごときに言い含められてんじゃねぇよwwww
0091デフォルトの名無しさん
2014/02/16(日) 17:48:06.190092デフォルトの名無しさん
2014/02/16(日) 17:49:13.64VBすらまともに使えない奴が言うなw
0093桃白白 ◆9Jro6YFwm650
2014/02/16(日) 19:17:03.63>>61って平均値計算されないよね
たしかに思いつく気がしないわ、平均値求めたいのに
平均値を計算しないコードなんて思いつかないわ(大皮肉)
>>90
お前は何を言っているんだ。
>>88の意味をわかっていないんじゃないか?どうなんだ?
0094デフォルトの名無しさん
2014/02/16(日) 19:47:27.31おいおい、平均値が計算されてないってw
おんぶに抱っこの赤ちゃんかよw
白白ちゃん、御ねむの時間ですよwwww
PrivateとPublicの区別を付けなきゃ、あのコードがClassである意味がないだろうが
単にSubでも十分機能するっての
変数部分だけ、Classで構造体にすりゃ十分じゃん
0095桃白白 ◆9Jro6YFwm650
2014/02/16(日) 19:56:11.92ちょっと何いってんのわからないし、なんかお前つまらない。
桃白白はお前と話すのをあきらめた。
0096デフォルトの名無しさん
2014/02/16(日) 20:10:03.860097デフォルトの名無しさん
2014/02/16(日) 21:05:59.28オオッ!パイパイ
ボヨヨンヨン
0098デフォルトの名無しさん
2014/02/16(日) 21:16:15.73お口を開けてパックンチョ
0099デフォルトの名無しさん
2014/02/21(金) 17:43:01.44チンチンたちますかあ?
0100桃白白 ◆9Jro6YFwm650
2014/02/23(日) 19:59:05.79/⌒ ⌒\
/( ●) (●)\
/::::::⌒(__人__)⌒:::::\ 桃白白いいこと思いついたお!
| |r┬-| |
\ `ー'´ /
0101デフォルトの名無しさん
2014/02/23(日) 22:18:59.47> そうなんだ、すごいね! <
´ ̄^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^ ̄
__、、=--、、 __
/ ・ ゙! /・ `ヽ
| ・ __,ノ (_ ・ |
ヽ、 (三,、, _) /
/ー-=-i'’ (____,,,.ノ
|__,,/ |__ゝ
〉 ) ( )
■ このスレッドは過去ログ倉庫に格納されています