VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2017/06/28(水) 20:52:02.68

ピラフ逃亡中?

**ピラフ** ◆9Jro6YFwm650 · 2017/11/07(火) 20:23:41.51

>>67
VBScriptでByRefが有用な場面教えて

**ピラフ** ◆9Jro6YFwm650 · 2017/11/07(火) 20:28:37.36

>>68
海外フォーラムで鍛えられて帰ってきた帰国子女の>>63がいるからピラフはあまり心配してないんだよね

**ピラフ** ◆9Jro6YFwm650 · 2017/11/08(水) 20:55:51.10

ハイパーでっかい文字列を受け渡しするときにもByRefが有効だったりしないかな
ちょっと誰か試してみて

**デフォルトの名無しさん** · 2017/11/09(木) 08:44:28.16

更新必要じゃ無けりゃByRefでしょ
速度がダンチだよ

**デフォルトの名無しさん** · 2017/11/09(木) 15:17:17.54

指定しないときByRefになるから
ByValがおまけなんじゃなかろうか

**デフォルトの名無しさん** · 2017/11/09(木) 21:16:19.29

VBScriptもちょまどの様なのが欲しいね

**ピラフ** ◆9Jro6YFwm650 · 2017/11/09(木) 21:38:13.49

　　　＿＿＿＿
　　 / ⌒　　⌒　＼
　　./( ―）（　●）　＼
　 /::⌒（_人＿）⌒::::: 　|　チラッ
　 |　　　ー　　　　　　.|
　＼　　　　　　　　／

**ピラフ** ◆9Jro6YFwm650 · 2017/11/09(木) 22:05:28.52

文字列で試してみた
https://www.fastpic.jp/images.php?file=5783192533.png

計算量はByRefの方がいい
長さが65,536の文字列を引数に1,000万回関数を呼んだらByRefの方が60秒速い
1万回くらいでは差が0.1秒未満で計測できない

**デフォルトの名無しさん** · 2017/11/09(木) 22:51:08.67

ちょと質問
VBedit使ってるんだけど、日本語入力ができない
フォントをMSゴシッチとかにしても無理、もしかしてみんな日本語打たない？

**デフォルトの名無しさん** · 2017/11/10(金) 08:17:26.68

インライン入力は出来ないけど普通に入力できる
なんか勘違いしてるだけじゃないの

**デフォルトの名無しさん** · 2017/11/10(金) 09:44:56.13

>>78
サンクス解決しました
Winの問題でシステムライン変換ができない状態で再起動したらなおりました

**デフォルトの名無しさん** · 2017/11/10(金) 19:32:22.89

コードを保存しないで実行できるのはVBsEditとSystemScipterだけだよなあ。
他は何故か保存が前提。書き捨てのコードで実験できるのは実に便利だよなあ。

**ピラフ** ◆9Jro6YFwm650 · 2017/11/13(月) 20:15:19.42

あどうも、VBScriptのおしゃれ番長ピラフです

ByRefは配列にしか使えないからうにゃらと言っておられる方が
いましたが配列はVBScriptで最も重要なデータ構造です

たとえば配列を使うことでSystem.Collections.Hashtableよりも
3倍高速なHashtableを実装できます

Hashtable.vbs GitHub
https://gist.github.com/anonymous/8c88e9c5e37edbb06524ec4871e13846

同様にSystem.Collections.Queueよりも高速なキューや
System.Collections.Stackよりも高速なスタックを作ることができます
つまりあれなんです、.NETのコレクションって遅くない？

**ピラフ** ◆9Jro6YFwm650 · 2017/11/13(月) 20:19:26.70

gist.githubって良くない？
アカウント持ってなくてもサクッとコード共有できる
かっこいいよねこれ

**ピラフ** ◆9Jro6YFwm650 · 2017/11/23(木) 12:13:34.23

グーグルのRobotoフォントいいよね
https://www.fastpic.jp/images.php?file=0850861226.png

すっきりしててシンプルで優雅でエレガントな気がするフィーリングだよ

**デフォルトの名無しさん** · 2017/11/23(木) 12:34:26.95

>>83
ピラフの方が優雅でエレガントさ

**ピラフ** ◆9Jro6YFwm650 · 2017/11/23(木) 18:36:13.29

>>84
わかっとるわ!!(激おこ)

**デフォルトの名無しさん** · 2017/11/28(火) 01:27:47.76

質問なのですが現在のスクリプトが管理者権限を持っているかを判別する方法はありますか？
調べてみて WshShell.Run("openfiles", 0, true) で一応できたのですがもっとスマートな方法があれば教えてほしいです。

**デフォルトの名無しさん** · 2017/11/28(火) 03:07:29.93

スマートかどうかは知らないけど

Windows Vista以降なら whoami コマンドを使って
実行中のユーザが管理者権限を持ってるかチェックする方法もある
※ "Mandatory Label\High Mandatory Level" グループがあれば [管理者として実行] の状態

Set WshShell = WScript.CreateObject("WScript.Shell")
ret = WshShell.Run("cmd /c whoami /groups | find /I ""Mandatory Label\High Mandatory Level""", 0, true)
if ret = 0 then
　　MsgBox "管理者"
else
　　MsgBox "非管理者"
end if

**デフォルトの名無しさん** · 2017/11/28(火) 07:36:40.25

>>87
ありがとうございます！

**デフォルトの名無しさん** · 2017/11/28(火) 22:47:03.00

VBSからタスクスケジューラに複数の引数を渡して実行したいのですが、「プロシージャの呼び出しまたは引数が無効です」とエラーになります。
こちらによるとString型の配列を引数にできるとあるのですがどうすれば良いのでしょうか。
ttps://msdn.microsoft.com/ja-jp/library/office/aa382094.aspx

Dim strArg
Dim TaskService
Dim TaskFolder
Dim RegisteredTask

strArg = Array("A1","A2")

Set TaskService=CreateObject("Schedule.Service")
TaskService.Connect
Set TaskFolder=TaskService.GetFolder("\User")
Set RegisteredTask=TaskFolder.GetTask("test")
RegisteredTask.Run(strArg)
WScript.Quit

**デフォルトの名無しさん** · 2017/11/28(火) 23:10:14.60

引数1つならうまくいくのですが…

**ピラフ** ◆9Jro6YFwm650 · 2017/11/29(水) 21:24:28.00

>>89
VBScriptでは無理みたいっすよ、PowerShellやVBAを使うことを検討した方がいいカモ
http://scripting.cocolog-nifty.com/blog/2010/01/post-9f96.html

**ピラフ** ◆9Jro6YFwm650 · 2017/11/29(水) 21:24:51.42

　　　　＿＿_
　　　／　　＼
　　 /　　　　ヽ
　　｜　●　　　|
　／＼　　　　ノ
　(――＞　　 (＿＿
　￣￣>　　　　　＼
　　　/　　/￣￣二) ｜
　　｜　 (＿＿_／　/
　　　＼　　　　　／
～～～～～～～～～～～

**ピラフ** ◆9Jro6YFwm650 · 2017/11/29(水) 21:25:43.27

文字列で渡して受け取り側でスプリットしちゃえばいいのか

**デフォルトの名無しさん** · 2017/11/29(水) 21:40:31.38

ありがとうございます。

**デフォルトの名無しさん** · 2017/12/02(土) 03:34:01.52

>>782

旦那のオチンチンが結構大きいので口に入れるのは辛いですね

**デフォルトの名無しさん** · 2017/12/02(土) 08:14:52.66

ピラフのオチンチンは爪楊枝サイズですが柔らかいので歯の掃除に使えません。

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 09:34:03.97

おちんちん？なんですかそれ

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 09:34:42.24

　　おチンチンびろーん
　　 ∩＿＿＿∩
　　 | ノ　　　　　ヽ/⌒)
　 /⌒) (ﾟ)　　　(ﾟ)　|　.|
　/　/　　( _●_)　ミ/
.（　　ヽ　　|∪|　　／
　＼　　　ヽノ　/
　 /　　　　　　/
　|　　　_つ　 /
　|　 /UJ＼　＼
　|　/ 　　　 )　 )
　∪　　　（　＼
　　　　　　＼＿)

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 09:45:04.84

