请问如何实现这样的功能...(20分)

M

macrolen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #1

有这样一个文本文件：
-------------------
about 大约
look 看
apple 苹果
Microsoft 微软
...
--------------------
要求是在每个单词的后面中文的前面加上一个“[]”中括号，即：
about[]大约
...
请给出源代码吧，谢谢！

 

N

noall

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #2

memo1.Lines.LoadFromFile ('c:/2.txt');
for i:=0 to memo1.Lines.Count-1do
memo1.Lines.Strings:= StringReplace(memo1.Lines.Strings,' ','[]',[]);
memo1.Lines.SaveToFile('c:/2.txt');

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #3

noall的代码没错，但要求你的源文件中中英文之间必须有一个空格

 

M

macrolen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #4

我试了，谢谢！但怎样解决没有空格的呢？

 

N

netke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #5

判断字符的ASCII码

 

M

macrolen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #6

同学也跟我说过判断ASCII码，但是是不是太麻烦了？
如果我的单词很多的话怎么办？
写出代码看一下好么？

 

M

macrolen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #7

是不是有个Insert方法？

 

晶

晶晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #8

[red]自己写一个函数读取不就可以了，一个建议：用[]不好，干脆用特殊字符，如＃0，
那样就更好办了！还有一个办法：定义一个记录如下
TRec=packed record
str1:string[15];
str2:string[15];
end;
读取也很简单啊！[/red]

 

C

ccweifen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #9

有一个很笨的办法，
var
i,j:integer;
Str:String[50] ;
begin
Memo1.Lines.Clear ;
memo1.lines.LoadFromFile ('c:/2.txt');
for i:=0 to memo1.lines.Count-1do
begin
Str:=memo1.lines.Strings ;
for j:=1 to High(Str)do
if not (Str[j] in['a'..'z','A'..'Z']) then
break ;
Memo1.Lines.Strings:=Copy(str,1,j-1)+'[ ]'+copy(str,j,length(str)-j+1) ;
end ;
memo1.lines.SaveToFile('c:/2.txt');
end;

 

M

maxerp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #10

用UltraEdit 替换功能 查找 ' '---空格
替换[] 即可解决

 

D

donyad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #11

呵呵
maxerp兄
真幽默

 

M

macrolen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #12

谢谢大家的帮忙，谢谢！