批量增加会员卡号，逢4号的跳过，如何写代码？？？(100分)

M

Mivier

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-12

• #1

批量增加会员卡号，逢4号的跳过，如000004，000040，000044。。。如何写代码？？

 

Y

yayongm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-12

• #2

简单点，循环吧。<br>function Include4(Value: string): Boolean;<br>var<br>&nbsp; i: Integer;<br>begin<br>&nbsp; Result := False;<br>&nbsp; for i := 1 to Length(Value) do<br>&nbsp; &nbsp; if Value = '4' then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; Result := True;<br>&nbsp; &nbsp; &nbsp; break;<br>&nbsp; &nbsp; end;<br>end;

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-12

• #3

西西!<br>&nbsp;if pos('4',cards)&lt;&gt;0 then<br>&nbsp; &nbsp; 跳过!

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-12

• #4

我觉得可以这样：如果是把数据插到数据库里，则增加的时候不要做限制以提高速度，全部完成后用一句SQL命令把卡号中有4的记录全部删掉即可。<br>还有一种判断：if Pos('4', card_number) &gt; 0 then Continue;

 

M

Mivier

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-12

• #5

采用WQL的建议！谢谢各位