問題.次の式の結果として正しいのはどれでしょう
(1) 5 / 4 * 3
(2) 5 \ 4 * 3

1.(1)が3.75、(2)が3.75
2.(1)が3.75、(2)が3
3.(1)が3、(2)が3
4.(1)が3.75、(2)が0

**デフォルトの名無しさん** · 2017/12/02(土) 19:56:53.39

まじか？ピラフにおちんちんついてたのか！？
５ｃｈ始まって以来の衝撃ニュースやんけ！！！

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 22:01:41.47

>>100
マシュマロみたいだよ

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 22:03:58.87

マシュマロを食べるたびにピラフのちんちんを思い出す呪いをかけた
　　　　　　　　＿＿＿
　　　　　　　／::::::::::::::::＼
　　　　　／:::::─三三─＼
　　　　／:::::::::<○>三<○>.＼
/⌒)⌒)⌒.:::::::::: （__人__） :::::: ＼　　　/⌒)⌒)⌒)
|　/　/　/..　　　　｀ ⌒´　　　　|　(⌒)/　/ / /,,
|　:::::::::::(⌒)　　　　　　　　　／　ゝ　::::::.　.........._
|　　　　　ノ　　　　　　　　　＼　　/_ ／´　　　　ヽ
ヽ　　　　/　　　　　　　　　　　ヽ / /０　　　　　　.',
　|　　　　| 　　　　　　　　　　　　　　 {o　　　　　　　::}
　　　　　　　　　　　　　　　　　　　　　':　　　　　　　/
　　　　　　　　　　　　　　　　　　　　　　ヽ､_＿_,.,／

