一个文本文件如下，假设为 c:\a.txt 现在要求把这个文档里面所有包含 '日期:2010' 这样字符的一行全部删除，
然后生成另外一个文件 假设为 c:\b.txt
请教高手如何写代码，谢谢。
a.txt如下
作者：赚钱起点ABC 提交日期：2010-3-12 20:24:00 访问：165407 回复：1057
一生只干一件事：瞄准一只兔子。可能有人会问，为什么用这样一个标题来谈论炒股。是啊，电子书的作者海默，通过无数精彩故事阐明“一生只干一件事”的深刻道理，揭
开成功之谜。成功者必备的因素很多，其中首要的就是目标明确。炒股与之有必然的联系吗？我说，有。[有兴趣的可以查看同名电子书]
作者：赚钱起点ABC 回复日期：2010-03-12 20:31:00
首先，我要说一下，一生只干一件事，并不等同于只炒股不干其他，我要说的关于炒股有这么一些：
1、进入股市，你要懂得一些简单的股术股语。
2、身在股市，你可以只懂一种简单的炒股方法。
3、奋斗股市，你还可简单只炒一只股。
作者：赚钱起点ABC 回复日期：2010-03-12 20:50:21
接下来，说说第一条：1、进入股市，你要懂得一些简单的股术股语。那就是不必掌握太高深的理论、术语和指标、公式。但至少要知道或了解一些简单而又常用实用的。
如红K线，绿K线，MACD，顺势，逆势，5日均线，10日均线，30日均线。
只掌握这么一些常识够吗，我说，够了。
作者：赚钱起点ABC 回复日期：2010-03-13 16:11:00
作者：小小小户 回复日期：2010-03-13 09:50:05
顶啊，楼主继续！！
//谢谢
-----------------------------------------------------------------
b.txt 如下
一生只干一件事：瞄准一只兔子。可能有人会问，为什么用这样一个标题来谈论炒股。是啊，电子书的作者海默，通过无数精彩故事阐明“一生只干一件事”的深刻道理，揭
开成功之谜。成功者必备的因素很多，其中首要的就是目标明确。炒股与之有必然的联系吗？我说，有。[有兴趣的可以查看同名电子书]
首先，我要说一下，一生只干一件事，并不等同于只炒股不干其他，我要说的关于炒股有这么一些：
1、进入股市，你要懂得一些简单的股术股语。
2、身在股市，你可以只懂一种简单的炒股方法。
3、奋斗股市，你还可简单只炒一只股。
接下来，说说第一条：1、进入股市，你要懂得一些简单的股术股语。那就是不必掌握太高深的理论、术语和指标、公式。但至少要知道或了解一些简单而又常用实用的。
如红K线，绿K线，MACD，顺势，逆势，5日均线，10日均线，30日均线。
只掌握这么一些常识够吗，我说，够了。
顶啊，楼主继续！！
//谢谢
------解决方案--------------------
机器上没有PB开发环境，只给你简单写一下，你自己调试
建一个外部数据源，添加一个列为Column_1，字符串型，长度为2000应该足够用了，保存为ds_exfile
int i,count
String str
DataStore lds_file //外部数据源
lds_file = Create DataStore
lds_file.DataObject ="ds_exfile"
lds_file.ImportFile("文件")//
count = lds_file.RowCount()
if count >0 then
while (count >0)
str = trim(lds_file.Object.Column_1[count])
if (left(str,6)='作者：' and istime(right(str,8))) then
lds_file.DeleteRow(count)
end if
count --
loop
if (lds_file.RowCount()>0) then
lds_file.saveas("c:\\22.txt",text!,true)
end if
end if
if isvalid(lds_file) then destroy lds_file
------解决方案--------------------
do while (count >0)
------解决方案--------------------
可以导入到datawindow 后通过find 函数查找出符合条件的记录都删除后，再另存。
------解决方案--------------------
导入数据窗口 删除不需要的行 再另存，可以解决