![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
現在、ウインドウズに標準でついているメモ帳に、このように800行ほど入力してあります。
【12】080703 領収書 秋山建設
【12】080704 領収書 斉藤建設
【12】080705 領収書 黒河建設
【12】080706 領収書 木下建設
【12】080707 領収書 黒河建設
【12】080708 領収書 塩川建設
【12】080709 領収書 鈴木建設
【12】080710 領収書 木下建設
【12】080711 領収書 武田建設
【12】080712 領収書 伊東建設
【12】080713 領収書 中村建設
【12】080714 領収書 室井建設
【12】080715 領収書 武藤建設
【12】080716 領収書 松下建設
【12】080717 領収書 三上建設
【12】080718 領収書 木下建設
この場合”木下”で検索をかけると、木下と書いてあるところに次々とカーソルが飛びますよね?
これを、別窓に
検索結果
【12】080706 領収書 木下建設
【12】080710 領収書 木下建設
【12】080718 領収書 木下建設
このように結果を出すことは可能でしょうか?
また、ウインドウズの標準のメモ帳では出来ないという場合、
なにか、違うフリーソフトで出来ますか?
ちなみに、数種類は試して見たのですが、やっぱり出来ませんでした。
サクラエディタ・TeraPad等
また、入力する際の方法が何かあるのでしょうか?
わかりづらい説明でスミマセン。
詳しい方是非教えてください。
宜しくお願いいたします。
追伸 OSはウインドウズXP
オフィス2003
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
find "木下"
でいいんじゃないでしょうか。
コマンドプロンプトで、
Type "テキストファイルのフルパス"|fide "木下"
でOK。
他のファイルに出力したければ後ろに、
>"出力先ファイルのフルパス"
No.5
- 回答日時:
なぜオフィスがあるのに、フリーソフトにこだわるのが解りませんが?
まあ、無ければ組んでしまえとばかりに、VBSで組んでみました
時間がかかった割にショボかった、よっぽどEXCEL方が楽
下記をテキストファイルに貼り付けて、適当なファイル名に拡張子 .VBS を付加してください(例 abc.vbs)
検索したいファイルと同じフォルダに置いて、ダブルクリック
処理対象のファイル名、と聞いてくるので、検索したいファイルの名前(例 data.txt)を
検索対象文字列の入力、と聞いてきるので、検索文字列(例 木下)を
それぞれ入力してください
見難い結果が現れます
エラー処理もしていないので、役に立たなければ捨ててください
こんなやり方もあるんだ、程度に流してください おやすみなさい
Const ForReading = 1
Dim strSearch
Dim objFilein
Dim strScriptPath
Dim strCreateFile
Dim strDate
Dim strout
Dim objInFile
Dim strFileName
Dim strFilePath
Dim strRecord
strout = ""
strFileName = inputbox ("処理対象のファイル名")
strSearch = inputbox ("検索対象文字列の入力")
Set objFilein = CreateObject("Scripting.FileSystemObject")
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strFilePath = objFilein.BuildPath(strScriptPath,strFileName)
Set objInFile = objFilein.OpenTextFile(strFilePath,ForReading)
Do Until objInFile.AtEndOfStream = true
strRecord = objInFile.ReadLine
if InStr(1, strRecord, strSearch, 1)>0 then
if strout = "" then
strout = strRecord
Else
strout = strout & vbNewLine & strRecord
end if
end if
Loop
msgbox strout
objInFile.Close
Set objFilein = Nothing
Set objInFile = Nothing
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_06.png?e8efa67)
No.4
- 回答日時:
サクラエディタでも、grep機能を使えば可能です。
メニューの「検索」-->「Grep」をクリックするか、またはショートカットキーCtrl+Gを入力して、条件・ファイル・フォルダを指定して実行すれば、ご希望の動作となります。
No.3
- 回答日時:
直接では無いですが、会社名で並べ替えるなら。
「 」(全角スペース)を「,」(半角コンマ)に置換して「【12】080718,領収書,木下建設」のようなデータにして、保存した後に拡張子を「txt」から「csv」にすれば、エクセルで「【12】080718」「領収書」「木下建設」と並んだデータとして読み込めます。
他に何もしてないとすれば、エクセルで「C」の列でソートすれば会社名順に並べ替えが出来るはずです。必要な範囲をコピーしてやればいいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のテキストファイルをexcel...
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
一気にずばっと複数のメールを...
-
バッチファイルが作成できない
-
batファイル処理でのテキストフ...
-
テキストファイルの文字色に色...
-
複数のファイルを同時検索し、...
-
アクセスログのテキストファイ...
-
VBAからファイルをzip化したい
-
テキストファイルの取り込み
-
windowsへscp
-
CADでグラフ作成
-
【Excel VBA】PDFを作成して,...
-
Refreshで落ちる
-
VBAでファイルパスが長すぎてコ...
-
フォルダ作成用バッチファイル...
-
マルチモニタ環境でネットから...
-
OpenTextFile で書き込みできま...
-
エクセルVBA フォームを開く時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
テキストファイルの文字色に色...
-
batファイル処理でのテキストフ...
-
バッチファイルが作成できない
-
複数のファイルを同時検索し、...
-
一気にずばっと複数のメールを...
-
マクロでメモ帳に貼り付け
-
CADでグラフ作成
-
ファイル名の特定文字だけ削除...
-
windowsへscp
-
インデザインのテキスト流し込み
-
VBSでテキストファイルのタブ区...
-
ExcelVBA テキストファイルから...
-
テキストファイルを開かずに中...
-
CDの曲名をテキストファイルで...
-
VBAからファイルをzip化したい
-
WORD VBAでテキストファイルを...
-
アクセスログのテキストファイ...
-
複数テキストファイルをエクセ...
おすすめ情報