**デフォルトの名無しさん** · 2017/12/02(土) 22:05:59.29

やわらかチンコだね

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 22:12:29.99

>>103
ところでさ「君の名は」って映画観た？
ピラフいちゃもんつけてやろうと思って観たけど
大号泣だったわ、あんな悲しい話だったとは……

**デフォルトの名無しさん** · 2017/12/02(土) 22:18:40.42

あらすじ書いてくれれば俺も泣くかも。

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 22:20:11.33

>>105
観たがいいよ！YouTubeとかAmazonで400円で観れるから

**デフォルトの名無しさん** · 2017/12/02(土) 22:22:02.96

じゃあ見てみようかな。

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 22:23:30.55

観て！

**デフォルトの名無しさん** · 2017/12/02(土) 22:30:48.74

>>104
岸恵子いいよね

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 22:34:39.37

>>109
誰それ！！

**デフォルトの名無しさん** · 2017/12/02(土) 23:07:03.58

>>110
http://blogs.c.yimg.jp/res/blog-17-c8/hati3591/folder/1579660/96/54200596/img_0

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 23:17:18.24

>>111
だから誰なのそれ！！

**デフォルトの名無しさん** · 2017/12/02(土) 23:29:30.44

>>112
君の名はの女優さん

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 23:40:07.78

>>113
へぇ

**デフォルトの名無しさん** · 2017/12/02(土) 23:45:00.76

>>114
元祖、君の名はの岸恵子は85歳だけどね

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 23:51:36.46

>>115
へぇ、すごーい

**ピラフ** ◆9Jro6YFwm650 · 2017/12/02(土) 23:51:43.31

すごいわけあるか、ただのババアじゃねえか

**デフォルトの名無しさん** · 2017/12/07(木) 20:05:52.27

油飯はおるか

**ピラフ** ◆9Jro6YFwm650 · 2017/12/07(木) 20:09:08.85

おーす

**デフォルトの名無しさん** · 2017/12/07(木) 20:34:26.18

生きておったかw

**ピラフ** ◆9Jro6YFwm650 · 2017/12/07(木) 21:19:52.73

生きておったわ！

**デフォルトの名無しさん** · 2017/12/13(水) 02:25:54.83

vbsなんていう、完全終了してる言語になんでしがみついてんの？

**デフォルトの名無しさん** · 2017/12/13(水) 08:16:38.10

普通にJavaScriptかPowerShellだよね今なら

**ピラフ** ◆9Jro6YFwm650 · 2017/12/13(水) 21:39:01.71

なんか放っとけないんだよね
VBScriptにはピラフがいないといけないんじゃないかって
気がつくとVBScriptのことばかり考えてる

**ピラフ** ◆9Jro6YFwm650 · 2017/12/13(水) 21:42:49.30

>>123
Node.js使ったことある？あれマジヤバくない？なんていうかマジヤバくない？
超速いんですけど、メモリ効率もすごいし、zip解凍するだけで使えるハイパーポータビリティだし
あれはねヤバイね

