UltraEdit 有一個選項,存檔時移除每行最後的空白。
這個軟體,很強,值得花錢買正版。
我是用 ultraedit ,搜尋--取代 (勾選正規運算式)
尋找內容(N) 填入 "^p" (換行符號)
取代成為: 填入 "" (就是什麼都不填)
全部取代..就會是這樣了...
如果是常態或背景要用, 可以考慮 perl....他的字元操作也頂好用說
請參考這篇精彩的文章:
rmnl — remove new line characters with tr, awk, perl, sed or c/c++
直接列出用 *nix 上的工具就做出的例子。
以 sed 為例,假設檔案為 1.txt
參考 如何用"批次檔"過濾log中的資料 一文中,
有關 Sed for Windows 的安裝,
利用 sed 來完成:
<pre class="c" name="code">C:\>sed ":a;N;$!ba;s/\n//g" 1.txt
111111111111222222222222333333333333
其他工具完成,請參考該文的具體例子。
補一個該文沒有的:
在 vim 只要在命令模式下鍵入:
<pre class="c" name="code">1,$ s/\n//g
也可以達到同樣的效果。
-MS word can do the trick too
1.
open the txt file in MSword
2.
CTL-H to replace
3.
^P is the paragraph mark (enter in the "Find What")
4.
replace with blank (enter nothing in the "replace with")
5.
Click "replace all"
This will do it!
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("TEST.TXT", ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.Readline
strLine = strLine
If not objFile.AtEndOfStream Then
strNewContents = strNewContents & trim(strLine)
ELSE
strNewContents = strNewContents & trim(strLine)
End If
Loop
objFile.Close
Set objFile = objFSO.OpenTextFile("TEST.TXT", ForWriting)
objFile.Write strNewContents
objFile.Close
以上這段就符合您的需求了解!
打----中間那段copy起來, 打開記書本貼上, 存成trimall.vbs, 放到test.txt同一目錄, 再執行trimall.vbs即可!
使用Notepad++將換行符號直接取代成空字串即可
步驟如下: