約 2,399,729 件
https://w.atwiki.jp/wnt0/pages/32.html
#include iostream using namespace std; class TextComponent { public virtual ~TextComponent() { } virtual void PrintOperation() = 0; }; class BodyText public TextComponent { public virtual void PrintOperation() { cout "Body Text." endl; } }; class TextDecorator public TextComponent { public TextDecorator(TextComponent *component) { m_component = component; } virtual ~TextDecorator() { delete m_component; } virtual void PrintOperation() { m_component- PrintOperation(); } private TextComponent *m_component; }; class HeaderDecorator public TextDecorator { public HeaderDecorator(TextComponent *component) TextDecorator(component) { } virtual void PrintOperation() { cout "*** Header ***" endl; TextDecorator PrintOperation(); } }; class FooterDecorator public TextDecorator { public FooterDecorator(TextComponent *component) TextDecorator(component) { } virtual void PrintOperation() { TextDecorator PrintOperation(); cout "*** Footer ***" endl; } }; int main(int argc, char **argv) { TextComponent *component; component = new BodyText; if (argc 1) { component = new HeaderDecorator(component); } if (argc 2) { component = new FooterDecorator(component); } component- PrintOperation(); delete component; return 0; } 参考サイト デザインパターンを“喩え話”で分かり易く理解する http //www.netlaputa.ne.jp/~hijk/study/oo/designpattern.html TECHSCORE http //www.techscore.com/tech/DesignPattern/index.html/ Programing Place http //www.geocities.jp/ky_webid/index_old.html デザインパターンの骸骨たち http //www002.upp.so-net.ne.jp/ys_oota/mdp/
https://w.atwiki.jp/waseitaiho/pages/51.html
テイルズオブシンフォニア～ラタトスクの騎士～ ユニゾナントパック （2013/12/21【54号HRｽﾚ】～2013/12/31【56号HRｽﾚ】） 主な登場モンスター シマ（ウルフ種） デメテル（ベア種） ヤマジ（ハーピー種） リル（メロー種） やませ（チュンチュン種） 1st-Day 12/21 TOSUのプラチナ獲得のためにTODOまとめながら配信開始 30分たってもチラシのうらのメモ配信とか ↑今重要なところだから あと1時間待って インスコしてませんでした（テヘペロコツーン☆（ゝω・）v） インスコ中にメモかけばええのに インスコしながらビブリオテカとリンクの前情報確認 ゴミゲー はっきりわかんだね これ買う人ってどういう頭してるんだろうね このゲームを企画する人間も、この企画を通す人間もおるのが怖い ( ´;ﾟ;ё;ﾟ;)（俺やるけどね多分） インスコ終わり OP アレンジかかったせいで、アニメの序盤の部分が合ってないな 靴の歌か 原曲のギターが消えすぎててあれ ( ´;ﾟ;ё;ﾟ;)（歌詞みたけどいまいち何が言いたいかわからなかったよｍｉｓｏｎｏさん） Dイドとコレットのケーキ入刀で作った新世界 ロイドが万死に値するなんて言葉知るわけない ( ´;ﾟ;ё;ﾟ;)（全くその通り） ハード一択だな TOSの人形劇みたいなグラフィックばかり見てたせいか、ラタはいいな よく動く 復興させたルインがこんなクズみたいな人ばかり住んでるとか悲しくなる リヒター登場 この人婦女子に人気あるんだぞ マグニス様は豚みたいな顔して言うからいいんだろうが この赤毛、同人誌では豚になってそう 完全に受け アルバ登場 パンツのゴムの紐が切れたアルバ師匠懐かしいｗｗ というかアルバさん千葉さんか？ ( ´;ﾟ;ё;ﾟ;)（ほんとシリーズで名前かぶらせるのやめてほしい） オート糞ワロタｗｗｗｗｗ オートで見守ろうぜ オートになってるよ ( ´;ﾟ;ё;ﾟ;)（いうこと聞かねえと思ったら 初心者かっての） マルタ登場 くぎゅうううううううううううううう くぎゅううううううう 釘宮が出るだけで約束された神ゲー ( ´;ﾟ;ё;ﾟ;)（テンプレありがとうございます） マルタの声に重ねて喋ることは万死に値する 声オタなら聞けばくぎゅってわかるだろ ( ´;ﾟ;ё;ﾟ;)（サーセン・・） 操作キャラは戦闘中以外はエミル、マルタ以外に変えれません ( ´;ﾟ;ё;ﾟ;)（ええええええ） テネブラエ登場 その声はワルトゥ！ 大塚芳忠さんですかね 隊長ここは引いてください この犬ノリがいいな テネブラエそんなキャラだったなんて 知ってたほうちゅうさんだから知ってた ヤる前から知ってたけどイチャイチャしまくるエミマル 腹パンしたくなった このノリきついから早くマルタは手の平返して まあくぎゅはかわいいからね、しょうがないね コレットとは別ベクトルで腹パンしたくなるヒロインだな 恵まれたエフェクトからクソみたいなダメージのユニゾンアタック エフェクトはかっこいいのにダメージ見て萎える ( ´;ﾟ;ё;ﾟ;)（最終的には重要になるんだけどね） なにこれテイルズオブモンスターズ？ ( ´;ﾟ;ё;ﾟ;)（むしろポケモン） 青い人登場 ユアンさんに似てるな ミトスに無限コンボ喰らってたあいつっぽくね うちのシマちゃん（ウルフ）進化するんやて B連打連打！ (＾＾)＼(゜゜)ポケモンか 前作メンバのコレットちゃん登場するもマルタに手をあげられる 肉便器きた 暴力女は氏ね とりあえず一発やってコレットちゃん慰めてあげよう 横顔きゃわわ 前作が深刻な話ばかりだったせいなのか こっちは話は暗いけどキャラが無駄に明るくていいね アスカードにて敵の起こす風を避けるミニゲーム この軽快な音楽 ( ´;ﾟ;ё;ﾟ;)（あたってへんて 当たり判定おかしいってこれ） 当たったやつはみんなそういうんだよ ( ´;ﾟ;ё;ﾟ;)（ｼｭﾝ） そしてボスに敗北 はい ラタトスクって敵の攻撃が異常に痛い気がする いいゲームだ TOSより絶望 Sも序盤はきつかったね これあかんわ 風耐性あげるために装備整えようとするも金足りず そしてザコ敵は金落とさないゲームであった 詰 金落とす敵と落さない敵がいるからなあ シマがいうこと聞かない バッジ持ってないということ聞かないよ (＾＾)＼(゜゜)ポケモンか 配信終了直前に敵の落とす灰の写本（魔物に経験値500）が765の高値で売れることが判明 錬金術ワロタ 2nd-Day 12/22 くまさんは育て続けると中々強くなった気がする くまさんスタメン決定 今日もくぎゅと触れ合えるうううううううう はよガイアス ( ´;ﾟ;ё;ﾟ;)（ちょおま） クマ操作して ( ´;ﾟ;ё;ﾟ;)（できないんやて） まじかよ・・・クマになれないなんて・・・ マルタ うさぎにおわれる このうさぎ発情期なの？ だって同じような耳垂らしてるし 操作キャラ狙うようにできてるんでしょ つまり詠唱キャラ使うなってことだよな ( ´;ﾟ;ё;ﾟ;)（タゲが簡単に変わらないAIなんだな多分） たいほーてホモサピエンスの♂だったの？ 幻滅したわ・・・ ( ´;ﾟ;ё;ﾟ;)（ちょおま） 属性耐性も上げてところで苦戦したインセインを撃破！ ( ´;ﾟ;ё;ﾟ;)（コレットぐでぇってなりすぎだろ べっちゃあなっとるで） 謎の杖出現 調べられないしマップ切り替えで消えるしあれなんだったんだろう だってウサギはセミ喰うし・・・ ガキの頃やったでしょ ウサギの前にセミ置くの ( ´;ﾟ;ё;ﾟ;)（いやみたことないから） おらって言ってジャンプして何もせずに着地するのやめてくれません？ あー どっちの声もうぜえ リヒターさんもDAIGOだったんだね 俺のショコラさん ( ´;ﾟ;ё;ﾟ;)（2年越しのショコラは俺の嫁勢） 前作でみごと正妻のポジ奪った先生登場 Oh,ultra gorgeous cool beauty ( ´;ﾟ;ё;ﾟ;)（ほんとに美人になってる） エミルの不機嫌が有頂天→マルタ「ごめんなさい」 さっきからエミルどうした、生理か お、やっとエミルが本音はいた、面白くなってきたな 釘宮にそんなこと言わせるとか結構やるなこいつ 3rd-Day 12/23 今日も朝までかな 闇の神殿も真っ青の糞マップ ( ´;ﾟ;ё;ﾟ;)（そうだな 見えない上に落ちるからな） 見えない上に落ちるって雷・・ごめんなんでもない 主人公の唐突な魔王モードに草生える 一人二役の演技はすごいんだけどさ でもなんか違うよね 下野の声質的に魔王モードが童貞オタクがこじらせた感じにしか聞こえない たいほー ハーピィゲットに歓喜するも 名前のヤマジが気に入らずハーピィ乱獲を始める ハーピーズペットドラゴンも捕まえないと ヤマジさんぱねぇっす ヤマジ ヤマジ・・・かな 多数決には逆らえない しかたないね ヤマジの存在感 236 名前：ジェイド02[sage] 投稿日：13/12/24(火) 00 00 17 メリークルシミマス 素でクリスマスの存在忘れてた もう歳や・・・ 誕生日は免許の更新ハガキで思い出す 先生再登場 やんちゃなポールにおしりペンペン かなり美人になってんじゃん どうすんのこのトキメキ スパンキングとか大人になってからは金払わないとやってもらえないのに いい経験をしたな、ポール、代われ 先生コンセントレート持ってる（笑） 邪魔しないでじゃなくなってる 先生の隊列おかしなことなってません？ 先生えらく物理でコンボに参加してくるな 280 名前：ジェイド02[sage] 投稿日：13/12/24(火) 01 41 37 軸が合わない？ そりゃ3Dなんてクソゲーだからな [[TOE]]最強やで 281 名前：ジェイド02[sage] 投稿日：13/12/24(火) 01 42 15 280 まったくだよな とくにシゼル戦最高だわ 282 名前：ジェイド02[sage] 投稿日：13/12/24(火) 01 42 17 ヒアデス倒して ( ´;ﾟ;ё;ﾟ;)（ちょおま） シマちゃんまた進化したｙ・・・・(;ﾟ;ж;ﾟ;)ﾌﾞｯ スタメンきた あのさぁ かっこよくなりすぎやが(´・ω・｀) なんかすごいのになってしまわれた 完全に終盤のモンスター マルタ 情緒不安定につき議論にならず またもやパーティアウト ほんと忙しいやっちゃなー 寧ろエミルを受け入れてくれるような言い方にも聞こえるのにどうして最低なのか 仲間を信じないの？って言う疑問から冷たいと思ったんだろうね エミルの方が冷静だなｗｗｗ 妄信的であって欲しくはないけど全く詰めたく冷静であってほしくもないという 事実ノイシュは犬じゃなかったろプロト何とか ( ´;ﾟ;ё;ﾟ;)（あーあれな プロトスヘイなんとか） ここにノイシュとソフィーちゃん一緒にしてる猿がいるぞ ちなみに猿ってたいほーのことな いい加減テイルズまにあになって ノイシュ：プロトゾーン ソフィー：プロトス1(ヘイス) 旧トリエット移籍にてジニカス登場 結構です リスナー、水道を出しっぱなしにする 356 名前：ジェイド02[sage] 投稿日：13/12/24(火) 02 38 22 うわああああああああああああああああああああああ 今便所いったら洗面所から水でっぱなしだったああああああああああああああああああ てかコレ朝からだああああああああああ 水道なんてたかが知れてる ( ´;ﾟ;ё;ﾟ;)（ほんまそれ） でもちゃんと節水せないかんで たいほーとの約束やで 邪魔な魔物をどかすために餌を釣り上げることに ( ´;ﾟ;ё;ﾟ;)（ワカサギ釣りとかいいよね みんなでいきたいね） わかさぎ釣りいいねぇーたいほー以外の誰かといきたい 4th-Day 12/24 ｶﾗｵｯｹｰ ∩ ∩ （･ω･ | | ズコー | | ⊂⊂____ノ ＝§ ジニカスとかいうサンドバッグ あれなんか寝落ちしてた間にクソガキ増えとる こんばんわ うわジニカスじゃん さようなら ジニカスのMP０ついでにHPも０にしとこ ジニカスは相変わらずけん玉なんて舐めた武器使ってんのか 銃声で気づかれないように風下からカス撃って 他作品の話で盛り上がる みんなテイルズに飢えてるんだなあシミジミ ちなみにレジェンディアの話題は（ ファラマニア一人旅なんてハードシゼルにも勝てないたいほーには夢のまた夢だな ヒントなりきり アスベルになりきり全部つけて引きつけば勝手に1人旅できる 引き継ぎなしカオスでいいよ結構楽しいと思う たいほーってアスベルの納刀攻撃使っちゃうような素人なんでしょ たいほーD２の詠キャンできるの？ じゃあSP分与秘奥義は？ 爆炎ループだけはうまいんだぞ だけは ユーリは元から弱いやん ラピード最強ゲーが何だって？ ワンワンしか言わないから面白くない 後半は疾風犬で秘奥義すら無効だし リタのタイダルウェイブでグレード稼ぎしてくださいも書いておくべきだった センチュリオン・コアゲット シャイニングとんがりコーン 浮いたらたけのこの里だった 草に氷は弱点だよ もっとも草も氷も弱点の多すぎて攻撃受けにくいけどね まじでポケモンの話はやめなよ たいほーついていけないでしょ？ (´・ω・｀) 姪の3DS奪おう ( ´;ﾟ;ё;ﾟ;)（なんで姪が３DS持ってるの知っとん） こないだ姪の3DSが～って言ってたからな たいほーは無意識で個人情報垂れ流してるよ(´・ω・`) (´・ω・｀) 島根を馬鹿にされる SHIMANEって主食なんなの いつから島根を日本だとおもってた？ リーガル相変わらず手錠つけて登場 リーガルぎだああああああああああああああ 早く迷彩服着てほしいですね 手錠は捕まってまぁわかるけど仕事でもそのなりなのかよ 人望あついのに誰も釈放させにこないのかよ 100％ジュースで盛り上がる 何歳になってもビールよりオレンジジュースです ( ´;ﾟ;ё;ﾟ;)（せやな オレンジジュースは１００％が至高やな） バヤ派の俺とやるってか？お？お？ オレンジの10％とかはまずいよね リンゴだと10％でも結構おいしいのに 俺は逆にオレンジ100％がまずいと思うわ でもケガ率１０％は結構1発目で引くこと多い気がするよね オランジーナは？ 炭酸とか論外です じゅうしいからあげなんばわーんわん！ ( ´;ﾟ;ё;ﾟ;)？？？ シュタゲみてないとか失望しましたリフィル先生のファンやめます 朝配信あると思っておきたらなかったときはウザいと思った！ ( ´;ﾟ;ё;ﾟ;)（いやもうほんとそれはまじでごめん ごめんって） 結局性の６時間はずっと配信してました ほめて 5th-Day 12/25 吐き気と微熱と下痢のなか配信開始 吐き気とかノロじゃねーの それ完全にノロだろ 明日病院言ったほうがいいよ ノロとか拾い食いするからや 画面の前で男1人ノロ状態でイチャイチャシーンを見ながら ひとりごと言ってる姿を想像したら泣いた 40℃越えTA 調べてみたら今島根でもノロ流行してるみたい 今月頭から急増しててまだ増加傾向にある クソみたいなモーションから繰り出される秘奥義習得 テンポ悪い秘奥義きたー 一体どこから走ってくるんだよ クルクルクルー テンポ悪くてダサいんだよね ( ´;ﾟ;ё;ﾟ;)（なんだこれ・・秘奥義でねえぞ・・） むしろ何で秘奥義が出ると思うのか 何言ってんだ！ファンタジアはTP100を消費してクレスは冥空斬翔剣を放つんだぞ TP50つかいまーす ( ´;ﾟ;ё;ﾟ;)（フェ・・・ニア・・？） 姿もそのフェニアになるよ このゲームやったけどモンスターに元ネタとかあったのか コミケの話 これのリチャード陛下イケメンだけどルドガーくんがなんか変 ttp //tales-ch.jp/news_detail.php?news_id=834 とりあえず買ってくるわ12000円だった コミケで10万飛ぶのは当たり前だと思ってる むしろ10万でも少ない 今回の予算は15万 まぁ足りるだろ(´・ω・`) 俺レベルになるとちゃんと倉庫があったりする(´・ω・`) イケメンの抱き枕に入っておくと それを買った美少女と一緒に寝れる プレセア本買ってる奴は身辺調査すべき 近い将来必ず犯罪者になる エル本のがやばい リーガル×マリクの濃厚なやつ買えよ 6th-Day 12/27 GOMAさんラスダンじゃねーか しねほー ( ´;ﾟ;ё;ﾟ;)（なにそれ理不尽なんだけど） 最初は単にしねほーとだけ挨拶で書くつもりだった チャンネルみたらGOMAさんがラスダンだった 1つにまとめた ( ´;ﾟ;ё;ﾟ;)（そうか） バカ！エッチ！最低！ ご褒美です 震天裂空斬光旋風滅砕神罰信じてる ( ´;ﾟ;ё;ﾟ;)（ロニか） ロニじゃねえマリクだ ロニだと だっせー になっちゃうだろ GCは両手に持って殴るもの ラタトスクちょろすぎｗｗｗ 恋・・・かな 怒ってるときのくぎゅもかわいいなあ 69 名前：ジェイド02[sage] 投稿日：13/12/28(土) 04 38 11 ／⌒ﾞ丶{ ./⌒ﾞ＼ ＼ / / 〉 / ／⌒＼∨'´￣ . ＼_〉〈 / _＿/ / ／ . ／⌒ . . . ＼_ﾝ＾＼ . ＼|. |ﾞ⌒ア⌒ . . . . . ＼. {厂￣ ＼ 乂| ｱ. . ./ . . . . . .＼〈〕＿＿∧ 7 . . 〈 . . . . ＼ . 〈∧ . . . , ／] . . 八. . |／＼ ハ. .N ∧ . . . , |／|/| . ＼∧ . L斗ヤT│ | . ∧ . . . , 冷凍ポテト食べるのん！ . |八 . T卞(＼∧ Vツ ﾉ ∧|）/ . . . ' 、 V从 ツ . 乙ｲ. . [/ ヽ. . . ヽ / |ﾊ. ' | . | ＼ . . ＼ / .[人 (＞ ／| .∧_ ＼ . . , . / . 八. |≧=- ＜ﾑ | / ／＼ ヽ. . , 70 名前：ジェイド02[sage] 投稿日：13/12/28(土) 04 39 02 れんちょんだよ(´・ω・`) 71 名前：ジェイド02[sage] 投稿日：13/12/28(土) 04 39 16 にゃんぱすー 72 名前：ジェイド02[sage] 投稿日：13/12/28(土) 04 39 42 にゃんぱすー ( ´;ﾟ;ё;ﾟ;)（どうした） 7th-Day 12/30 人質のフリするリーガルさん 「何だそれは」「私だ」 お前がしゃべるのかよ 恒例温泉イベント ( ´;ﾟ;ё;ﾟ;)（いけるが・・いくか？） 行け今すぐ ちっぱい！ マルタ「きちゃった」 来ちゃったじゃないんだよ ロイドの称号スケベ大魔王（強制） シンフォニアキャラクターイベント しいなで台パン しいな(笑) ｲﾁｬｲﾁｬ奴ーｗｗ 布団を敷こう な？ 壁が足りない アリス、デクスとの決着 4万ｗｗｗ ヒールｗｗｗ ４６０００ﾜｯｼｮｲ オーバーリミッツからのヒールとか分かってるなアリスちゃん センチュリオン・アクアとの決着 見た目より小っちゃいっていう こいつザコだ・・・ サンドバックじゃないか ただのエビフライでしょ リヒターとの決着 →まけました(^q^) ｼｬｼｬｯでフルから死ぬとか 圧倒的力量差 炎耐性たりない そうだ フェニアをつくろう ﾚﾍﾞﾘﾝｸﾞ！ できたあああああ ﾔﾏｼﾞ＜ｴｸｽﾌﾟﾛｰﾄﾞ! 完全に掃除屋 ２０回当てれば勝ちやん ヌルゲーすぎワロタ・・・ レベル上げとかいらんかったんや 必要なのは兵器だったんや さすが聖獣は格が違った エミルの多重人格演技はじまる 演技力やべえええ ロイドさん笑いこらえるの必死やで ずっと眼変わってないしね(´・ω・｀) ヒビはいりましたー ﾊﾟﾘﾝｯ ﾊﾟﾘｰﾝ！ ( ´;ﾟ;ё;ﾟ;)（いやこんなとこで闘いないから） ほんとにあったびっくりした 冗談でﾊﾟﾘﾝとか書いてほんとになったときどういう反応すればいいの そしてエンディングへ おわちゃっちゃ そしておまけの設定画像資料をみんなで見て終わり ハッピーエンドでよかったね
https://w.atwiki.jp/jstory/pages/61.html
NEWS 成員 音樂單曲 專輯 節目 廣告 成員 山下智久? (Tomohisa Yamashita) 錦戶 亮? (Ryo Nishikido) 內 博貴? (Hiroki Uchi) 小山慶一郎?(Keiichiro Koyama) 加藤成亮? (Shigeaki Kato) 草野博紀? (Hironori Kusano) 增田貴久? (Takahisa Masuda) 手越祐也? (Yuya Tegoshi) 森內貴寬? (Takahiro Moriuchi) 音樂 單曲 1.2003/11/07 NEWSニッポン 2.2004/05/12 希望 ~Yell~ 3.2004/08/11 紅く燃ゆる太陽 4.2005/03/16 チェリッシュ 5.2005/07/13 TEPPEN 6.2006/03/15 サヤエンドウ/裸足のシンデレラ 專輯 1.2005/04/27 touch 節目 廣告
https://w.atwiki.jp/mieyanman/pages/22.html
zip2 zip3 [sqlplus_csv] clsDesc.vb Public Class clsDesc Public Property c0Name As String = "" Public Property c1Null As String = "" Public Property c2Type As String = "" End Class clsSelectionRowsMove.vb Public Class clsSelectionRowsMove Dim m_DataGridView As DataGridView = Nothing Dim m_RowsCount As Integer = 0 Dim m_SelectedRowsCount As Integer = 0 Dim m_SelectedRowMin As Integer = 0 Dim m_SelectedRowMax As Integer = 0 Dim m_MoveUpEnabled As Boolean = False Dim m_MoveDownEnabled As Boolean = False Public ReadOnly Property RowsCount() As Integer Get Return m_RowsCount End Get End Property Public ReadOnly Property SelectedRowsCount() As Integer Get Return m_SelectedRowsCount End Get End Property Public ReadOnly Property SelectedRowMin() As Integer Get Return m_SelectedRowMin End Get End Property Public ReadOnly Property SelectedRowMax() As Integer Get Return m_SelectedRowMax End Get End Property Public ReadOnly Property MoveUpEnabled() As Boolean Get Return m_MoveUpEnabled End Get End Property Public ReadOnly Property MoveDownEnabled() As Boolean Get Return m_MoveDownEnabled End Get End Property Public Enum MoveType Top Up Down Bottom End Enum Public Sub New(wp_DataGridView As DataGridView) If wp_DataGridView Is Nothing Then Return End If m_DataGridView = wp_DataGridView m_RowsCount = m_DataGridView.Rows.Count If m_RowsCount 0 Then m_SelectedRowsCount = m_DataGridView.SelectedRows.Count If m_SelectedRowsCount 0 Then Dim w_RowMin As Integer = m_RowsCount Dim w_RowMax As Integer = 0 For i As Integer = m_SelectedRowsCount - 1 To 0 Step -1 If w_RowMin m_DataGridView.SelectedRows(i).Index Then w_RowMin = m_DataGridView.SelectedRows(i).Index End If If w_RowMax m_DataGridView.SelectedRows(i).Index Then w_RowMax = m_DataGridView.SelectedRows(i).Index End If Next m_SelectedRowMin = w_RowMin m_SelectedRowMax = w_RowMax If m_RowsCount 1 Then If m_SelectedRowMin 0 Then m_MoveUpEnabled = True End If If m_SelectedRowMax m_RowsCount - 1 Then m_MoveDownEnabled = True End If End If End If End If End Sub Public Sub SelectionRowsMove(wp_Move As MoveType) If m_DataGridView.SelectedRows.Count = 0 Then Return End If Dim w_SelectionRowList As New List(Of DataGridViewRow) For Each r As DataGridViewRow In m_DataGridView.SelectedRows w_SelectionRowList.Add(r) m_DataGridView.Rows.Remove(r) Next Dim w_Row1 As Integer = 0 Select Case wp_Move Case MoveType.Top w_Row1 = 0 Case MoveType.Up w_Row1 = m_SelectedRowMin - 1 Case MoveType.Down w_Row1 = m_SelectedRowMin + 1 Case MoveType.Bottom w_Row1 = m_DataGridView.Rows.Count Case Else End Select Dim w_Row2 As Integer = w_Row1 + w_SelectionRowList.Count - 1 m_DataGridView.Rows.Insert(w_Row1, w_SelectionRowList.Count) For i As Integer = 0 To w_SelectionRowList.Count - 1 For j As Integer = 0 To m_DataGridView.Columns.Count - 1 m_DataGridView.Rows(w_Row2 - i).Cells(j).Value = w_SelectionRowList(i).Cells(j).Value Next Next m_DataGridView.CurrentCell = m_DataGridView.Rows(w_Row1).Cells(0) For i As Integer = w_Row1 To w_Row2 m_DataGridView.Rows(i).Selected = True Next End Sub End Class frmCsvFile.Designer.vb Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated() _ Partial Class frmCsvFile Inherits System.Windows.Forms.Form フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 System.Diagnostics.DebuggerNonUserCode() _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub Windows フォーム デザイナーで必要です。 Private components As System.ComponentModel.IContainer メモ 以下のプロシージャは Windows フォーム デザイナーで必要です。 Windows フォーム デザイナーを使用して変更できます。 コード エディターを使って変更しないでください。 System.Diagnostics.DebuggerStepThrough() _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.TxtConnect = New System.Windows.Forms.TextBox() Me.TxtTableName = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.TxtWorkFolder = New System.Windows.Forms.TextBox() Me.DataGridView1 = New System.Windows.Forms.DataGridView() Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.TmiOpen = New System.Windows.Forms.ToolStripMenuItem() Me.TmiAdd = New System.Windows.Forms.ToolStripMenuItem() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.TxtCsvFile = New System.Windows.Forms.TextBox() Me.TxtSqlFile = New System.Windows.Forms.TextBox() Me.TxtBatFile = New System.Windows.Forms.TextBox() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.ChkDelWorkFile = New System.Windows.Forms.CheckBox() Me.DataGridView2 = New System.Windows.Forms.DataGridView() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.TmiTop = New System.Windows.Forms.ToolStripMenuItem() Me.TmiUp = New System.Windows.Forms.ToolStripMenuItem() Me.TmiDown = New System.Windows.Forms.ToolStripMenuItem() Me.TmiBottom = New System.Windows.Forms.ToolStripMenuItem() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip2.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() Me.SuspendLayout() Label1 Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(12, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(47, 12) Me.Label1.TabIndex = 0 Me.Label1.Text = "Connect" Label2 Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(12, 35) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(62, 12) Me.Label2.TabIndex = 1 Me.Label2.Text = "TableName" TxtConnect Me.TxtConnect.Location = New System.Drawing.Point(81, 6) Me.TxtConnect.Name = "TxtConnect" Me.TxtConnect.Size = New System.Drawing.Size(100, 19) Me.TxtConnect.TabIndex = 2 TxtTableName Me.TxtTableName.Location = New System.Drawing.Point(81, 31) Me.TxtTableName.Name = "TxtTableName" Me.TxtTableName.Size = New System.Drawing.Size(100, 19) Me.TxtTableName.TabIndex = 3 Button1 Me.Button1.Location = New System.Drawing.Point(435, 2) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 4 Me.Button1.Text = "csv作成" Me.Button1.UseVisualStyleBackColor = True Label3 Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(12, 59) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(62, 12) Me.Label3.TabIndex = 5 Me.Label3.Text = "WorkFolder" TxtWorkFolder Me.TxtWorkFolder.Location = New System.Drawing.Point(81, 56) Me.TxtWorkFolder.Name = "TxtWorkFolder" Me.TxtWorkFolder.Size = New System.Drawing.Size(100, 19) Me.TxtWorkFolder.TabIndex = 6 Me.TxtWorkFolder.Text = "C \Temp\sql" DataGridView1 Me.DataGridView1.AllowUserToAddRows = False Me.DataGridView1.AllowUserToDeleteRows = False Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3}) Me.DataGridView1.ContextMenuStrip = Me.ContextMenuStrip1 Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill Me.DataGridView1.Location = New System.Drawing.Point(0, 0) Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.ReadOnly = True Me.DataGridView1.RowTemplate.Height = 21 Me.DataGridView1.Size = New System.Drawing.Size(434, 383) Me.DataGridView1.TabIndex = 7 Column1 Me.Column1.HeaderText = "名前" Me.Column1.Name = "Column1" Me.Column1.ReadOnly = True Column2 Me.Column2.HeaderText = "NULL?" Me.Column2.Name = "Column2" Me.Column2.ReadOnly = True Column3 Me.Column3.HeaderText = "型" Me.Column3.Name = "Column3" Me.Column3.ReadOnly = True ContextMenuStrip1 Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TmiOpen, Me.TmiAdd}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(154, 48) TmiOpen Me.TmiOpen.Name = "TmiOpen" Me.TmiOpen.Size = New System.Drawing.Size(153, 22) Me.TmiOpen.Text = "tabファイルを開く" TmiAdd Me.TmiAdd.Name = "TmiAdd" Me.TmiAdd.Size = New System.Drawing.Size(153, 22) Me.TmiAdd.Text = "列追加" Label4 Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(234, 9) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(42, 12) Me.Label4.TabIndex = 8 Me.Label4.Text = "csvFile" Label5 Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(234, 35) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(39, 12) Me.Label5.TabIndex = 9 Me.Label5.Text = "sqlFile" Label6 Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(234, 59) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(40, 12) Me.Label6.TabIndex = 10 Me.Label6.Text = "batFile" TxtCsvFile Me.TxtCsvFile.Location = New System.Drawing.Point(280, 6) Me.TxtCsvFile.Name = "TxtCsvFile" Me.TxtCsvFile.Size = New System.Drawing.Size(100, 19) Me.TxtCsvFile.TabIndex = 11 TxtSqlFile Me.TxtSqlFile.Location = New System.Drawing.Point(280, 31) Me.TxtSqlFile.Name = "TxtSqlFile" Me.TxtSqlFile.Size = New System.Drawing.Size(100, 19) Me.TxtSqlFile.TabIndex = 12 Me.TxtSqlFile.Text = "csv.sql" TxtBatFile Me.TxtBatFile.Location = New System.Drawing.Point(280, 56) Me.TxtBatFile.Name = "TxtBatFile" Me.TxtBatFile.Size = New System.Drawing.Size(100, 19) Me.TxtBatFile.TabIndex = 13 Me.TxtBatFile.Text = "csv.bat" Button2 Me.Button2.Location = New System.Drawing.Point(435, 27) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(75, 23) Me.Button2.TabIndex = 14 Me.Button2.Text = "csv開く" Me.Button2.UseVisualStyleBackColor = True Button3 Me.Button3.Location = New System.Drawing.Point(435, 52) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(75, 23) Me.Button3.TabIndex = 15 Me.Button3.Text = "フォルダ開く" Me.Button3.UseVisualStyleBackColor = True ChkDelWorkFile Me.ChkDelWorkFile.AutoSize = True Me.ChkDelWorkFile.Checked = True Me.ChkDelWorkFile.CheckState = System.Windows.Forms.CheckState.Checked Me.ChkDelWorkFile.Location = New System.Drawing.Point(551, 5) Me.ChkDelWorkFile.Name = "ChkDelWorkFile" Me.ChkDelWorkFile.Size = New System.Drawing.Size(85, 16) Me.ChkDelWorkFile.TabIndex = 16 Me.ChkDelWorkFile.Text = "DelWorkFile" Me.ChkDelWorkFile.UseVisualStyleBackColor = True DataGridView2 Me.DataGridView2.AllowUserToAddRows = False Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3}) Me.DataGridView2.ContextMenuStrip = Me.ContextMenuStrip2 Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Fill Me.DataGridView2.Location = New System.Drawing.Point(0, 0) Me.DataGridView2.Name = "DataGridView2" Me.DataGridView2.ReadOnly = True Me.DataGridView2.RowTemplate.Height = 21 Me.DataGridView2.Size = New System.Drawing.Size(302, 383) Me.DataGridView2.TabIndex = 17 DataGridViewTextBoxColumn1 Me.DataGridViewTextBoxColumn1.HeaderText = "名前" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.ReadOnly = True DataGridViewTextBoxColumn3 Me.DataGridViewTextBoxColumn3.HeaderText = "型" Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" Me.DataGridViewTextBoxColumn3.ReadOnly = True ContextMenuStrip2 Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TmiTop, Me.TmiUp, Me.TmiDown, Me.TmiBottom}) Me.ContextMenuStrip2.Name = "ContextMenuStrip2" Me.ContextMenuStrip2.Size = New System.Drawing.Size(99, 92) TmiTop Me.TmiTop.Name = "TmiTop" Me.TmiTop.Size = New System.Drawing.Size(98, 22) Me.TmiTop.Text = "最上" TmiUp Me.TmiUp.Name = "TmiUp" Me.TmiUp.Size = New System.Drawing.Size(98, 22) Me.TmiUp.Text = "上へ" TmiDown Me.TmiDown.Name = "TmiDown" Me.TmiDown.Size = New System.Drawing.Size(98, 22) Me.TmiDown.Text = "下へ" TmiBottom Me.TmiBottom.Name = "TmiBottom" Me.TmiBottom.Size = New System.Drawing.Size(98, 22) Me.TmiBottom.Text = "最下" SplitContainer1 Me.SplitContainer1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.SplitContainer1.Location = New System.Drawing.Point(14, 81) Me.SplitContainer1.Name = "SplitContainer1" SplitContainer1.Panel1 Me.SplitContainer1.Panel1.Controls.Add(Me.DataGridView1) SplitContainer1.Panel2 Me.SplitContainer1.Panel2.Controls.Add(Me.DataGridView2) Me.SplitContainer1.Size = New System.Drawing.Size(744, 385) Me.SplitContainer1.SplitterDistance = 436 Me.SplitContainer1.TabIndex = 18 frmCsvFile Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(770, 478) Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.ChkDelWorkFile) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.TxtBatFile) Me.Controls.Add(Me.TxtSqlFile) Me.Controls.Add(Me.TxtCsvFile) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.TxtWorkFolder) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TxtTableName) Me.Controls.Add(Me.TxtConnect) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Name = "frmCsvFile" Me.Text = "tabファイルを基にcsvファイルを作成" CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip1.ResumeLayout(False) CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip2.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False) CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TxtConnect As System.Windows.Forms.TextBox Friend WithEvents TxtTableName As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TxtWorkFolder As System.Windows.Forms.TextBox Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Column3 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TxtCsvFile As System.Windows.Forms.TextBox Friend WithEvents TxtSqlFile As System.Windows.Forms.TextBox Friend WithEvents TxtBatFile As System.Windows.Forms.TextBox Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents ChkDelWorkFile As System.Windows.Forms.CheckBox Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip Friend WithEvents TmiOpen As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TmiAdd As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip Friend WithEvents TmiTop As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TmiUp As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TmiDown As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TmiBottom As System.Windows.Forms.ToolStripMenuItem Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer End Class frmCsvFile.vb Imports System.Text.RegularExpressions Public Class frmCsvFile Private Enum me_Col1 c0Name c1Null c2Type End Enum Private Enum me_Col2 c0Name c1Type End Enum Private m_SelectionRowsMove As New clsSelectionRowsMove(Me.DataGridView2) Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.TxtConnect.Text = pf_GetIni("", "CSV", "Connect", "ユーザ名/パスワード@ネットサービス名") Me.TxtTableName.Text = pf_GetIni("", "CSV", "TableName", "DUAL") Me.TxtWorkFolder.Text = pf_GetIni("", "CSV", "WorkFolder", "C \Temp\sql") Me.TxtCsvFile.Text = pf_GetIni("", "CSV", "csvFile", "csv.csv") Me.TxtSqlFile.Text = pf_GetIni("", "CSV", "sqlFile", "csv.sql") Me.TxtBatFile.Text = pf_GetIni("", "CSV", "batFile", "csv.bat") Me.TmiTop.Enabled = False Me.TmiUp.Enabled = False Me.TmiDown.Enabled = False Me.TmiBottom.Enabled = False End Sub Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Call ps_PutIni("", "CSV", "Connect", Me.TxtConnect.Text) Call ps_PutIni("", "CSV", "TableName", Me.TxtTableName.Text) Call ps_PutIni("", "CSV", "WorkFolder", Me.TxtWorkFolder.Text) Call ps_PutIni("", "CSV", "csvFile", Me.TxtCsvFile.Text) Call ps_PutIni("", "CSV", "sqlFile", Me.TxtSqlFile.Text) Call ps_PutIni("", "CSV", "batFile", Me.TxtBatFile.Text) If Me.ChkDelWorkFile.Checked Then Dim w_SqlFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtSqlFile.Text) Dim w_BatFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtBatFile.Text) Call ms_DelFile(w_BatFile) Call ms_DelFile(w_SqlFile) End If End Sub Private Sub DataGridView1_CellPainting(sender As Object, e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting If e.ColumnIndex 0 AndAlso e.RowIndex = 0 Then Call e.Paint(e.ClipBounds, DataGridViewPaintParts.All) Dim rect As Rectangle = e.CellBounds Call rect.Inflate(-2, -2) Call TextRenderer.DrawText(e.Graphics, (e.RowIndex + 1).ToString(), e.CellStyle.Font, rect, e.CellStyle.ForeColor, TextFormatFlags.Right Or TextFormatFlags.VerticalCenter) e.Handled = True End If End Sub Private Sub DataGridView2_CellPainting(sender As Object, e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView2.CellPainting If e.ColumnIndex 0 AndAlso e.RowIndex = 0 Then Call e.Paint(e.ClipBounds, DataGridViewPaintParts.All) Dim rect As Rectangle = e.CellBounds Call rect.Inflate(-2, -2) Call TextRenderer.DrawText(e.Graphics, (e.RowIndex + 1).ToString(), e.CellStyle.Font, rect, e.CellStyle.ForeColor, TextFormatFlags.Right Or TextFormatFlags.VerticalCenter) e.Handled = True End If End Sub Private Sub DataGridView2_SelectionChanged(sender As Object, e As System.EventArgs) Handles DataGridView2.SelectionChanged m_SelectionRowsMove = New clsSelectionRowsMove(Me.DataGridView2) If Me.TmiUp.Enabled m_SelectionRowsMove.MoveUpEnabled Then Me.TmiUp.Enabled = m_SelectionRowsMove.MoveUpEnabled Me.TmiTop.Enabled = m_SelectionRowsMove.MoveUpEnabled End If If Me.TmiDown.Enabled m_SelectionRowsMove.MoveDownEnabled Then Me.TmiDown.Enabled = m_SelectionRowsMove.MoveDownEnabled Me.TmiBottom.Enabled = m_SelectionRowsMove.MoveDownEnabled End If End Sub Private Sub TsbTop_Click(sender As System.Object, e As System.EventArgs) Handles TmiTop.Click Call m_SelectionRowsMove.SelectionRowsMove(clsSelectionRowsMove.MoveType.Top) End Sub Private Sub TsbUp_Click(sender As System.Object, e As System.EventArgs) Handles TmiUp.Click Call m_SelectionRowsMove.SelectionRowsMove(clsSelectionRowsMove.MoveType.Up) End Sub Private Sub TsbDown_Click(sender As System.Object, e As System.EventArgs) Handles TmiDown.Click Call m_SelectionRowsMove.SelectionRowsMove(clsSelectionRowsMove.MoveType.Down) End Sub Private Sub TsbBottom_Click(sender As System.Object, e As System.EventArgs) Handles TmiBottom.Click Call m_SelectionRowsMove.SelectionRowsMove(clsSelectionRowsMove.MoveType.Bottom) End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If Me.DataGridView1.Rows.Count = 0 Then MsgBox("tabファイルを開いてください。", MsgBoxStyle.SystemModal) Return End If If Me.DataGridView2.Rows.Count = 0 Then MsgBox("列追加してください。", MsgBoxStyle.SystemModal) Return End If Me.TxtCsvFile.Text = String.Format("{0}.csv", Me.TxtTableName.Text) Dim w_CsvFile As String = String.Format("{0}\{1}.csv", Me.TxtWorkFolder.Text, Me.TxtTableName.Text) Dim w_TableName As String = Me.TxtTableName.Text.ToUpper Dim w_CsvSql As String = mf_GetCsvSql(w_CsvFile, w_TableName, Me.TxtConnect.Text) Dim w_SqlFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtSqlFile.Text) Call ms_StreamWriter(w_SqlFile, w_CsvSql) Dim w_BatCommand As String = String.Format("SQLPLUS {0} @{1}", Me.TxtConnect.Text, w_SqlFile) Dim w_BatFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtBatFile.Text) Call ms_StreamWriter(w_BatFile, w_BatCommand) Call ms_StartProcessWaitForExit(w_BatFile) Select Case MsgBox("csvファイルを開きますか。", MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.SystemModal, "確認") Case MsgBoxResult.Yes Call ms_StartProcess(w_CsvFile) Case Else End Select End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.TxtCsvFile.Text = String.Format("{0}.csv", Me.TxtTableName.Text) Dim w_CsvFile As String = String.Format("{0}\{1}.csv", Me.TxtWorkFolder.Text, Me.TxtTableName.Text) Call ms_StartProcess(w_CsvFile) End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Dim w_WorkFolder As String = Me.TxtWorkFolder.Text Call ms_StartProcess(w_WorkFolder) End Sub Private Sub TmiOpen_Click(sender As System.Object, e As System.EventArgs) Handles TmiOpen.Click Dim w_tabFile As String = mf_FileOpenDialog() If w_tabFile = "" Then Return End If Me.TxtTableName.Text = System.IO.Path.GetFileNameWithoutExtension(w_tabFile) Me.TxtCsvFile.Text = String.Format("{0}.csv", Me.TxtTableName.Text) Dim w_FileText As String = mf_GetFileText(w_tabFile) Dim w_DescList As List(Of clsDesc) = mf_FileTextToDescList(w_FileText) Me.DataGridView1.Rows.Clear() If w_DescList.Count 0 Then Me.DataGridView1.Rows.Add(w_DescList.Count) For i As Integer = 0 To w_DescList.Count - 1 Me.DataGridView1.Rows(i).Cells(me_Col1.c0Name).Value = w_DescList(i).c0Name Me.DataGridView1.Rows(i).Cells(me_Col1.c1Null).Value = w_DescList(i).c1Null Me.DataGridView1.Rows(i).Cells(me_Col1.c2Type).Value = w_DescList(i).c2Type Next Me.DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells) End If End Sub Private Sub TmiAdd_Click(sender As System.Object, e As System.EventArgs) Handles TmiAdd.Click Dim w_ColumnList As List(Of clsDesc) = mf_GetSelectionColumns() Call ms_AddQuery(w_ColumnList) End Sub Private Function mf_GetCsvSql(wp_TxtFile As String, wp_TableName As String, wp_Connect As String) As String Dim sb As New sb() sb.Add("connect {0}", wp_Connect) sb.Add("set echo off") sb.Add("set heading off") sb.Add("set pagesize 0") sb.Add("set feedback off") sb.Add("set linesize 32767") sb.Add("set trimspool on") sb.Add("spool {0}", wp_TxtFile) sb.Add("SELECT ""列番"" ") For i As Integer = 0 To Me.DataGridView2.Rows.Count - 1 sb.Add(" || ,""{0}"" ", i + 1) Next sb.Add(" AS 列番") sb.Add("FROM DUAL;") sb.Add("SELECT ""列型"" ") For i As Integer = 0 To Me.DataGridView2.Rows.Count - 1 sb.Add(" || ,""{0}"" ", mf_ObjectToString(Me.DataGridView2.Rows(i).Cells(me_Col2.c1Type).Value)) Next sb.Add(" AS 列型") sb.Add("FROM DUAL;") sb.Add("SELECT ""列名"" ") For i As Integer = 0 To Me.DataGridView2.Rows.Count - 1 sb.Add(" || ,""{0}"" ", mf_ObjectToString(Me.DataGridView2.Rows(i).Cells(me_Col2.c0Name).Value)) Next sb.Add(" AS 列名") sb.Add("FROM DUAL;") sb.Add("SELECT ""明細"" ") For i As Integer = 0 To Me.DataGridView2.Rows.Count - 1 Dim w_c0Name As String = mf_ObjectToString(Me.DataGridView2.Rows(i).Cells(me_Col2.c0Name).Value) Dim w_c1Type As String = mf_ObjectToString(Me.DataGridView2.Rows(i).Cells(me_Col2.c1Type).Value) Select Case True Case w_c1Type Like "NUMBER*" w_c0Name = String.Format(" || ,"" || TO_CHAR({0}) || "" ", w_c0Name) Case w_c1Type Like "DATE*" w_c0Name = String.Format(" || ,"" || TO_CHAR({0}, YYYY/MM/DD HH24 MI SS ) || "" ", w_c0Name) Case Else w_c0Name = String.Format(" || ,"" || {0} || "" ", w_c0Name) End Select sb.Add("{0}", w_c0Name) Next sb.Add(" AS 明細") sb.Add("FROM {0};", wp_TableName) sb.Add("spool off") sb.Add("set linesize 80") sb.Add("clear") sb.Add("exit") Return sb.ToString End Function Private Sub ms_StreamWriter(wp_File As String, wp_Text As String) Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis") Dim sw As New System.IO.StreamWriter(wp_File, False, enc) sw.Write(wp_Text) sw.Close() End Sub Private Sub ms_StartProcessWaitForExit(wp_BatFile As String) Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(wp_BatFile) p.WaitForExit() p.Close() p.Dispose() End Sub Private Sub ms_StartProcess(wp_File As String) Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(wp_File) End Sub Private Function mf_GetFileText(wp_TxtFile As String) As String Dim ret As String = "" Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis") Dim sr As New System.IO.StreamReader(wp_TxtFile, enc) ret = sr.ReadToEnd() sr.Close() Return ret End Function Private Function mf_FileTextToDescList(wp_FileText As String) As List(Of clsDesc) Dim ret As New List(Of clsDesc) Dim a1 As String() = Split(wp_FileText, vbCrLf, -1, CompareMethod.Text) For i As Integer = 0 To a1.Count - 1 Dim a2 As String() = Split(a1(i), vbTab, -1, CompareMethod.Text) Select Case a2.Count Case 3 Dim w_Desc As New clsDesc() w_Desc.c0Name = a2(0) w_Desc.c1Null = a2(1) w_Desc.c2Type = a2(2) ret.Add(w_Desc) Case Else End Select Next Return ret End Function Private Function mf_ObjectToString(wp_Object As Object) As String Dim ret As String = "" If Not wp_Object Is Nothing Then ret = wp_Object.ToString End If Return ret End Function Private Sub ms_DelFile(wp_File As String) System.IO.File.Delete(wp_File) End Sub Private Function mf_FileOpenDialog() As String Dim ret As String = "" Dim d As New OpenFileDialog() d.FileName = "" d.InitialDirectory = Me.TxtWorkFolder.Text d.Filter = "tabファイル(*.tab)|*.tab|すべてのファイル(*.*)|*.*" d.FilterIndex = 1 d.Title = "開くファイルを選択してください" d.RestoreDirectory = True If d.ShowDialog() = DialogResult.OK Then ret = d.FileName End If Return ret End Function Private Function mf_GetSelectionColumns() As List(Of clsDesc) Dim ret As New List(Of clsDesc) For Each r As DataGridViewRow In Me.DataGridView1.SelectedRows Dim w As New clsDesc() w.c0Name = mf_ObjectToString(r.Cells(me_Col1.c0Name).Value) w.c1Null = mf_ObjectToString(r.Cells(me_Col1.c1Null).Value) w.c2Type = mf_ObjectToString(r.Cells(me_Col1.c2Type).Value) ret.Add(w) r.Selected = False Next Return ret End Function Private Sub ms_AddQuery(wp_ColumnList As List(Of clsDesc)) If wp_ColumnList.Count = 0 Then Return End If For Each r As DataGridViewRow In Me.DataGridView2.Rows If r.Selected Then r.Selected = False End If Next Me.DataGridView2.Rows.Add(wp_ColumnList.Count) For i As Integer = 0 To wp_ColumnList.Count - 1 Dim w_Row As Integer = Me.DataGridView2.Rows.Count - i - 1 Me.DataGridView2.Rows(w_Row).Cells(me_Col2.c0Name).Value = wp_ColumnList(i).c0Name Me.DataGridView2.Rows(w_Row).Cells(me_Col2.c1Type).Value = wp_ColumnList(i).c2Type Me.DataGridView2.Rows(w_Row).Selected = True Next Me.DataGridView2.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells) Me.DataGridView2.Focus() End Sub End Class mdlInit.vb Imports System.Runtime.InteropServices Module mdlInit DllImport("KERNEL32.DLL", CharSet =CharSet.Auto) _ Public Function GetPrivateProfileString( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As System.Text.StringBuilder, _ ByVal nSize As Integer, _ ByVal lpFileName As String) As Integer End Function DllImport("KERNEL32.DLL") _ Public Function WritePrivateProfileString( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpString As String, _ ByVal lpFileName As String) As Integer End Function Public Function pf_GetIni(ByVal wp_path As String, ByVal wp_section As String, ByVal wp_key As String, ByVal wp_Default As String) As String Dim ret As String = wp_Default Dim sb As New System.Text.StringBuilder sb.Capacity = 256 Dim i As Integer = GetPrivateProfileString(wp_section, wp_key, wp_Default, sb, sb.Capacity, mf_path(wp_path)) ret = sb.ToString Return ret End Function Public Sub ps_PutIni(ByVal wp_path As String, ByVal wp_section As String, ByVal wp_key As String, ByVal wp_value As String) Dim i As Integer = WritePrivateProfileString(wp_section, wp_key, wp_value, mf_path(wp_path)) End Sub Private Function mf_path(ByVal wp_path As String) As String Dim ret As String = wp_path If ret = "" Then Dim w_path As String = Application.StartupPath If w_path.EndsWith("\") = False Then w_path = w_path "\" End If ret = String.Format("{0}{1}.ini", w_path, My.Application.Info.AssemblyName) End If Return ret End Function End Module sb.vb Public Class sb Private m_sb As System.Text.StringBuilder Public Sub New() m_sb = New System.Text.StringBuilder() End Sub Public Overrides Function ToString() As String Return m_sb.ToString() End Function Public Function Add(ByVal wp_String As String, ByVal ParamArray wp_Args() As Object) m_sb.AppendFormat(wp_String, wp_Args) m_sb.Append(ControlChars.CrLf) Return m_sb End Function Public Function ToStringRemoveLastCrLf() As String Dim ret As String = m_sb.ToString If ret.Length = vbCrLf.Length Then Dim i As Integer = ret.Length - vbCrLf.Length Dim w As String = ret.Substring(i) If w = vbCrLf Then ret = ret.Substring(0, i) End If End If Return ret End Function Public Sub cb() Clipboard.SetText(m_sb.ToString()) End Sub End Class
https://w.atwiki.jp/stones/pages/216.html
■Fever In The Funkhouse Vol. 1 (LACD-1001) (1CD) / ■Fever In The Funkhouse Vol. 2 (LACD-1002) (1CD) 1981 ■Unreleased Live Stones 1968-1979 (LACD 1034) (1CD) 1968-1979 ■Welcome Back to New York 1975 (LACD-1036) (1CD) 1975.6.27 ■My Imagination (GSCD-1041) 1978.6.14 ■Tokyo Shuffle (LACD 1137) (1CD) 1988 ■Live in Paris (GSCD-2096) (2 CD) 1975.6.7 BACK / NEXT
https://w.atwiki.jp/wiki7_aioi/pages/4.html
test あああ test test 選択肢 投票 A (2) B (0) C (0) あああ -- (あけち) 2006-01-03 12 35 33 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/anno2070jpn/pages/275.html
Gold Refinery 建設コスト 資金400 ,Building Module 7,Tools 12,Steel 8 維持コスト 資金-30 ,電力-4 ,エコバランス-6 サイズ 川の採掘スペース1つ 建設条件 自陣営に属するタイクーンエグゼクティブが1名以上登場する 金の採掘場。 川のスペース一つを使用し、川に眠る金を採掘する。 砂と違い、埋蔵量は非常に少ないため大量採掘を行うと直ぐに無くなってしまうだろう。 採掘された金だけでは使い物にならないので近くにGold Smelteryを建てて加工してやろう。
https://w.atwiki.jp/nekonomike/pages/401.html
Olsen News/2006年08月30日/MKA at MuchMusic Studios #blognavi
https://w.atwiki.jp/thief/pages/18.html
Thief Gold(TG)は、Thief The Dark Projectの完全版。TDPから更新されたいくつかのミッションと、新しい三つのミッションを収録している。 開発 Looking Glass Studios 販売 Eidos Intaractive エンジン Dark Engine バージョン 1.37 デモThe Thieves' Guild 変更箇所 ムービーに日本語字幕をつける ミッション 変更箇所 最初の追加ミッション、Thieves' Guildでは、独立したシーフとしてのGarrettの仕事を描く。このミッションで、Garrettのシーフとしての技能が組織で行動するシーフたちより優れていることが示されている。 また、他の追加ミッション、The Mage TowersとSong of the Cavernsは四元素のタリスマンを探す旅を拡張したもので、TDPでは二つのミッションで四つのタリスマンを入手するところを、TGでは四つのミッションから入手する。 他に、Down in the Bonehoardのテクスチャの更新、Lost Cityのタリスマン関連のストーリー調整、Undercoverの調整、The Swordの追加エリア、パンとチーズを食べる音の更新など、様々な部分でTDPからの変更がなされている。 さらに、ゲーム中には登場しないものの、いくつかのおまけが追加されている。おまけミッションのBlooper Reelでは、ベータ版のバグや変更点、開発者による解説が見られる。また、おまけムービーとしてThief2のメイキングビデオも収録されている。 ムービーに日本語字幕をつける Thieve's Confessionalでムービーに日本語字幕をつける方法が解説されている。 ミッション インデントされていないものはThief Goldで新しく追加されたミッション。 A Keeper s Training Lord Bafford s Manor Break from Cragscleft Prison Down in the Bonehoard Assassins Thieves GuildThe Sword The Haunted Cathedral The Mage TowersThe Lost City Song of the CavernsUndercover Return to the Cathedral Escape! Strange Bedfellows Into the Maw of Chaos Blooper Reel 名前 コメント トップページ
https://w.atwiki.jp/wiki15_idol/pages/5.html
a href="http //www.itmedia.co.jp/news/articles/0607/11/news070.html" target="_blank" フジテレビの動画共有サイト、7月13日にβ公開 /a