約 22,698 件
https://w.atwiki.jp/1aststandunchoin/pages/12.html
管理人プロフィール ニックネーム・・・うん▲ちょ(▲がないとアレに引っかかるためw) 性別・・・秘密だお^^(きもいと思うなよw) 年齢・・・19歳の大学2年生です 現住所・・・兵庫県の3月になると、いかなごの歌がよく流れる所w メールアドレス・・・『clossfire007@yahoo.co.jp』(フリーメールです) ゲーム暦・・・小学校1年生の時からかな?親も割とゲーム好きだったが、ドンキーコングを見るまでまったくゲームに興味がなかったw FPS暦・・・忘れたwまあ据え置き機でも少々やっていました 今やってるオンラインゲーム・・・SA(かれこれ半年以上?)・CF(最近再開w)・SOW(最近停滞気味)・MGO(ロックオンが好きだったんだが・・・^^;) 今後やりたいオンラインゲーム・・・COD4(ナカタマロヲハラス!w)・CS(誰か背中を押してくれw)・CSO(CSの最新版、どうなんでしょう)・OPERATION7(デモだけ見たら面白そう^^運営が強気w) ゲーム以外の趣味・・・野球観戦(するのも好き^^オリックスファン^^)・ゴルフ(ゴルフクラブはギターのケースに入れて持ち運びますw)・音楽鑑賞(主にRock^^) 好きな言葉・・・明日には明日の風が吹く、答えは風に吹かれない 性格・・・かなりのマイペース^^; 私を客観的に表すと 貴方は友達から「遊べる?」というメールが正午にきて、「遊べる」と2時にメールを送り、友達が3時に「何してるんや?」とメールを送ると、貴方は「今、飯食べてる」と返信して、その後、友達が何度もメールするが貴方は反応がなく、やっと6時に「寝てた」とメールを返信し、友達が7時にメールをすると、貴方は「今から風呂入る」と返信し、友達が8時にメールをすると貴方は「スッデンの一周年記念やからちょっと遊んで行くわ」と返信し、友達が10時にメールをすると貴方は「今から飯喰う」と返信し、11時に貴方の方から「今から行く」とメールをするが、結局ダラダラしてしまい、歩いて2分しかかからない友達家に12時、約束から12時間後に着いた。ドアを叩くと友達はドアを開け「おう、入れ」と言い、貴方は「遊べるって言ってから結局、12時間経ったな~」と言うと、友達はちょっと呆れながらの笑顔で「遅すぎやわ」と言った。 私はそんな人間です(ここまで読んで下さりありがとうございますm(_ _)m
https://w.atwiki.jp/playstationjikkyou/pages/26.html
PS3ID オンラインネーム:なおと先輩(みんごる主) フッジッ/^o^\サーン♪フッジッサーンサーン フシフジサンサーンフジバンバンつノ☆☆/^o^\ みんごる5や電車でバンなどを配信する20歳の千バン県民チュッ 飽きるとすぐ次のフッジッ/^o^\サーン♪フッジッサーンサーン フシフジサンサーンフジバンバンつノ☆☆/^o^\に移るチュッ みんごる配信中にフッジッ/^o^\サーン♪フッジッサーンサーン フシフジサンサーンフジバンバンつノ☆☆/^o^\してきたななおをフシフジサンサーンに騙されてつノ☆☆と思い込むチュッ その際の発言まチュッめ お前らフジバンバンすんなよ! フッジッ/^o^\サーンですか? サーンサーンなとこもかわいいんだけど 男はね、/^o^\の尻を追いかける ななおさんと一緒にフッジッ/^o^\サーン! フッジッさん俺のものなんだから フッジッ/^o^\サーン♪フッジッサーンサーン フシフジサンサーンフジバンバンつノ☆☆/^o^\はNG(フリです) 電車でバンでは地元をフジり観光案内実況になった 苗字が♪で始まる 本業のフッジッ/^o^\サーン♪がサーン♪もある みんごるでは二人目の定位置つノ☆☆ フッジッたという名の弟がいる 大体の/^o^\はすぐ飽きる ゲイのファンがたくサーン♪いる模様 ゴルフの基本じゃなくて、頭がフジサーン 罵詈雑言(フッジッ/^o^\サーン♪フッジッサーンサーン フシフジサンサーンフジバンバンつノ☆☆/^o^\) 「俺のフッジッ/^o^\サーン♪やぞ」 CoD4の腕はえいえいよりフシフジサンサーンフジバンバン 挨拶は「チュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュ」 住んでいる部屋には/^o^\がない フッジッ/^o^\サーン♪じゃない ☆から来た 私はチュッになりたい 「許してあげるからwikiの編集方法おしえなさいッチュ」 一回顔うpあり=ガチ/^o^\だったので視聴者の反感をかった(本人が追記) /^o^\充確定(ウソです) ↑フジッグしてみ/^o^\ 487 名前:名無しさん@そうだ選挙に行こう[sage] 投稿日:2009/08/30(日) 08 05 25.37 ID jcVNP+GU0 フシフジサンサーン http //fujifuji-sansa-n.ddo.jp 17744 506 名前:名無しさん@そうだ選挙に行こう[sage] 投稿日:2009/08/30(日) 10 24 58.84 ID jcVNP+GU0 仕方ないんじゃないでしょうか? あんまりいじめるとかわいそうだよ あっお邪魔してますチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュチュッチュッチュッチュッチュッチュ 508 名前:名無しさん@そうだ選挙に行こう[sage] 投稿日:2009/08/30(日) 10 27 21.86 ID jcVNP+GU0 507 サーンサーン被ったみたいだよぅ こんなこともあるんだぁ 512 名前:名無しさん@そうだ選挙に行こう[sage] 投稿日:2009/08/30(日) 10 38 50.88 ID jcVNP+GU0 主よく頑張った いいフッジッ/^o^\サーン!だな 596 名前:名無しさん@そうだ選挙に行こう[sage] 投稿日:2009/08/30(日) 13 00 16.75 ID jcVNP+GU0 主頑張って応援してるから/´∀`*\ うちは結構チュッチュッだよ主の配信 ※すべて/^o^\です。 301 名前:以下、名無しにかわりましてVIPが実況します[sage] 投稿日:2009/09/01(火) 03 07 08.72 ID yrrKviKj0 配信おわり 見てくれた方有り難うございました。 今日は・・やっぱり主はフジメンですた。 /^ω^*ノシ バイバイ 避難・・・いやなんでもサーンサーン 302 名前:以下、名無しにかわりましてVIPが実況します[sage] 投稿日:2009/09/01(火) 03 11 44.43 ID yrrKviKj0 301 お疲れサーンでした。 今日もフジサンでしたよ~ フ氏サーンのCOD4配信で金フ字を見ての発言 239 名前:以下、名無しにかわりましてVIPが実況します[sage] 投稿日:2009/09/22(火) 02 34 17.49 ID enRynZi10 頑張って金フ字目指します/^ω^\ 765 名前:以下、名無しにかわりましてVIPが実況します[sage] 投稿日:2009/09/24(木) 09 08 17.48 ID x9VaauGP0 このスレ的にお勧めのソフトサーンってあります? 773 名前:以下、名無しにかわりましてVIPが実況します[sage] 投稿日:2009/09/24(木) 09 19 15.92 ID x9VaauGP0 あっ 忘れてました 俺フジサン^^ ノシ 774 名前:以下、名無しにかわりましてVIPが実況します[sage] 投稿日:2009/09/24(木) 09 20 08.97 ID nDAtRFAo0 773 /^o^\ 775 名前:以下、名無しにかわりましてVIPが実況します[sage] 投稿日:2009/09/24(木) 09 20 29.05 ID MR1WOytp0 773 /^o^\ 776 名前:以下、名無しにかわりましてVIPが実況します[sage] 投稿日:2009/09/24(木) 09 20 31.87 ID X4pP7wQz0 773 /^o^\ COD4配信中、よく凸してくれる人に対して「このチキンサン!!」と罵倒する 「流石の俺もビッフジフジフジフジ/^o^\サンサーン!!」 「俺はフッジッ/^o^\サーン!!!」 「俺がうんこだ!」 「おぅけーい!俺はフゥジサーン!!」 「フジンサン!」 「それ/^o^\」 「それ/^o^\」 「それ/^o^\」 「それ/^o^\」 「それ/^o^\」 彼の配信中に絶対に言ってはいけない言葉 絶対だぞ!絶対に言うなよ! 「フジサン飽きてきた」 「しねかす」 「フジメン(わらい)」 「/^o^\」
https://w.atwiki.jp/aoba1984-1985/pages/37.html
数名の方から、 「早くブログ更新しろボケエエエエ」 と言われましたので、更新します(笑) ネタが無い・・・ボソッ さて、みなさんの趣味は何ですか? 自分は、歌、読書、ゲーム、旅行です 念のため申し上げておきますが、自分の趣味の話しですので、自分語りが嫌いな人は見ないで下さい 歌については、母親が合唱団をやっていた影響で昔から音楽に触れ合う機会があり、人前で歌う事が大好きでした よく母にコンサートに連れていってもらったのを覚えています 実家で歌の練習をするのですが、いつの日か限界を感じていました そこで見つけたのが、ボイストレーニングです 現在は通っていませんが、1年前までは週に1回の割合で通っていました やはり、プロに教えてもらうと違いますね 自分の固定観念で良しとしていた事が、実は間違えであったり、そもそも姿勢が間違っていたりと最初は散々でしたが、継続していくうちに身についてきました しかし、練習の減った現在は、明らかに腕が落ちていますね・・ そもそも歌は自分という楽器を演奏するものなので、小まめに手入れをしてあげる必要があります 怠ると実力も下がりますね アドバイスになるかわかりませんが、カラオケでうまく歌う方法を書いていきます あくまで、カラオケレベルですので、その辺りはご理解下さい 1、アゴを少しあげる 2、息を吸うポイントに気をつける 3、恥ずかしがらず一生懸命に歌う。但し、空気を読む歌い方を 4、自分に合った曲を選ぶ 1は、自然と音域が広がります 意識してやってみて下さい 2は、曲をよく聴いて、アーティストがどこで息を吸っているのかを覚えてそれを真似して下さい。やはり息を吸うポイントを間違えると苦しそうに聞こえますし、たっぷり息を吸わないと音程が足りなくなります 3は、ボソボソ声で歌っていると聞き手は聞き取り辛くなります。堂々と歌って下さい。しかし、「俺の歌を聞け」的な感じで歌うとナルシストと思われます(笑) 4は、例えば自分でいうと、自分はバラード以外の曲は歌いません もちろん、付き合いや空気を読んだ選曲はしますが、特に規制が無い限りバラード専門です 最近、無理して歌っている人をよくみかけるので、持ち歌を何個か作って、その歌に限定するのも一つかもしれないですね とまあ、色々と生意気言っていますが、思った事を書いてみました 読書については、あの物語に引き込まれる感じが大好きです 気がつけば4,5時間経っているあの感覚は不思議なものですね 勉強だとすぐに飽きてしまうのですが、本だと集中して読めます 前の一人旅の時に書かせてもらいましたが、「坂の上の雲」という本は本気でお薦めします 特に男性は騙されたと思って読んでみて下さい 「1Q84」ですが、これもおもしろいです しかし、いまだに1冊目の後半までです(笑) なぜ遅いかというと、自分は最低でも3時間位の余裕がある時にしか本を読みません 余裕をもって読みたいし、邪魔されたくないからです 最後に、このブログを読むときも、「あいつは何を考えながら書いているのか」と思いながら読むとおもしろくなりますよ ゲームですが、今でもやっています(笑) ゲーム狂と言ってもおかしくないくらいゲーム好きです・・・ 小さいころからよくやっていて、大人?になった今も飽きないです・・・ どれ位好きかというと、仕事が休みで予定がなければ1日中プレイ出来る位狂っています 今までノートパソコンを使っていたのですが、ゲームを録画したいと思い、パソコンにゲームを録画する目的で、ハイスペックPCに買い替えました まあ、URLを貼っておきますので、暇な人や興味のある人は見てください Call of Duty 4 というゲームで戦争ものです PS3、XBOX360、PCで発売しています ちなみに、オンラインゲームプレイ動画ですので、ネットに繋いで、不特定多数の人と対戦しています http //www.youtube.com/watch?v=vhBKLhr_boc http //www.youtube.com/watch?v=o3wnCsz0sqc ※自分のゲームプレイ動画であり、ヘタクソです(笑) ※動画を見るときは携帯より、PCを推奨します。 とまあ、こんなゲームをプレイしています 現在はこのCOD4の続編である COD4 MW2というゲームをやっています 現在日本では発売していませんので、北米版を海外から取り寄せてプレイしています よって、全て英語なのでよくわかりませんが、おもしろいです 結構前に青葉のM君と飲む機会があり、色々話していたところ、彼もこのゲームをやっていたと言う事であり、仲間がいて嬉しかったです オンラインゲームの中には、気の合う仲間でチームを作ったりします 基本的にその仲間と一緒にオンラインで話しながらプレイしています 旅行は、一人旅等を含めると、年に30回位は行っていますね といっても、出張ついでの1泊が多いので、日数は少ないです 色々旅しているうちに、色々な人と出会い、色々な話を聞いてとっても勉強になります 基本的に旅行の内容は、その場所の観光地に行くのがメインです その中で特に優先するのが、歴史のある観光地ですね 新しく出来た物などは興味が無く、昔からある名所旧跡が大好きです 他には、先日書いた山ですね 山ほど自然の驚異を感じるものは無いですね とくに活火山に行くと、地球が生きているのがわかりますね 思えば、先週は毎日の様に飲み歩いていましたね Mちゃんからお誘いがあって、同窓会お疲れ会みたいな感じで飲みました 楽しかった~~ 色々と相談乗ってくれたり、悩み聞いてくれたりありがとね^^v ずいぶん楽になりました~ 土曜日には、S夫妻と子供とT夫妻で西口あかべいで飲んで色々話しました 子供がいると癒されますね 話しも子供中心の話しになりますし、両夫妻とも幸せそうでした え?俺?? そりゃもう空気ですよ、空気 S奥さんが育児で大変そうなので、暇潰し兼ストレス発散の為と思い 俺の家で封印されていた、ニンテンドーDSをプレゼントしました よろこんでくれて嬉しかったなー 大事に使って下さいな 喜んでくれると、あげてよかったーって思うね 両夫妻ともお幸せに~ その頃、元幹事のあの人は、チャラ○ンに磨きをかけているのでした・・ 他には、余ったノートパソコンを人にあげたり、色々あった1週間でしたー
https://w.atwiki.jp/kdash/pages/21.html
SUCシナリオ『Code-Rune』 (1・2・3話更新) @アップローダに上げてあります。 Code-Rune.zipをダウンロードして下さい。 http //nurupo.net/index.php?d=coderune
https://w.atwiki.jp/fpswoman/pages/19.html
クラン戦申し込みについて クラン戦について 真剣にやってきたゲームでは、やはり力試しとしての、クラン戦などを、行いたくなるものです。 また、真剣勝負のクラン戦ではなく、クランの交流会のようなものを行いたいとも思っています。 たいがいのクラン戦は、普段の身内との対戦よりも、気を使って行う必要もありますし、面子を揃えられずに相手の準備を無駄にしてしまう事を避けなければなりません。 従って、それが大丈夫と確信できるゲームだけ、受け付ける形にしようと思います。 現在24団では主に受け付けているのは、RESISTANCEとCALL OF DUTY4のクラン戦またはクラン交流戦です。 クラン戦を申し込んで頂ける方へ まず、真剣勝負のクラン戦なのか、交流会なのか、ご希望をください。 希望の人数は、何人なのか、日時はどういう感じが希望なのか、そしてお返事をどこに返したら良いのか、教えてください。 また、その直接の打ち合わせをどなたを中心に行えばよいのか、教えてください。 できる限り、ご希望に沿ってお受けしますので、宜しくお願いします。 返事などは、相手方の掲示板がなければ、下方にあるコメントしていただいたところに返そうかと思います。 例 ・クラン ピーエススリー 名前ps3 CALL OF DUTY4のクラン戦をやりましょう。 5人vs5人での真剣勝負を考えています。 だいたい6試合ぐらいで、3試合づつルールを持ち寄る形にしたいです。 1時間半ぐらいでがっちりやれればと思います。 できれば土日の開催を希望します。 お返事は、こちらにお願いします。 承諾してもらえるならば、まず担当同士でIDを交換したいと思っています。 ピーエススリーは、ps3が窓口になります。 これはあくまで一例なので、そのままである必要は全くありませんが、こんな感じで来てくれると、お互いスムーズにできるのかなと思います。 それではよろしくお願いします。 ・クラン KKU 担当者名前 HIROKUNーJPN はじめまして、KKUというクランの者です。 ぜひ一度ご高名な24団様とCOD4を一緒に楽しみたいです☆ CALL OF DUTY4のクラン戦をやりましょう。 9人vs9人での真剣勝負を考えています。 だいたい6試合ぐらいで、3試合づつルールを持ち寄る形にしたいです。 1時間半ぐらいでがっちりやれればと思います。 できれば土日の開催を希望します。 お返事は、こちらにお願いします。 http //08.mbsp.jp/br2_res.php?ID=kku c_num=5173 no=6772 action=res 承諾してもらえるならば、まず担当同士でIDを交換したいと思っています。 担当者ID HIROKUNーJPN -- (ひ~~) 2008-03-24 10 48 11 24団のみなさまこんにちは。 SEX2代目代表のBubbleKingと申します。 当クランのHPがこちらの方に変わりました。 http //www33.atwiki.jp/fpsclansex/ つきましては、大変お手数ではございますが、 よろしければ今後とも引き続き相互リンクをお願い致します(__) ※クラン戦申し込み欄なのに申し訳ございません(__) -- (BubbleKing) 2008-11-30 13 55 22 24団のみなさまこんにちは。 クランSEXのBubbleKingです。 4月末をもってクランを解散する事になりました。 つきましては相互リンクの削除をお願いします。 お手数をおかけしますが、宜しくお願い致します(__) どうもありがとうございました。 -- (BubbleKing) 2009-04-24 10 57 56 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/ps3gehakote/pages/28.html
セロテープ ◆CHBTxVTges FPSからギャルゲまでこなすナイスガイ(注 セロハンテープの意味)。 セロテープのフレと思われる住人の話によると、格ゲーがコテの中で一番強いらしい(半年以上前の発言によると、当時の鉄拳DRオンの段位は拳聖)。しばしばKOFや鉄拳を熱く語ってるのがスレで垣間見られる。あと株式投資を行っている。 最近はほとんど姿を見せなくなったが以前はニートやポジトロンと仲が良かった。最近はゼロと良く遊ぶようだ。ゼロの事をゼロさんと呼んでいる。 以前は厨房のような発言が多く、オンゲーをやりながらチャットのようにスレを使ったり、平気でネタバレを書いたりして住人の多くから反発を食らった。その後は訪れる回数が激減したが、反省したのか言葉遣いは以前より丁寧になった。 「クリアする」ことを「超す」と表現する。 ナイスガイの由来 691 :HG名無しさん:2008/02/05(火) 15 03 52 ID DMMlzFZU セロテープ:実は商品名だが世間で定着している名前 セロハンテープ:個有の商品名を使うのがご法度のNHK番組で使用される名称。 正確には「のり付きセロハンテープ」 というわけで、ノッポさんやわくわくさんの好きなナイスガイはセロハンテープと呼ぼう♪ 所有ハード:PS3/他不明 認知度★☆☆☆☆ 出現度★☆☆☆☆ スルースキル★★★★★ 発言集 566 :セロテープ ◆CHBTxVTges :2008/05/31(土) 01 19 58 ID SeZR4oR80 ゼロさん2chなんかしてないで早く戦ヴァル超そうよ(´・ω・`) 64:セロテープ ◆CHBTxVTges :2008/05/14(水) 06 49 16 ID CDrfBjkh0 どもです。 MGS4くるということで、これからまたよく出没するのでよろしくです。 後、週末にいつもゼロさんとかとスカイプしながらCOD4をチーム組んでやってるので 参加してくれる方も募集中です。 僕は弱くていつもみんなの足を引っ張ってますがorz 709 :セロテープ ◆CHBTxVTges :2008/02/03(日) 17 54 29 ID hgYPhUKQ0 どう考えても荒れたのは俺のせいだ まじですまん。これからはNGにしてくれ 201 :セロテープ ◆CHBTxVTges :2007/10/29(月) 18 52 53 ID uCLQ7dyB0 あかん、ドワンゴ株とソニー株をかなり買っておいたら えらいことになってきた この金でラチェクラもイマビキもPS3の有名タイトル買いあさろうかな 826 :セロテープ ◆CHBTxVTges :2007/10/02(火) 01 08 03 ID C4uB6r8K0 ときメモって面白いのか? 俺は車輪とかの方面のギャルゲーしかやってないからちゃんとした恋愛シミュレーションやったことない 820 :セロテープ ◆CHBTxVTges :2007/10/02(火) 01 05 45 ID C4uB6r8K0 金曜にソニーを100株、ドワンゴを10株買った 後悔はしていない 214 :セロテープ ◆CHBTxVTges :2007/09/24(月) 19 26 37 ID FV16Mgb/0 エロゲは絵師5割、メーカー3割、ライター2割って感じで売れる PVやらで宣伝やらで話題を作る据え置きゲーム市場とは全く違う市場だな 188 :セロテープ ◆CHBTxVTges :2007/09/22(土) 18 16 09 ID 7X7v0jD80 加藤夏希が一番熱いと言ってみる
https://w.atwiki.jp/kdash/pages/28.html
注意 直接DLは出来ません。DLリンクをクリック後にローダーからDLして下さい。 Code-Rune・Alternative 現在のところ、K’唯一の単独シナリオです。 一人の少女・ルーンの織り成す冒険と戦いを、ラノベちっくにどうぞ。 辞典ファイルや追加キャラ+シナリオを加筆し、本家に登録しました. ビットマップフルパックDL データフルパックDL 現在・20話まで更新中。本更新より画像とデータが分割されます。 CR総合掲示板 Code-Rune&SUCデータ&学園用データのリクエスト・感想・ご意見をお待ちしております。 何かあったらここまでどうぞ。 SUC用データ SUC用に製作したデータです。現在・約70名(ぇ)。 DL SRC学園用データ SRC学園用に製作したデータです。 DL
https://w.atwiki.jp/ce00582/pages/1176.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss92.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 2, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code92.txt" For Output As #2 For m = 1 To 1249 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1178.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss90.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 2, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next Open "c /psid/code90.txt" For Output As #2 For m = 1 To 1245 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1179.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss89.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 m = 1 endnum = n - 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 2, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code89.txt" For Output As #2 For m = 1 To 1312 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub