我要将银行帐号保留前四位和后四位,中间的用*号代替,有没简单的方法?
如:476861000010201000 要转换成 4768**********1000(位数不一定是18位)
如:476861000010201000 要转换成 4768**********1000(位数不一定是18位)
解决方案 »
- 两个dll文件怎么对比?字节数都一样,只是很小的不同点
- AB RSLink 参数
- Delphi 2009 BUG
- 关于DBLookupListBox的显示问题
- 关于用线程查询,请各位老大讲解????????????????
- 求《Windows程序设计》附书光盘上的ADDSYNTH.H
- 将DataSet的一列值存入TStringList!
- 有谁知道有什么API函数可以监控某一特定应用程序对系统发送的消息
- 曾听前辈说,视图不可以修改,但视图就是一表SELECT语句呀,但用SELECT 查询结果好象可以修改呀
- fastreport制作成报表的能存进execl里吗?
- webbrowser热键问题。
- 实现TreeView多节点的同时移动
function BankStr(Str: string): string;
var
TempStr: string;
Len: integer;
begin
Result := '';
Len := Length(Str)-8;
if Len<0 then Exit;
SetLength(TempStr, Len);
FillChar(TempStr[1], Len, '*');
Result := Copy(Str, 1, 4) + TempStr + Copy(Str, Len+5, 4);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(BankStr('476861000010201000'));
end;
var
Len: integer;
begin
Result := '';
Len := Length(Str);
if Len-8<0 then Exit else
Result := Format('%S'+DupeString('*',Len-8)+'%S',[Copy(Str,1,4),Copy(Str,Len-3,4)]);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(BankStr('476861000010201000'));
end;
function ltostr(s: string): string;
var
str,str2:string;
lstr:string;
i:integer;
begin
str:=Copy(s,5,length(s)-4);
str2:=Copy(s,Length(s)-3,5);
for i :=1 to length(s)-8 do
insert('*',lstr,i);
Result :=Copy(s,1,4)+lstr+str2;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(ltostr('476861000010201000'));
end;
function BankStr(S: String): String;
begin
if Length(S) > 8 then FillChar(S[5], Length(S) - 8, ord('*'));
Result := S;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(BankStr('476861000010201000'));
end;
function ltostr(s: string): string;
var
str,str2:string;
lstr:string;
i:integer;
begin
if Length(s)<8 then exit;
str:=Copy(s,5,length(s)-4);
str2:=Copy(s,Length(s)-3,5);
for i :=1 to length(s)-8 do
insert('*',lstr,i);
Result :=Copy(s,1,4)+lstr+str2;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(ltostr('476861000010201000'));
end;
function BankStr(S: String): String;
begin
Result := FillChar(S[5], Length(S) - 8, ord('*'));
end;