请lasmai进来看下,其他人不用看了!(100分)

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-04

• #1

to lasmai出现新问题了
const
cnXM: Array [0..10] of string=('一二','三四','五六','一二上','一二下','一二左','三四上','三四下','三四左','五六上','五六下');

bArr: Array [0..10] of string=('12','42','36','01','02','03','04','02',
'06','03','06');
{
memo1中的字符列表如下
一二上+三四下+五六左+三四+三四左+三四
一二左+五六下+五六左+三四+三四左+一二
}
用你的最后:三四,一二不能替换,
for i := 0 to High(cnXM) dO
begin
s:=cnXM;
N:=pos(s,s1);
if length(s) = 4 then
begin
if RightStr(s1, 4) = s then s1 := LeftStr(s1, Length(s1) - 4) + bArr;
s1 := StringReplace(s1,s+'+',bArr+'+',[rfReplaceAll]);
end
else
s1 := StringReplace(s1,s,bArr,[rfReplaceAll]);
end;

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-04

• #2

昨天那位说字符串用正则表达式很简单,是这样吗?
lasmai人会用吗?

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-04

• #3

to lasmai
等待你回答

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-04

• #4

。。。。。。。实在忍不住了进来看看（自己贱没办法），顺便说句废话飘过。。。。。。
另外实在不明白为什么要做那么多判断，pos也是循环检查一遍，再replace又循环了一遍.....-_-

var
i,m:integer;
str:string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
str:=memo1.Lines+'+';
for m:=0 to high(bArr) do
str:=StringReplace(str,cnXM[m]+'+',bArr[m]+'+',[rfReplaceAll]);
delete(str,length(str),1);
memo2.Lines.Add(str);
end;
end;

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #5

我就偏要进来看看，能把我怎么着。

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #6

vo hs-kill
我要上班去了.如果可以中午回来加分.
因为那位cf83325说因为我等大富翁变得冷清了.不似lasmai热心.楼上两位能进来说两句,非常感谢,我上大富翁是想问不懂的问题,期盼热心朋友的回答.

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #7

多谢你,ks-kill给你加分了.