处理txt文本时 发现 多行空行 如何删掉？

lele9013

处理txt文本时 发现 多行空行 如何删掉？

比如

aaaa


bbbb


cccc


修正成

aaaa
bbbb
cccc

afan

用 FileReadLine 及 _FileWriteToLine 可以

或使用 StringRegExpReplace 或 StringReplace 处理更快速~

已写成相关udf，发布处理多种情况，改日发布。

ndyndy

我用一个笨办法再建一个空文件test1.txt
$file = FileOpen("test1.txt", 1)
Dim $aArray2
_FileReadToArray('test.txt', $aArray2)
for $x=1 to $aArray2[0]
  if $aArray2[$x] <> "" then
      FileWriteLine($file,$aArray2[$x] )
  endif
next

afan

不需要新建文件，可以直接处理

#include <File.au3>
Dim $aArray2, $b
_FileReadToArray('test1.txt', $aArray2)
For $x = 1 To $aArray2[0]
        If $aArray2[$x] = "" Then
                _FileWriteToLine('test1.txt', $x - $b, '', 1)
                $b += 1
        EndIf
Next

linmi

可以用sed.exe
sed.exe -e "/^ *$/d" 删除所有的空行。

crazy715

不需要新建文件，可以直接处理#include
Dim $aArray2, $b
_FileReadToArray('test1.txt', $aArray2)
For $x = 1 To $aArray2[0]
        If $aArray2[$x] = "" Then
                _FileWriteToLine('test1.txt', $x - $b, '', 1) ...
afan 发表于 2009-8-18 14:16

$b不用付初值？

afan

6# crazy715


此种用途可以不设~

jevonleen

2楼正解,其实方法还是比较简单的,但本人最近在处理几十亿条数据时,却发现TXT的读取速度太慢,请高手支招!

afan

2楼正解,其实方法还是比较简单的,但本人最近在处理几十亿条数据时,却发现TXT的读取速度太慢,请高手支招!
jevonleen 发表于 2010-5-12 03:58

    老帖被你翻出来了
http://www.autoitx.com/thread-11801-1-1.html