**デフォルトの名無しさん** · 2017/12/13(水) 21:43:23.33

ピラフが居なくなったらMSもVBScriptから撤退するだろうな

**ピラフ** ◆9Jro6YFwm650 · 2017/12/13(水) 21:44:59.47

こんばんわ、対偶警察です

**デフォルトの名無しさん** · 2017/12/13(水) 21:59:40.24

仕事で初めて使うことになった
プログラミングとかの経験はほぼない
CSVファイルをデータベースにインサートをするスクリプト作ることになったんだけど、どんなコードを書くのか想像すら付かない
コードも暗号にしか見えないし出来るのか…

**デフォルトの名無しさん** · 2017/12/13(水) 22:50:36.44

ピラフを信じてがんばれ

**ピラフ** ◆9Jro6YFwm650 · 2017/12/14(木) 07:07:59.68

なんとかなるよ！絶対大丈夫だよ！！

**デフォルトの名無しさん** · 2017/12/14(木) 09:31:12.78

割とガチでJavaScript使った方が良いと思う

**デフォルトの名無しさん** · 2017/12/14(木) 10:33:19.80

>>128 だけど
とりあえず少し触ってデータベースへアクセスする部分は書けた(全部で5行くらいだけど)けどCSVをデータベースにインサートする部分が全く分からん
このケースってそんなにないのかな？
ネット見ても似たサンプルが見当たらない…
どういう考え方というか進め方をすればいい？

**デフォルトの名無しさん** · 2017/12/14(木) 10:43:51.05

>>132
やり方としてはCSVからSQL(insert文)作って実行するだけじゃない

**デフォルトの名無しさん** · 2017/12/14(木) 11:53:20.97

>>133
ありがとう
でも全然分からん
CSVファイルの中身を一度抽出する必要がある？
それともファイルごとDBぶん投げるの？

あと、インサート文を書くにしてもVALUE部分はどう書くの？

**デフォルトの名無しさん** · 2017/12/14(木) 12:17:12.25

>>134
csvファイルの中身を抽出してカラム毎に分解してinsert文を作る。
あとはピラフ大王に教えてもらえ

**デフォルトの名無しさん** · 2017/12/14(木) 12:20:44.21

>>135
ありがとう
やっぱ中身の分解は必要なんだね
もう少し調べてみる

ファイルの中身を列ごとに取得
SQL文作成
データベース接続
SQL投げる

って流れで良いかな？
質問ばっかりで申し訳ないんだけど、日付でファイルを指定したりも出来る？

**デフォルトの名無しさん** · 2017/12/14(木) 12:25:53.25

>>136
データベースエンジンによってはcsvをインポートするコマンドがあったりする。
SQLServerのbcpコマンドとか。

**デフォルトの名無しさん** · 2017/12/14(木) 12:27:10.00

>>136
何の日付さ?

ピラフ大王出てこいや!

**デフォルトの名無しさん** · 2017/12/14(木) 12:34:15.66

>>138
そうなんだね
ポスグレ使ってるから調べてみる
日付はCSVに付加させてて、今日の日付のファイルのCSVを読み込むって事をやりたい
行の取得が一般的なの？列の取得ってどうやるんだ？

**デフォルトの名無しさん** · 2017/12/14(木) 12:59:37.58

>>139
scripting.filesystemobjectをcreateobjextして
opentextfileで開いてreadlineするか
readallで全部読んでから、vbcrlfでSplitしてFor eachで処理する
読んだ一行は、カンマでSplitして文字列はダブルクォーテーションで囲んだりしながらvalue部分作成
あとはあらかじめ用意したSQLにくっつけて実行

**デフォルトの名無しさん** · 2017/12/14(木) 13:00:53.79

>>139
こんな感じのははよくやるね

**デフォルトの名無しさん** · 2017/12/14(木) 13:02:48.86

>>140
ありがとう
呪文にしか見えん…
ちょっと調べながら解読してみる…

**デフォルトの名無しさん** · 2017/12/14(木) 13:04:28.86

なんでvbscriptなのさ

**デフォルトの名無しさん** · 2017/12/14(木) 13:10:13.59

>>142
スペル間違ったcreateobjectね

**ピラフ** ◆9Jro6YFwm650 · 2017/12/14(木) 20:51:32.40

　　　　　　　　 _＿＿＿/￣￣
　　　　　　　　　／　│￣＼＿＿　　　　　ゴゴゴ・・・
　　　　　　　　　　　　/

　　　　　　　　..　　　、　　　　　　,＿
　　　　　　　￣＼＿／￣￣＼/￣　　　　　ゴゴゴゴゴゴ・・・
　　　　＿＿＿／￣へ√⌒l⌒´￣￣＼＿
　　　　´　　　　　　　 /　　　＼

　　　　　＿　　　.／￣￣￣＼　　　　／
　　　　_＿　｀ソ／　─　　─ 　＼/￣／
　　　　　　＼／ﾟ　（●）。（●）　＼/ rへ,ノ　　　・・・・・・
　＿＿＞-へ| i 　　（__人__）　　　|ノ　 :.＼＿
　　　　　　.:／从へ、.ﾟ｀ ⌒´o.ノ从rーﾍ＿
　　　＿::ノ　　　　:ﾉ｀⌒Y⌒´::　　＼
　　　　　　　　.::┘ 　 :│　　　ﾟ

**ピラフ** ◆9Jro6YFwm650 · 2017/12/14(木) 20:53:21.84

>>138
今日から君がピラフ大王やで、頑張りや

**デフォルトの名無しさん** · 2017/12/14(木) 21:27:29.66

おい何言ってんだ突然？！ピラフ引退するんか？？？

**デフォルトの名無しさん** · 2017/12/14(木) 21:41:37.95

>>146
ピラフ上皇になるんけ

**ピラフ** ◆9Jro6YFwm650 · 2017/12/14(木) 21:55:27.69

>>147
ピラフの名を汚さぬようよろしく頼む

**ピラフ** ◆9Jro6YFwm650 · 2017/12/14(木) 21:59:41.80

>>148
上皇ってかっこいいよね常考

**デフォルトの名無しさん** · 2017/12/14(木) 23:12:43.99

>>142 です
>>140 の人丁寧に教えてくれたけど全然分からなかった…すまん…

CSVの読み込みにCOPYが使えるってのを見つけて試そうと思ったんだけどファイルの先頭3行に必要ない行があるからskipを使ってコード書いたけど実行すると”skip”付近で記述がおかしいみたいなエラーが出る
これ何かおかしい？

Sql = "COPY datatest FROM 'C:\\FTP_Test\\LOG01\\00006401' skip 3; "

**デフォルトの名無しさん** · 2017/12/15(金) 00:45:26.00

ピラフの雰囲気だとなんでもエクセルとVBA使ってそうだけど

**ピラフ** ◆9Jro6YFwm650 · 2017/12/15(金) 06:57:53.93

>>152
ピラフ貧乏だからエクセル持ってないの！

**ピラフ** ◆9Jro6YFwm650 · 2017/12/15(金) 07:03:01.40

>>151
ポストグレスの重要機密文書見たけどskipは載ってなかったよ
skipオプションは使えないんじゃないかな
https://www.postgresql.jp/document/9.3/html/sql-copy.html

テキストエディタでサクッちゃいなよ
やっちゃえエディタ

**デフォルトの名無しさん** · 2017/12/15(金) 07:26:16.07

>>154
skipないのか…
>>140の人がレスくれた内容がこの辺かな？
http://bayashita.com/p/entry/show/85
これを

読んだ一行は、カンマでSplitして文字列はダブルクォーテーションで囲んだりしながらvalue部分作成
あとはあらかじめ用意したSQLにくっつけて実行

って全然イメージ付かない…
1行ずつよんだ結果は上のサイトで言う所のstrLineに入ってるって理解で良いのかな？
この変数の中身をどう分解すれば良いんだ？
聞いてばっかりでごめん

**ピラフ** ◆9Jro6YFwm650 · 2017/12/15(金) 07:35:06.35

>>155
strLineには1行ずつ読んだ結果が入ってるよ

Split関数を使ってカンマで切って配列に変換すればいいよ
Dim values
values = Split(strLine, ",")

**デフォルトの名無しさん** · 2017/12/15(金) 07:42:39.22

>>156
ありがとう
CSVの列の数とテーブルの列の数が同じなら下の書き方で上手くインサートできる？

INSERT INTO test
(aaa,bbb,ccc)
VALUES
(values)

