X xibaixin Unregistered / Unconfirmed GUEST, unregistred user! 2009-08-24 #1 我想把word或 excel 中的文字或表格先复制到memo1中，之后将不是汉字的字符过滤了，如何做。复制到memo1中看memo1好像只有汉字和空格，但把memo1.text操作，里面有各种各样的字符，例如#￥D9等，如何将他们删除，
我想把word或 excel 中的文字或表格先复制到memo1中，之后将不是汉字的字符过滤了，如何做。复制到memo1中看memo1好像只有汉字和空格，但把memo1.text操作，里面有各种各样的字符，例如#￥D9等，如何将他们删除，
W wangdonghai Unregistered / Unconfirmed GUEST, unregistred user! 2009-08-24 #2 procedure TForm1.Button1Click(Sender: TObject);var s,sRs:string i:integer bt:TMbcsByteType;begin s:=Memo1.text i:=1 while i<length(s) do begin bt:=ByteType(s,i) if bt<>mbSingleByte then sRs:=sRs+s inc(i) end memo2.Text:=sRs;end;
procedure TForm1.Button1Click(Sender: TObject);var s,sRs:string i:integer bt:TMbcsByteType;begin s:=Memo1.text i:=1 while i<length(s) do begin bt:=ByteType(s,i) if bt<>mbSingleByte then sRs:=sRs+s inc(i) end memo2.Text:=sRs;end;
