仓库管理软件版1楼: 有没有一个函数可以实现以下的功能
1可以删除****A**A**中第二个A后面所有的字符，*的数量不定
2可以计算**A***A**中A的数量

2楼: http://www.knowsky.com/336214.html 如工业进销存excel

3楼: 怎么没人回答啊

4楼: 好像没有现成的函数，你自己写函数处理嘛，不难的。

5楼: 我是个新手，对写函数不了解，老兄能不能帮我写一个，谢谢了

6楼: 下列幫你寫的函數：
function TForm1.GetStringNumber(str,n:string):integer; //取數量
var
i,c:integer;
begin
C:=0;
for i:=0 to length(str) do
if str[i]=n then
inc(c);
Result :=c;
end;
function TForm1.GetStringStr(str,n:string;i:integer):string; //取前部的字符
var
a,y,x:integer;
begin
y:=0;
for a:=0 to length(str) do
if str[a]=n then
if y inc(y);
x:=a;
end;
Result:=copy(str,1,x);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin // 調用方法
s:=＇＇***A***A***A***A***＇＇;
ShowMessage(IntToStr(GetStringNumber(s,＇＇A＇＇)));
ShowMessage(GetStringStr(s,＇＇A＇＇,2));
end;

仓库管理软件版7楼: 接受答案了.