出産前後の痔にはご注意!

例えば、chromeやメモ帳で
ISBN:12345678
山田
ISBN:4757211260
のようなテキストがあった場合、
ISBNを含む行だけ抽出したいということです。

プログラム言語でも、ソフトでも可能な方法があれば何でもOKです。

A 回答 (2件)

元データがテキストなら、[正規表現]を使えるソフトなどで含まない行指定


で削除して、残ったデータをコピーし、別のファイルなどに貼り付けすれば
可能だと思いますよ。

正規表現入門 ~ではない行。~を含まない行。否定の正規表現
https://amg-solution.jp/blog/5238

置換前 ^(?!ISBN).+\r\n
置換後 何もいれないで実行すると、ISBNを含む行のみが残ります。

ソフトの例:
【サクラエディタ】
http://sakura-editor.sourceforge.net/download.html
「特定の文字を含む行だけ抽出する方法を探し」の回答画像2
    • good
    • 0
この回答へのお礼

こんな方法を探してました
ベストアンサー100個あげたいくらい感謝してます ありがとうございます

お礼日時:2017/03/15 17:53

尋ねられている意味と違う解答なら申し訳ないのですが、


メモ帳の中のテキストの中から特定の文字だけを検索するじゃダメなのでしょうか?

メモ帳を開いて(テキストがある状態で)>カーソルを一番上に置きます>キーボードの「Ctrl」+「F」キーを同時に押します。(もしくは、メモ帳のメニューバー「編集」>検索でも可能)

そこで、検索したい文字を入力すれば、ヒットすると思いますが。
    • good
    • 0
この回答へのお礼

検索ではなく特定の行ごとコピーしたいのです

お礼日時:2017/03/14 22:08

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

Qアプリとソフトの使い分けが今一分からないのですが、分かる方教えて下さい。 ググると、 「パソコンを使

アプリとソフトの使い分けが今一分からないのですが、分かる方教えて下さい。

ググると、
「パソコンを使って特定の目的を実現するために活躍してくれるソフトウェア」
と定義されているみたいなんですが、
結局アプリはソフトなんですか?
かえって分からなくなりました。

何方か説明宜しくお願いします。

Aベストアンサー

No.1です。
応用ソフトの狭い範囲の話として同じと回答いたしましたが、
求められてる回答はNo.4さんのほうが正解ですね。
回答不十分ですいませんでした。

補足のありましたアプリとソフトの呼び名ですが、
明確なソースがないのですが、パソコンの頃はハードに対する言葉として
ソフトウエアがあり、ソフトと略す人がおおく、
スマホがより一般の人に普及し、アプリケーションソフトを、
アプリと略す人が増えて、携帯のCMなどでも、
アプリと言うようになったからではないかと情報がありました。

ただ今ではスマホで動くように最適化したアプリケーションを名詞的にアプリと言うことがあり、
例えば「ワープロソフトをアプリ化する」というと、
パソコン用ソフトをスマホに最適化したアプリケーションソフトウエアに作り替える移植するという意味で使うことがあるようです。

Q指定した文字の行をコピーする方法を教えてください

windows7です chromeかメモ帳なんですがやり方がわかりません
すごく困ってます 先生方教えてください

Aベストアンサー

コピーしたい文字列をマウスでドラックし、反転表示された状態になったところで右クリックします。
で、表示されたメニューから「コピー」を実行すると、選択された文字列がコピーできます。

Q詳説正規表現はなぜわかりやすいのか

詳説正規表現という書籍の文体について質問です。詳説正規表現は、正規表現を学ぶ上でとても分かりやすくて理解が深まる様な本です。
どう表現して良いのか、上手く表現できませんが、詳説正規表現の著者ジぇフェリーさんの文章は、読みやすくて頭にするすると入ってきますし、所々読者に語りかけてくることがありますが、それが少なくとも私は、正規表現を理解する上でとても助かりました。
あのような文体は、何か学術的に定まった方式で書かれたものなのでしょうか。
それともたんに、上手い文を書いているだけなのでしょうか。

Aベストアンサー

オライリーの書籍は基本的には翻訳本なので日本語として
全般的に読みやすいかと言われると今ひとつ頷けないところもあります。

ただ読者が対象技術に対するベースができていれば、しっくりくるような書き方ですね

Qキーボードの操作だけで、「Googleで『○○○』を検索(S)」を実行できますか?

意味が分からない単語がある場合、その文字を左クリックしながら、マウスでなぞって青い色にします。
その上で、右クリックを押して、「Googleで『○○○』を検索(S)」までマウスを移動。
その後に選択。

私は、いつもこの操作で知らない言葉を検索してきました。
しかし、この操作は頻繁だとなかなか疲れます。
この操作は、キーボードだけで実行できるのでしょうか?

Aベストアンサー

GestureForGoogleChromeの拡張機能をインストールして、スーパードロップにチェックボックスを入れます
https://chrome.google.com/webstore/detail/gestures-for-google-chrom/jpkfjicglakibpenojifdiepckckakgk?hl=ja

