文本處理問題:如何刪除一行

hohooh

各位前輩好,,有個問題請教
目前我有一個test.txt檔,內容大致如下
A
2
B
....
A3B4
另外有一個判別式, 用filereadline逐行判斷
例如
for $i = 1 to 99999
$line=fileReadLine($file,$i)
if $line<>數字 then 刪除行
next
舉例若想把不等於數字的行都刪除掉,最後使得test.txt變成
2
4
....
請問應該怎麼寫??
=====================
我目前的寫法是 if $line=數字 then
FileWriteLine($file2)
但是碰到一個問題,,
原始檔案非常大,如果判別$i超過66xxx就停止了
所以才有想判別若失敗, 就刪除行的概念..

[ 本帖最后由 hohooh 于 2009-2-18 15:17 编辑 ]

pusofalse

$var = FileRead("test.txt")
$str = StringRegExp($var, "\n*\d+\r", 3)
Dim $result = ""
For $o = 0 to Ubound($str) - 1
        $result &= $str[$o]
Next
msgBox(0, '', $result)

Newbie

你的写法错误，FileWriteLine 是在文件末尾追加一行。

#include <Array.au3>
#include <File.au3>
Dim $aArray
        $var="C:\1.txt"
        _FileReadToArray($var, $aArray)

        For $i = 1 To $aArray[0]-1
                If StringIsDigit($aArray[$i])= 0 Then
                        _ArrayDelete($aArray[$i], 0)
                EndIf
        Next

        _FileWriteFromArray("C:\2.txt", $aArray)

[ 本帖最后由 Newbie 于 2009-2-17 21:11 编辑 ]

hohooh

Thanks Newbie~
It's OK!