**デフォルトの名無しさん** · 2017/12/15(金) 14:54:11.24

>>157
数も順番も同じなら、テーブル名も省略できるよ

**デフォルトの名無しさん** · 2017/12/17(日) 10:15:48.77

“今日の日付のファイル”を読み出すって場合はどういうコードになるの？
日付を付加するとかはあるけど探して読み出すっていうのが見つけられなかった

**デフォルトの名無しさん** · 2017/12/17(日) 10:45:58.69

>>159
どこに日付が有るの？
ファイル名なのか、作成日付なのか変更日付なのか
ただ日付と言われても誰も解らないよ

**デフォルトの名無しさん** · 2017/12/17(日) 11:18:09.27

>>159
こんなふうに
https://qiita.com/nobu-maple/items/20c675f9c8f4db55b4c0

**デフォルトの名無しさん** · 2017/12/17(日) 11:30:57.58

>>160
ごめん
読みだしたいファイルに日付が付加されてるんだけど(20171217みたいな感じ)、今日の日時が付いてるファイルのみ判別して読み出すっていうのがやりたい

**デフォルトの名無しさん** · 2017/12/17(日) 11:35:05.24

>>162
日付はファイルを作成した日時が付加されてる
今はパスに対象のファイルを指定してるから読み出したり出来てるんだけど、日付の指定で読み出し対象を変えたいなと思ったんだ

**デフォルトの名無しさん** · 2017/12/17(日) 11:50:43.85

>>162
パス名に一定の規則に基づいた日付がついていて、かつその日付を信頼して制御してOKなら、InStrとかReplaceを使ってパスを検索すれば良い
実際のファイル作成日や最終更新日を考慮しなければならないなら、FileSystemObjectとかを使ってFileのプロパティを調べて検索するべし

**デフォルトの名無しさん** · 2017/12/17(日) 12:52:09.35

>>162
ワイルドカードとかの指定は出来ないので
ファイル名を読み出して判定してからオープンする必要がある
sdate=replace(date,"/","")
set ofo = fso.GetFolder(folder)
とかでフォルダー取得して
For each ofi in ofo.files
でファイル一つずつ読み出し
if instr(ofi.name,sdate) <> 0 then
ファイル読み出し、DB書き込み処理
end if
こんな感じかな

**ピラフ** ◆9Jro6YFwm650 · 2017/12/17(日) 12:55:16.18

全部実装した、とにかく全部実装した
https://gist.github.com/anonymous/412bc090b67527a1820ed2c4d770e7ae

**ピラフ** ◆9Jro6YFwm650 · 2017/12/17(日) 12:57:09.71

恥ずかしかったから消した、とにかく消した

**ピラフ** ◆9Jro6YFwm650 · 2017/12/17(日) 12:59:19.04

　　　　　　　／￣￣＼
　　　　　　／　　　　　　＼
　　　　　　|:::::::　:　　　　　 |　　　　　,　　　　　　　　ノ.
　　　　　.　|:::::::::::::　　　　　|　　　　　 'ヽ　　　　　 (
　　　　　　 |::::::::::::: 　　　　|　　　　　　　)　　　　　 )
　　　　　.　 |:::::::::::::::　　　 }　　　　　　　｀　　　　ﾉ
　　　　　.　ヽ＿＿__　　 }　　　　　　　　（ ,ノ' ￣
　　　　　　　 r'ﾆﾆヽ._＼. ﾉ　　　　　　　　 ;;.
　　　　　 r':ﾆニ:_`ｰ三`:く._　　　　　　 [l、.
　　　　／: : : : : : :｀,ニ､: :_:_;＞　　　　／,ｨつ
　. 　 /: : : : : : : : / : : : ヽ＼　　　　 ,∠∠Z'_つ
　　　| : :.:.:.:.:.: . :/: : : : : : l : ヽ.　　 / .r─-'-っ
　. 　 |:.:.:.:.:.:.:.:.:.,' ''"￣: : :l: : : :l 　 /　）:::厂 ´
　　　 |:.:.:.:.::.:.:.:ｌ -─-: : /:_:_:_:_l　/￣｀Y´
　.　　 |:.:.::.:.::.::l._＿: : : :/::: : : : :l/⌒ヽ: :〉
　　　　|::.:::.::.::l: : : : : : /:::: : : : : |: : : : ﾞ/