すると、青く選択した部分を、左クリックおしながらマウスをマウスを少し動かし、左クリックを離すと、そのワードを検索できます
言葉だとイメージつかみにくいので、下記動画を参考にしてください
https://www.youtube.com/watch?v=TWap6AVyKhY

Qフリーフォントをダウンロードしたのですが 一度デスクトップにコピーしたのを Cドライブに置くと ショ

フリーフォントをダウンロードしたのですが
一度デスクトップにコピーしたのを
Cドライブに置くと
ショートカットの青い矢印が付きますが
これはだめでしょうか?

あと
フリーフォントはcドライブのフォントフォル
ダーに入れないと繁栄されないのでしょうか?
Cドライブの入り口に置いてるだけでは
だめ?
入れたらわからなくなりそうなのですが?

Aベストアンサー

ダウンロードしたファイル.ttfを右クリックしてください。
「インストール」という項目が有ると思います。

Q=ROW()-11を本日知りました。

そこで、一行目を-1~カウントされ、二行目が0三行目が1となります。
一行目1からカウント出来ないでしょうか?
よろしくお願いいたします。

Aベストアンサー

https://www.keisan.nta.go.jp/h28/syotoku/ta_iryouhi_form_download.jsp?taxYear=16
こちらですかね?
書いているURLですとうまくダウンロードできなかったので。

保存したファイルをOneDriveで開こうとしたのですが、パスワードで保護されているため開けませんでした。と出てコピーもできなかったので実際には確かめられていません。

タイトル行が9行目なので、
A10=1,A11=2…としたいのであれば、
=ROW()-ROW(A$9)
とすればいいですよ。

Qエクセル関数に関して

全ての行に日付の記載があり、月単位で件数をカウントしたいのですが、どのような関数を使えばよいか教えていただきたく、よろしくお願いいたします。
例)
4/1   ○○○
4/5  ○○○
4/7  ○○○
4/15  ○○○ 
4/23  ○○○    4月=5件
5/3   ○○○
5/16  ○○○
5/25  ○○○    5月=3件

Aベストアンサー

A列に日付(A2セルからデータが入力)
B列に記事(B2セルからデータが入力)
C列に集計したい月(C2セルに4月、C3セルに5月、以下続く)
D列に件数(C列の月に対応したデータ)
ただし
C2セル以下はセルの表示形式で「m"月"」を設定し、「4」という数値を「4月」を表示するようにし、
D2セル以下はセルの表示形式で「0"件"」を設定し、「5」という数値を「5件」を表示するようにする。

この条件で…

E列を作業列として使います。
E2セルに
 =MONTH(A2)
これで4月の「4」、5月の「5」という数値を表示

D2セルに
 =COUNTIF(E:E,C2)
または
 =COUNTIF(E:E,"="&C2)
これで

D3セル以降は、D2セルをコピーして貼り付ける。

こんな感じになります。


・・・余談・・・
理解できないような長くて面倒な数式もありますが、それでは意味ありませんよね。

QA列とB列の重複を抽出したいのですがA列とB列の値は一部だけ同じ文字です。ご教示お願いします。

エクセル初心者です。重複を見つけるのが仕事です。いろいろやってみたのですがうまくできません。
お知恵をお貸しください。

A列には企業名が入力されています。
B列にも企業名が入力されていますが全く同じ文字ではないのです。

たとえばこういうことです。
A1 (有)雪見酒      B1  雪見
A2 株式会社豪雪地帯   B2 (株)豪雪地帯
A3 ゆきかき本舗     B3 (有)ゆきかき本舗

A列にある企業名とB列にある企業名が同じであればセルを塗りつぶすか○を表示させるように
したいのです。
重複を見つけるのが目的なので、ほかの方法でもかまいません。
すみません、A列のセルとB列のセルが全く同じ名前ならば重複が見つけられたのですが
ここから先がどうしてもわからないのです。。。
申し訳ありませんがどうか教えてください。。。

