文本过滤为纯文本,把word或 excel 中的文字或表格先复制到memo1中,之后将不是汉字的字符过滤了,(100)

  • 主题发起人 xibaixin
  • 开始时间
X

xibaixin

Unregistered / Unconfirmed
GUEST, unregistred user!
我想把word或 excel 中的文字或表格先复制到memo1中,之后将不是汉字的字符过滤了,如何做。复制到memo1中看memo1好像只有汉字和空格,但把memo1.text操作,里面有各种各样的字符,例如#¥D9等,如何将他们删除,
 
W

wangdonghai

Unregistered / Unconfirmed
GUEST, unregistred user!
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;
 
X

xibaixin

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

回复
0
查看
627
不得闲
S
回复
0
查看
913
SUNSTONE的Delphi笔记
S
S
回复
0
查看
743
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部