关于文本文件中的字符处理,请大侠们看看。 (100分)

pyk1 · 2002-11-15

1.我有一文本文件，中间包含了非Ascii字符。现在我想将其过滤掉，生成一个新的文本文件，
新文本文件只包含Ascii,该如何做？
2.我如何才能将listview中的内容保存，用的时候再调入。

谢谢您的回答！ delphi_x@163.com

妙兔无花 · 2002-11-15

open file a to read
open file b to wirte
while not end of a do
read ch from a
if ch is ascii
then write ch to b
end of while
close b
close a

jsxjd · 2002-11-15

有中文吗？
应该是非文本字符吧？

beta · 2002-11-16

var
Src, Dst: TMemoryStream;
Tmp: Byte;
i: Integer;
begin
Src := TMemoryStream.Create;
Dst := TMemoryStream.Create;
Src.LoadFromFile('C:/aaa.dat');
for i := 1 to Src.Size do
begin
Src.Read(Tmp, 1);
if (Tmp >= 32) and (Tmp < 128) then
Dst.Write(Tmp, 1);
end;
Dst.Position := 0;
Dst.SaveToFile('C:/aaa.txt');
Src.Free;
Dst.Free;
end;

卡色 · 2002-11-16

//if (Tmp >= 32) and (Tmp < 128) then
怎么把Tmp < 32也滤了，连回车也没了！
if (Tmp < 128) then

pyk1 · 2002-11-16

请问beta大侠：
0代表结束符么？谢谢您！

dz2050 · 2002-11-17

阿高 · 2002-11-17

学习

beta · 2002-11-17

// 0代表结束符么？
要看你是问的哪个 0 了。

如果是 Dst.Position := 0; 则是代表把流的指针移动到最开始，以用于保存。
如果 0 出现在字符串里面(#0)，则表示结束符。

pyk1 · 2002-11-17

那 if Tmp <>0 then
代表除结束符之外了？

snowsky · 2002-11-17

有中文该怎么办？

Another_eYes · 2002-11-18

真正的ASCII码只到127。后面部分是扩展ASCII码。
既然题目要求是ASCII, 所以不必考虑中文。

卡色 · 2002-11-18

//那 if Tmp <>0 then
//代表除结束符之外了？
你打开的是文本文件哪有什么#0；
PCHAR差不多！

jsxjd · 2002-11-18

这里所讲的 ASCII 码，肯定是指文本字符。

vivee · 2003-02-14

问问大家，要除掉文本文件中间的'#0'（文件结束符），我该怎么办？！

关于文本文件中的字符处理,请大侠们看看。 (100分)

pyk1

Unregistered / Unconfirmed

妙兔无花

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

卡色

Unregistered / Unconfirmed

pyk1

Unregistered / Unconfirmed

dz2050

Unregistered / Unconfirmed

阿高

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

pyk1

Unregistered / Unconfirmed

snowsky

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

卡色

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

vivee

Unregistered / Unconfirmed

Similar threads