Aベストアンサー

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim nameT1(maxrow1)
ReDim nameT2(maxrow2)
Range("C1:" & "D" & maxrow2).Value = ""
Call makeTable(nameT1, "A", maxrow1)
Call makeTable(nameT2, "B", maxrow2)
For row1 = 1 To maxrow1
For row2 = 1 To maxrow2
If Cells(row2, "C") = "" Then
If Mymatch(nameT1(row1), nameT2(row2)) = True Then
Cells(row2, "C").Value = "○"
Cells(row2, "D").Value = row1
End If
End If
Next
Next
t2 = Time
MsgBox ("チェック完了 処理時間=" & Minute(t2 - t1) & "分" & Second(t2 - t1) & "秒")
End Sub
'余分な文字を削除した結果をテーブルに格納する
Private Sub makeTable(ByRef nameT() As String, ByVal col As String, ByVal maxrow As Long)
Dim row As Long
Dim ary As Variant
Dim name As String
Dim i As Long
ary = Array("㈱", "(株)", "株式", "(有)", "有限", "会社")
For row = 1 To maxrow
name = Cells(row, col).Value
For i = 0 To UBound(ary)
name = Replace(name, ary(i), "")
Next
nameT(row) = name
Next
End Sub
'企業名が一致かどうか判定する
Private Function Mymatch(ByVal name1 As String, ByVal name2 As String) As Boolean
Mymatch = False
Dim pos As Variant
pos = InStr(1, name1, name2, vbTextCompare)
If pos > 0 Then Mymatch = True
End Function
-----------------------------------------------------
一致の精度が悪ければその旨補足してください。
(一致すべきものが一致しない、一致してはいけないものが一致している)
100%解決できる保証はありませんが、多少のチューニングは行います。

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim ...続きを読む

Qエクセル関数で可能な方法なのかが、わかりません。。

エクセル関数に、あまり詳しくなく…色々と調べながら作業しているのですが
現在やろうとしていることが、エクセルで可能なのかがわかりません。

現在行っている作業は、IF関数で出した結果も基に、VLOOKUP関数での検索を
しているのですが、下記の様な結果になってしまいます。。①、②

↓↓
①IF関数では、「1.0」をひとつの基準の数値としていて、1.0に満たない数値は全て
 1.0に繰り上げて計算していて、1.0以上はそのままの数値を採用する形としていて
 結果は正しく出来ています。
 IF(A1<1.0,"1.0",A1)

②次にVLOOKUP関数で、上記IF関数で出た結果をもとに検索をしているのですが、
 繰上げ条件に該当する数値(1.0に満たない数)を入力したときだけ、#N/A と
 なって検索結果が出てきません。
(IF関数の結果が、1.0以上の繰上げしない数値の場合は正しく検索出来ます)


以上
エクセルの関数として、やり方がマズイのか、そもそも無理なことなのかが、わからずに
います。
もしやり方の問題なのであれば、解決策を教えて頂けないでしょうか。

説明が下手で申し訳ありませんが、何卒よろしくお願いいたします。

エクセル関数に、あまり詳しくなく…色々と調べながら作業しているのですが
現在やろうとしていることが、エクセルで可能なのかがわかりません。

現在行っている作業は、IF関数で出した結果も基に、VLOOKUP関数での検索を
しているのですが、下記の様な結果になってしまいます。。①、②

↓↓
①IF関数では、「1.0」をひとつの基準の数値としていて、1.0に満たない数値は全て
 1.0に繰り上げて計算していて、1.0以上はそのままの数値を採用する形としていて
 結果は正しく出来ています。
 IF(A1<1.0,"1....続きを読む

Aベストアンサー

VLOOKUP関数では、完全一致の検索と、そうでない場合はその前を返す、
があります。
たぶん「完全一致の検索」の検索をしているので、該当なしの「#N/A」が返される、その結果でしょう。

なお、
IF(A1<1.0,"1.0",A1)
この"1.0"は数値ではなく文字列になります。
これが原因かもしれません。

Q”#REF!” の表示が出ないようにする良い方法は。。

次のような手順で作業を行いました。

①Excelを開き、セルを3×3の範囲でドラッグして選択してコピー。
②Wordを開き、「元の書式を保持」して貼り付け。
③貼り付けた表の、左上と左中に、数値を入力。
④③をドラッグして選択してコピーをする。(上から2行目まで、3×2の範囲でコピー)
⑤新しく開いたExcelに、「形式を選択して貼り付け」→「リンク貼り付け」→「テキスト」で貼り付け。

①~⑤をすると、Wordの数値を変更すると、Excelの数値もちゃんと変わってくれました。
ここまでは、思った通りです。
ところが次のことをすると、エラーになります。

①ExcelとWordを両方閉じた後、まずWordを開き、次にExcelを開く。
②Excelに「セキュリティの警告 リンクの自動更新が無効にされました ”コンテンツの有効化ボタン”」と出る。
③ ”コンテンツの有効化ボタン” を押す。
④するとExcelのセル内に ”#REF!” と表示が出てしまう。

”#REF!” の表示が出ないように対処する良い方法を教えて下さい。

次のような手順で作業を行いました。

①Excelを開き、セルを3×3の範囲でドラッグして選択してコピー。
②Wordを開き、「元の書式を保持」して貼り付け。
③貼り付けた表の、左上と左中に、数値を入力。
④③をドラッグして選択してコピーをする。(上から2行目まで、3×2の範囲でコピー)
⑤新しく開いたExcelに、「形式を選択して貼り付け」→「リンク貼り付け」→「テキスト」で貼り付け。

①~⑤をすると、Wordの数値を変更すると、Excelの数値もちゃんと変わってくれました。
こ...続きを読む

Aベストアンサー

ご参照、
https://kokodane.com/kan22.htm


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング