向大家请教提取字符串的最优算法 ( 积分: 100 )

litong · 2005-06-26

我这个算法速度太慢了 //格式化数据【以，区分】 function getmaskstring(s:string;position:integer):string; var  str:string;  i,len:integer;  begin  Str:='';  for i:=0 to position -1 do  begin  if(pos(',',s)<=0) then  begin  str:=s;  break;  end;  str:=copy(s,1,pos(',',s)-1);  len:=length(str);  s:=copy(s,len+2,length(s)-len-1);    end;  Result:=str;  end;

litong · 2005-06-26

我这个算法速度太慢了 //格式化数据【以，区分】 function getmaskstring(s:string;position:integer):string; var  str:string;  i,len:integer;  begin  Str:='';  for i:=0 to position -1 do  begin  if(pos(',',s)<=0) then  begin  str:=s;  break;  end;  str:=copy(s,1,pos(',',s)-1);  len:=length(str);  s:=copy(s,len+2,length(s)-len-1);    end;  Result:=str;  end;

leadyli · 2005-06-26

舉個例子吧.看看你想達到什麼樣的效果.

dcsdcs · 2005-06-26

for i:=0 to position -1 do  begin  if(pos(',',s)<=0) then  begin  str:=s;  break;  end; 完全没有任何意义，自己研究。

litong · 2005-06-26

因为数据量太大所以要求算法要速度快才行 举例文本文件内容 1 sfksjhf,adadads,asadfw,sfsfsfds,aswqweqew,sdfsfsf,safdsadaz,adasdasd,adsadd 2 sfksjhf,adadads,asadfw,sfsfsfds,aswqweqew,sdfsfsf,safdsadaz,adasdasd,adsadd 3 sfksjhf,adadads,asadfw,sfsfsfds,aswqweqew,sdfsfsf,safdsadaz,adasdasd,adsadd 4 sfksjhf,adadads,asadfw,sfsfsfds,aswqweqew,sdfsfsf,safdsadaz,adasdasd,adsadd 5 sfksjhf,adadads,asadfw,sfsfsfds,aswqweqew,sdfsfsf,safdsadaz,adasdasd,adsadd 6 ............. ................... 很多数据 想把以上数据以 “，” 分割导入 stringgrid 里我的数据超过100行速度就很慢了【列在100个左右(就是，有100个)】

czcn · 2005-06-26

看你的代码想实现的是 s:='abc,defg,h,i,jk,lmnop'; getmaskstring(s,2)返回defg getmaskstring(s,6)返回lmnop s:='abcdefg'; getmaskstring(s,n)都返回abcedfg function getmaskstring(s:string;position:integer):string; var  i,j: Integer;  b:boolean;  str:String; begin  j:=1;  b:=false;  str:='';  if position=j then b:=true;  for i:=1 to len(s) do  begin    if copy(s,i,1)=',' then    begin      if not b then      begin        j:=j+1;        b:=true;      end      else        Result:=str;        exit;      end;    end;    if b then str:=str+copy(s,i,1);  end;  if str='' then str=s;  Result:=str; end;

czcn · 2005-06-26

>>>>想把以上数据以 “，” 分割导入 stringgrid 里我的数据超过100行速度就很慢了 procedure getmaskstring(s:string;var ss:TStrings); var  i: Integer;  str:String; begin  for i:=1 to len(s) do  begin    if copy(s,i,1)=',' then    begin      ss.addstring(str);      str:='';    end    else      str:=str+copy(s,i,1);  end;  ss.addstring(str); end;   ... var  sl:TStringList; ... sl:=TStringList.create; getmaskstring(s,sl); //sl里就是存放着字符串集. for i:=0 to sl.count-1 do stringgrid.cell(1,i):=sl;

leadyli · 2005-06-26

你的文本文件的每一行的格式都是一樣的吧? 建議你先建個數據庫表,用批量導入的方式把數據導入到表中: BULK INSERT

FROM '路徑' WITH (FIELDTERMINATOR = ',') 然后再把數據轉移到StringGrid中吧

金卡绣球jk8.com · 2005-06-26

有个办法很简单的，cvs 我找找看代码 xxx.CommaText := ('dfdfd,d,fd,f,f,d,d,fd,f,dsfdsddsd,d,fd,f,df,d,fd,f,d');

ljj_laoniu · 2005-06-27

