線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2427
推到 Plurk!
推到 Facebook!

请教 如何删除一字符串中除数字、汉字和英文字符 ,以外的所有标点符

尚未結案
find
一般會員


發表:5
回覆:0
積分:1
註冊:2003-08-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-17 07:20:31 IP:61.132.xxx.xxx 未訂閱
我提取一文档的内容存入sql20000数据库,发现文档中有许多的标点符号。如 ' ‘"“’等等。我想去删除字符串中除数字、汉字和英文字符 ,以外的所有标点符号。我想做一个通用涵数,请教程式如何实现。在线等待!!!!!!!
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-18 15:06:18 IP:210.65.xxx.xxx 未訂閱
Hi:    剛剛試了一下,程式碼如下,其中 Edit1 中,放入欲刪除之字元。 Memo1中為原始資料,Memo2中為結果,Memo3為被去除之字元。    
 
procedure TForm1.Button2Click(Sender: TObject);
VAR
    L,P : Integer;
    S1 : Array[0..1000] OF Char;
    S2,S3 : String;
begin
    Memo2.Lines.Clear;
    Memo3.Lines.Clear;
    FOR L := 0 TO Memo1.Lines.Count - 1 DO
        BEGIN
            StrPCopy(S1,Memo1.Lines.Strings[L]);
            S2 := '';
            S3 := '';
            P := 0;
            WHILE  P <= Length(Memo1.Lines.Strings[L]) - 1 DO
                BEGIN
                    IF ORD(S1[P]) > 127 THEN
                        BEGIN
                            IF Pos(Copy(Memo1.Lines.Strings[L],P   1,2),Edit1.Text) = 0 THEN
                                BEGIN
                                    S2 := S2   Copy(S1,P   1,2);
                                END
                            ELSE
                                S3 := S3    Copy(S1,P   1,2);
                            INC(P);
                        END
                    ELSE
                        BEGIN
                            IF Pos(Copy(Memo1.Lines.Strings[L],P 1,1),Edit1.Text) = 0 THEN
                                BEGIN
                                    S2 := S2   Copy(S1,P   1,1);
                                END
                            ELSE
                                S3 := S3   Copy(S1,P   1,1);
                        END;
                    INC(P);
                END;
            Memo2.Lines.Add(S2);
            memo3.Lines.Add(S3)
        END;
end;
試試看 ---------------------- 新手上路,請多多指教 ----------------------
------
Fishman
系統時間:2017-10-17 17:31:49
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!