人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ノートパッドを利用している際、改行コード(↑)を使って改行を表現したいのですが、複数行に渡って改行があるのでひとつひとつ↑と書いていくのは大変です。置換などを使って、それらを一発で変換する方法はありませんか?具体的な手順を教えてください。

例えば下記のような改行を含んだ文章を・・・
-----------------------------
ももんが
とんだ
すごかった


下記のように改行コードを用いて一列にしてください。
-----------------------------
ももんが↑とんだ↑すごかった

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:ひとつ コード ノート 表現
○ 状態 :終了
└ 回答数 : 5/5件

▽最新の回答へ

1 ● drowsy
●20ポイント

ノートパッドのことがよくわからないのでもし

yahoo!ノートパッドだったらごめんなさい。

http://notepad.yahoo.co.jp/YYY,25cbda


「テキストエディタで文末に改行をつける」という質問であれば…

「TERAPAD(テラパッド)」というテキストエディタでできます。

ダウンロードはここ

http://www.vector.co.jp/soft/win95/writing/se104390.html


TERAPADをダウンロード&インストールしたら、立ち上げて、

テキストをコピー&ペースト。

全部を選んで、「整形」を選びます。

「行末文字入力」を選んで、「↑」を入力してoK

全ての行末に「↑」がつきます。

◎質問者からの返答

ご回答ありがとうございます。

質問の仕方が悪かったですね。

ウィンドウズ付属のメモ帳で実行したいのです。


2 ● salic
●20ポイント

バイナリエディタで、0D 0A と並んでいる所を適切な物に変換すれば良いと思います。

http://www.vector.co.jp/soft/win95/util/se079072.html

「↑」と言う文字に変換したいなら 81 AA に変換して下さい。


0D 0A 0D 0Aと連続している場合に特別な処理を行いたい場合は、予め何か違う文字に置き換え

処理して下さい。

◎質問者からの返答

ご回答ありがとうございます。

たぶん適切な回答だと思うのですが、

ちょっと理解できません。

もう少し素人でも理解しやすいように

してもらえると嬉しいです。


3 ● llusall
●100ポイント

以下のVBScriptを使用してはいかがでしょうか?


使用方法

以下のソースの■部分を適宜修正して、

「一括置換.vbs」などのファイル名でデスクトップ等に保存します。


変換するテキストファイルをアイコンにドラッグ&ドロップします。



Option Explicit

Dim REP_STR_BEFORE

Dim REP_STR_AFTER

Const FOLDER = "C:\TEST"    '■置換したファイルを入れる場所を指定します。

REP_STR_BEFORE = vbCrLf     '■置換前の文字列を指定します。(この場合「改行」)

REP_STR_AFTER  = "↓"       '■置換後の文字列を指定します。(この場合「↓」文字)

Call Main()

Sub Main()

    Dim objArgs

    Dim i

    Dim nArgCnt

    Dim bRtn

    Dim sResultFile, sPath

    Dim sFname

    Dim objFS, objTXT, objTXT2, sText

    Err.Clear

    'コマンドライン引数の有無チェック

    Set objArgs = WScript.Arguments

    nArgCnt = objArgs.Count

    If nArgCnt = 0 Then

        MsgBox "アイコンにファイルをドラッグ&ドロップしてください。", vbExclamation

        Exit Sub

    End If

    Set objFS   = CreateObject("Scripting.FileSystemObject")

    If objFS.FolderExists(FOLDER) Then

    Else

        objFS.CreateFolder (FOLDER)

    End If

    'ファイル数の処理を実行

    For i = 0 To nArgCnt -1

        sPath = objArgs(i)

        sFname = objFS.GetBaseName(sPath)

        Set objTXT  = objFS.OpenTextFile( sPath, 1, False )

        Set objTXT2 = objFS.CreateTextFile( FOLDER & "\" & sFname & ".txt" , True )

        sText = Replace(objTXT.ReadAll,REP_STR_BEFORE,REP_STR_AFTER)

        objTXT2.WriteLine(sText)

        objTXT.Close

        Set objTXT  = Nothing

        objTXT2.Close

        Set objTXT2 = Nothing

    Next

    MsgBox "終わり。", vbInformation

End Sub

※仕様上(ReadAll メソッド)、サイズの大きいファイルの変換は、多くのメモリ リソースを消費します。


◎質問者からの返答

ご回答ありがとうございます。

すばらしいです。望んでいた以上の物です。

ありがとうございました。


4 ● pascal7
●20ポイント

ウィンドウズ付属のメモ帳では出来ないと思います。フリーソフトのエディタ等を使うようにすると出来ると思います。

私は有料の秀丸と言うのを使っているのですが。

正規表現と言うのをONにして

「\n」→「↑」に置換すると出来ます。

サクラエディタなら出来ると思います。

http://sakura_editor.at.infoseek.co.jp/snapshot.html

◎質問者からの返答

ご回答ありがとうございます。

参考になりました。


5 ● hoeizon
●20ポイント

>ウィンドウズ付属のメモ帳で実行したいのです。

Windowsのメモ帳では、改行を置換する機能はありません。


メモ帳とほとんど同じフリーソフトの、TeraPadを使いましょう!

http://www.vector.co.jp/soft/win95/writing/se104390.html


置換前文字:\n

置換後文字:↑

で一括変換できます。

◎質問者からの返答

ご回答ありがとうございます。

参考になりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