【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?

現在、ウインドウズに標準でついているメモ帳に、このように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件)

find "木下"


でいいんじゃないでしょうか。

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

なぜオフィスがあるのに、フリーソフトにこだわるのが解りませんが?


まあ、無ければ組んでしまえとばかりに、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
    • good
    • 0

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



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

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



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

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

↑の者です。

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

この回答への補足

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

補足日時:2008/07/06 17:54
    • good
    • 0
この回答へのお礼

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

お礼日時:2008/09/11 22:42

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

    • good
    • 0

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


おすすめ情報