あるファイルから、特定の文字列を含む行を抽出する必要があった。 これを Python で実装したところ、いくつか問題にぶつかったのでまとめておく。 [公開後追記] grep -e '^■'じゃダメだったのかな との声をいただきました。確かに…! (;ω;) な、泣いてなんかないんだからねっ。 [追記ここまで] 問題のファイル( )は、以下のような内容になっている。 ■ 1. XXXXX 1. 1. XXXXX YYYYYYYYYY 1. 2. XXXXX ■ 2. XXXXX 2. XXXXX ここから ■ を含む行を抽出して、以下のような出力結果を得たい。 なお、利用している環境は以下の通り。 macOS Catalina バージョン 10. 15.
今回は、前回前々回と見てきたPythonによるテキストファイルの読み込みを利用して、 あるテキストファイル内から任意の文字列を含んだ行を抽出してみましょう。 内容の確認 テキストファイルを読み込んで表示しよう 特定の行を出力しよう 文字列を入力しよう/ファイル名を入力しよう Pythonにはテキストファイルを開き、内容を読み取るための関数・メソッドが用意されています。 それを利用し、今回はテキストファイルの内容から特定の文字列を含んだ行を抽出する プログラムを書いてみましょう。 Linuxで言うところの、grep的なものを作ると思ってください。 では、前回までの内容を参考に、テキストファイルを読み込む部分から書いていきましょう。 というわけで、with~as構文とopen関数を使ってファイルを開きます。 なお、テスト用のファイルとして、Pythonプログラマが持つべき心構えをまとめたとされる 「The Zen of Python」を用意しました。 The Zen of Python, by Tim Peters Beautiful is better than ugly. Explicit is better than implicit. Simple is better than complex. Complex is better than complicated. Flat is better than nested. Sparse is better than dense. 特定の文字を含むセルを抽出 if. Readability counts. Special cases aren't special enough to break the rules. Although practicality beats purity. Errors should never pass silently. Unless explicitly silenced. In the face of ambiguity, refuse the temptation to guess. There should be one– and preferably only one –obvious way to do it. Although that way may not be obvious at first unless you're Dutch.
さてさて。 最初にこの問題見た時思い浮かんだのは、 「これはVBAの案件と言うより、DOSコマンドの案件じゃないの? 」 と言う事でした。 ちょっと尖ったOS弄ってる層だと皆そう考えます。VBAを書ける/書けないは関係なく、明らかにOSに備え付けられた(筈の)コマンドで操作した方が楽そうな問題です。つまり、 「特定の文字列を含んだファイルをピックアップする」 なんてのは、「プログラムを書いて」そのプログラムにやらせるよりOSが得意(な筈)な仕事なんですよね。 んで、VBA素人の僕はこう考えたわけです。 「VBA書いた事がない僕でもVBAからDOSコマンド呼び出すくらい余裕で簡単に書けるでしょ。」 簡単じゃなかった VBAって聞きしに勝る劣悪なプログラミング言語・・・っつーか環境なのかな? でした。Visual Basic自体は知りませんが、間違いなくExcelに載ってるVBAは最悪の言語/言語環境の一つです。初めてExcelでVBA使ってみましたが、まぁ~、これほどストレス感じて何か書いたのは久しぶりです。 正直言うと、題意のプログラムくらいだったら、Python使ってOSのコマンド走らせてcsvファイルにまとめた方が早いと思います。csvファイルはExcelで開けてそっちの方で保存できるんで、題意のプログラムを「わざわざ使いづらい」VBAで仕上げんでもエエんちゃうの、って思ったのが「正直なトコ」です。それくらいVBAのプログラムを書く環境がツラかった。 ではまずは前提条件。その前提条件がちとややこしいんですが。 まず質問に提示されてるこの部分から。 > ・条件・ >.
質問日時: 2020/10/05 23:45 回答数: 4 件 エクセルvbaで特定の値のある行の抽出、別シートへ貼り付けをしたい index関数を使って、ある列の特定の数字のある行のデータを別のシートの一覧表に抽出してます。しかし列に同じ数字があると一番上の行 10 しか抽出できません。具体的には、 5/1 10 会議費 お菓子 1500 5/7 10 会議費 お茶 1000 5/9 11 事務費 コピー用紙 2000 5/12 13 広告費 印刷 10000 (以下、このようなデータが続く) のように続く表から、10に当たるところの行を別シートに貼り付けたいのです。そこでvbaでできないか試していますが、なにせ初心者で、いろいろ調べてますが、うまくいきません。vbaのコードをご教示願います。 No. 4 ベストアンサー 回答者: d-q-t-p 回答日時: 2020/10/06 10:58 > お示しのマクロの記録だと一覧が全て出来ないと別表ができないようで そんなことはありません。「リスト範囲」を列で指定しておけばいいです。 もしくは表にテーブル設定を入れておいて構造化参照にしてもいいです。 「検索条件範囲」は論理式を書き出す形でもできます。 > クエリもあまり使ったことがないので、これを機に試してみます。 やってみて分からないところを別途質問してください。 0 件 No. 3 fujillin 回答日時: 2020/10/06 10:06 こんにちは 具体的な内容が不明ですが、ご質問の内容程度であれば(多分)フィルタオプションの機能を利用すれば、該当するものを順に抽出できると思います。 もちろん、マクロでも可能ですが、作成できない人には無理でしょう。 関数でも(多分)可能と思います。 FILTER関数が利用できる環境であれば、そのままで簡単に抽出できるはずです。 FILTER関数が利用できない場合は、少々面倒な数式になりますが、それでも可能です。 「面倒な数式」の場合に、イメージ的には =IFERROR(INDEX(A:A, AGGREGATE(15, 6, ROW(B$1:B$99)/($B$1:$B$99=10), ROW(A1))), "") みたいな関数式で可能ではないかと推測します。 式中の ($B$1:$B$99=10) の部分が抽出条件に該当することになります。 この回答へのお礼 ありがとうございます。マクロは勉強中で本をみたり、ネットのコードをためしたり、変えたりして試行錯誤してます。関数についても番号を自動的にふりなおしたりindex関数を使ったりも試しましたが、イメージどおりにならず、まだまだ勉強不足のようです。お示しの関数を試して見ようと思います。 お礼日時:2020/10/06 10:53 No.
』に収録されている「ごほうびアニメ」シーンの中から、これまで豆本がつくられたことのなかった『スーパーリアル麻雀PIV』の三姉妹にフィーチャー。 数量限定生産 『スーパーリアル麻雀』復刻豆本セット 14, 980円 (+税) 主にアーケード版稼働当時に配布されたファンアイテム"豆本"をリマスター版として15冊セットで復刻。麻雀牌風デザインの特製ボックス付き。セットの15冊に加えて、ゲームソフト特装版特典となる豆本もあわせて収納可! ※写真は制作段階のものです。 ※復刻豆本セットにゲームソフト及び特装版の同梱物は含まれません。 購入ガイド アキバ☆ソフマップドットコム B2タペストリー 拭き拭き♥オリジナルマイクロファイバークロス あみあみ L判ブロマイド8種セット ゲーマーズ L判ブロマイド10枚セット ゲームショップ1983 『PIII』新旧絵柄下敷き ぺたぺたマグネット トレーダー 麻雀牌風アクリルキーホルダー6種セット BEEP 【BEEPスペシャルパック】BEEPオリジナル"ごろりんショウ子"ぬいぐるみ 楽天ブックス コースター4種セット クラリスショップ 複製セル画9種セット&『スーパーリアル麻雀PI』復刻インストラクションカード エビテン 【ファミ通DXパック】パッケージビジュアルB3タペストリー&レンチキュラーチェンジングカード6種セット <復刻豆本セット同時購入特典>ポラロイド風カード6種セット(※絵柄公開自主規制) 【ファミ通DXパック豪華版】パッケージビジュアルB3タペストリー&レンチキュラーチェンジングカード18種セット <復刻豆本セット同時購入特典>ポラロイド風カード18種セット(※絵柄公開自主規制)
"と喋りながらセーターを脱ぐショウ子ちゃんに色めき立ち、次々と50円玉あるいは100円玉をつぎ込んでいった人も多いことだろう。あの時期としては珍しい、役の読み上げにもビックリさせられた。 ゲームセンターでは、タイトル画面とウインクするアニメーションが交互に表示されていた。こんな滑らかに動くアニメーションは当時の麻雀ゲームにはなく、そのインパクトは本当に大きかった アニメーションと声だけでなく、その驚異的な強さも特徴だった。クレジットを投入して、対局が始まった瞬間に「自摸、天和。役満」と言われ、30秒たたずにゲームオーバーになる人も続出。それを回避出来たとしても、プレイ中に怒濤の連続和がりをされてしまい、あっという間に持ち点を0にされて終了、ということも少なくなかった。もちろん、それを"インチキだ!
20世紀のアーケードゲームにおいてゲームセンターの一角に置かれていた脱衣麻雀。今では完全に廃れてしまった文化ですが、当時夢中になって遊んだ人も多いのではないでしょうか? 本書では、そんな時代の徒花といえる脱衣麻雀のなかでもとりわけ一大勢力を形成していた『スーパーリアル麻雀』シリーズ(セタ)を筆頭とした美少女・アニメ系麻雀に着目し、総勢100タイトル以上を収録。ご褒美グラフィックの数々はもちろん、当時のパンフレットや販促ポップ、インストラクションカードなどの資料も多数掲載しました。 『パーフェクトカタログ』シリーズをはじめとしたジーウォークのゲームムックではおなじみのB5の大判サイズで128ページオールカラー! 甘酸っぱい思い出の世界に浸れるスーパーガイドです。 『スーパーリアル麻雀』『アイドル雀士スーチーパイ』『対戦ホットギミック』… 20世紀のゲーセンを彩った 妖艶な美少女たち 300人以上が大集合! 駿河屋リアルストア店舗一覧 | 大阪日本橋本館 | 中古・新品通販の駿河屋. モニターの中で微笑んでいた思い出のあの娘に再び逢いたい!
【ファミ通DXパック】 ・パッケージビジュアルB3タペストリー 本作のパッケージビジュアルを使用したB3タペストリーです。 サイズ:B3(515×364mm) ・レンチキュラーチェンジングカード6種セット 見る角度によって着衣⇔脱衣が切り替わるレンチキュラーチェンジングカードの6種セットです。 DXパック【6種セット】 ・ショウ子 ・芹沢 香澄 ・芹沢 未来 ・香織 ・愛菜 ・悠 サイズ:約170×110mm 【特装版同梱物】 ・特製ケース ・インストカード ・資料集 【先着予約特典】 ・オリジナルクリアファイル 【スーパーリアル麻雀 復刻豆本セット 同時購入特典】 <ポラロイド風カード6種セット> 各キャラクターの脱衣イラストのみを厳選して使用したポラロイド風カードの6種セットです。 DXパック【6種セット】 ・ショウ子 ・芹沢 香澄 ・芹沢 未来 ・香織 ・愛菜 ・悠 <スーパーリアル麻雀 復刻豆本セット> ちょっとHな「動く」本、全15冊を復刻! 『スーパーリアル麻雀』ファン必携です! ゲームソフトと同時発売、数量限定生産「スーパーリアル麻雀 復刻豆本セット」。 主にアーケード版稼働当時に配布されたファンアイテム「豆本」を15冊セットで復刻(3作目、5~7作目を収録)。 歴代シリーズのごほうびアニメをじっくり堪能できる。 収納ボックスにはセットの15冊に加えて、ゲームソフト特装版特典の豆本資料集もあわせて収納可! サイズ:幅153mm×高さ111mm×奥行88mm×高さ1, 588mm ・驚異のペーパーテクノロジー!! 紙アニメで脱ぎ脱ぎ 『スーパーリアル麻雀』シリーズは女の子の脱衣アニメが魅力。でもゲームセンターで画面に見入るのは恥ずかしい……。 そんな悩めるお年頃の男子たちを救ったのが『豆本』でした。 脱衣シーンをコマ撮りで載せてパラパラ漫画の要領で脱ぎ脱ぎアニメを拝めたのです。 しかも家族からも隠しやすい文庫サイズ。80年代に発明された、ゲーム好き男子たちのエッチもとい叡智を詰め込んだ15冊が、待望のリマスター復刻です! ・入手困難な激レア品も全部復刻! 『豆本』ブーム再来! 豆本は元々、ファン向けに作られたグッズでした。 店頭配布や、プレゼント、限定通販、ゲーム同梱品、予約特典、といったさまざまな方法でファンの手に届けられました。 ですが方法が多岐にわたったゆえに、全冊を揃えられなかったファンもいたことでしょう。 長年、新旧ファンにとっては入手困難でもあった「伝説のファンアイテム」が、一冊目から30年の時を越えて、 リマスター版として、全冊収納可能な特製ケース入りで復刻です!