数据结构中有的啊，叫KMP算法啊 const  MAX_STRLEN = 255; var  next: array[1..MAX_STRLEN] of integer;  str_s, str_t: string;  int_i: integer; var  Form1: TForm1; implementation {$R *.dfm} procedure get_nexst(t: string); var  j, k: integer; begin  j := 1; k := 0;  while j < Length(t) do  begin    if (k = 0) or (t[j] = t[k]) then    begin      j := j + 1; k := k + 1;      next[j] := k;    end    else k := next[k];  end; end; function index(s: string; t: string): integer; var  i, j: integer; begin  get_nexst(t);  index := 0;  i := 1; j := 1;  while (i <= Length(s)) and (j <= Length(t)) do  begin    if (j = 0) or (s = t[j]) then    begin      i := i + 1; j := j + 1;    end    else j := next[j];    if j > Length(t) then index := i - Length(t);  end; end; procedure TForm1.Button1Click(Sender: TObject); begin  Pos  Edit3.Text:= IntToStr(index(Edit1.Text,Edit2.Text)) end; 这个算法没有问题的，什么时候给分呀？

renshouren · 2005-07-01

试试这个的效果如何？ function TForm1.getmaskstring(s: string; position: integer;splitChar:Char = ','): string; var  p,pRes : pchar;  i,iTmp,iLen : integer;  Addr_p,Addr_pRes : Cardinal; begin  iLen := Length(s);  p := AllocMem(iLen + 1);  //申请内存，用于保存源串  pRes := AllocMem(iLen + 1); //申请内存，用于保存返回子串  Addr_p := Cardinal(p);  //保存地址  Addr_pRes := Cardinal(pRes);  //保存地址  StrPCopy(p,s);  iTmp := 0;   //第几个分割符号  Result := '';    For i := 0 to iLen - 1 do begin      if p^ = splitChar then begin  //如果是分割符号，则增加其序号        if Position = iTmp then begin //需要返回的子串结束，退出循环          Break;        end;        inc(iTmp);  //增加分割符序号      end else begin  //普通字符        if Position = iTmp then begin //如果是需要返回的子串部分          pRes^ := p^; //从源串中复制一个字符          inc(Cardinal(pRes));//移动临时字符串指针        end;      end; //if p^      inc(Cardinal(p));//移动源字符串指针    end;  //For i  Result := StrPas(PChar(Addr_pRes));  FreeMem(Pchar(Addr_pRes),iLen + 1);   //释放内存  FreeMem(Pchar(Addr_p),iLen + 1);      //释放内存 end;

xianguo · 2005-07-01

指针

maxim88 · 2005-07-01

把字串里的，用#13#10替换，然后装到MEMO里，一行一行的提取

jshyhzj · 2005-07-01

type  TInstStr = procedure(const str: string); procedure splitStr(const str: string; inst: TInstStr); var  i, j: integer; begin  i := 1;  for j:= 1 to length(str) do    if str[j] = ',' then    begin      inst(copy(str, i, j - i));      i := j + 1;    end;  if i < length(str) then    inst(copy(str, i, length(str) - i)); end; 没测试，大概意思吧，很快的

dirk · 2005-07-01

要提高字符串操作效率，只要把字符串当做一个从1到length(字符串)的字符数组来操作就可以了，避免使用pos等函数和直接修改字符串的操作。

kinneng · 2005-07-01

楼上高手们的答案，我有没有看错，这是stringgrid自带的功能。 var  sl:TStringList;  sl.Delimiter:=',';  sl.DelimitedText :='sfksjhf,adadads,asadfw,sfsfsfds,aswqweqew,sdfsfsf,safdsadaz,adasdasd,adsadd'; StringGrid1.Rows就是一个TStringList，所以 StringGrid1.Rows.Delimiter:=','; StringGrid1.Rows[1].DelimitedText :='sfksjhf,adadads,asadfw,sfsfsfds,aswqweqew,sdfsfsf,safdsadaz,adasdasd,adsadd'; 如果不是','分割，而是一些不显示的特殊字符，才可能需要写代码

向大家请教提取字符串的最优算法 ( 积分: 100 )

litong

Unregistered / Unconfirmed

litong

Unregistered / Unconfirmed

leadyli

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

litong

Unregistered / Unconfirmed

czcn

Unregistered / Unconfirmed

czcn

Unregistered / Unconfirmed

leadyli

Unregistered / Unconfirmed

金卡绣球jk8.com

Unregistered / Unconfirmed

ljj_laoniu

Unregistered / Unconfirmed

renshouren

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

maxim88

Unregistered / Unconfirmed

jshyhzj

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

Similar threads