テキストエディタについて教えてください！

質問

現在、ウインドウズに標準でついているメモ帳に、このように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等
また、入力する際の方法が何かあるのでしょうか？
わかりづらい説明でスミマセン。
詳しい方是非教えてください。
宜しくお願いいたします。
追伸　ＯＳはウインドウズＸＰ
　　　オフィス２００３

回答No.6

notepad

find "木下"
でいいんじゃないでしょうか。

コマンドプロンプトで、
Type "テキストファイルのフルパス"|fide "木下"
でOK。
他のファイルに出力したければ後ろに、
>"出力先ファイルのフルパス"

回答No.5

hige_082

なぜオフィスがあるのに、フリーソフトにこだわるのが解りませんが？
まあ、無ければ組んでしまえとばかりに、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

回答No.4

noname#194317

サクラエディタでも、grep機能を使えば可能です。

メニューの「検索」-->「Grep」をクリックするか、またはショートカットキーCtrl+Gを入力して、条件・ファイル・フォルダを指定して実行すれば、ご希望の動作となります。

回答No.3

tiltilmitil

直接では無いですが、会社名で並べ替えるなら。

　「　」(全角スペース)を「,」(半角コンマ)に置換して「【12】080718,領収書,木下建設」のようなデータにして、保存した後に拡張子を「txt」から「csv」にすれば、エクセルで「【12】080718」「領収書」「木下建設」と並んだデータとして読み込めます。

　他に何もしてないとすれば、エクセルで「C」の列でソートすれば会社名順に並べ替えが出来るはずです。必要な範囲をコピーしてやればいいと思います。

回答No.2

pepetaro3

↑の者です。確かめました。
上のとおりの機能が使えましたので
お試しください。

お礼

ご丁寧にありがとうございました。無事解決いたしました！

補足

ありがとうございます。
やっぱり、フリーソフトは無いですかね？

回答No.1

pepetaro3

秀丸エディタのgrepという機能でできます。