救命呀！！！给高分(200分)

W

wwffaaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #1

如何智能显示包含"不可见字符，一般字符，汉字"的字符串，即：
不可见字符显示为（ASCII码）
字符和汉字直接显示

 

W

wwffaaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #2

再加100分

 

W

wwffaaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #3

不一定解决，给点提示同样谢过了

 

B

balaschen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #4

这有什么意义？

 

W

wwffaaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #5

首先是如何筛选出汉字////????50分

 

W

wwffaaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #6

"编程难题"当然不能光靠别人，给点灵感就不胜感激了

 

J

jasper

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #7

对所有字符检查ASCII码值，也许能发现什么

 

叶

叶不归

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #8

什么意思，听不懂！

 

T

TonyStar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #9

汉字的两个字节的ASCII码都高于128，你可以根据这个提示自己写程序了。[]

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #10

自己写一个类了。不难的吧。

TCoolString = class
private
RawString : string;
public
function GetString;

end;

....

 

W

wwffaaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #11

to TonyStar
现在第二个问题，一个大于128的特殊字符和汉字的高位如何区分？？？

 

X

xiaoywh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #12

关注...

 

5

5rain6sky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #13

The IsDBCSLeadByte function determines whether a character is a lead byte ?
that is, the first byte of a character in a double-byte character set (DBCS).

BOOL IsDBCSLeadByte(

BYTE TestChar // character to test
);

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #14

筛选汉字:

procedure TForm1.Button1Click(Sender: TObject);

var

CutLengthOfLine{ 被处理字符串的总长度 }, i, j: integer;

sLine{ 被处理的源字符串 }: string;

sCuted{ 按固定长度分割出来的部分字符串 }: string;

iCutLength{ 按固定长度分割出来的部分字符串的长度 }: integer;

bIsDBCS{ 是否是汉字的前半字节 }: boolean;

begin

if edit1.text='' then begin

exit;

end;

CutLengthOfLine:=strtoint(edit1.text);

if CutLengthOfLine < 2 then begin

showmessage('CutLengthOfLine 必须大于等于 2 !');

Exit;

end;

Memo2.Lines.Clear;

for i := 0 to Memo1.Lines.Count - 1 do

begin

sLine := Memo1.Lines;

if Length(sLine) = 0 then

Memo2.Lines.Add(#13+#10)

else

repeat //开始处理字符串

iCutLength := CutLengthOfLine;

sCuted := Copy(sLine, 1, iCutLength);//从头取出 iCutLength 长的字符串

bIsDBCS := False;//先假设没有半个字符串

for j := 1 to iCutLength do //从头到尾逐个检查，至于为什么?

//原作者是这样解释的

//1. 为什麽不直接抓最後一个字元判断? 因为中文字的 Trail-byte, 其内码也可能落在 Lead-byte

// 的内码区间内.

//2. 为什麽不直接抓最後两个字元来判断? 因为前一个字的 Trail-byte 加上後一个字的 Lead-byte,

// 可能又是一个中文字.

begin

if bIsDBCS then //如果上一个字节是汉字的前半部分

bIsDBCS := False //则此时本字节是汉字的后半部分，

//所以将是否前半个汉字检测标志设为假

else

if Windows.IsDBCSLeadByte(byte(sCuted[j])) then

bIsDBCS := True;//否则检查本字节，并根据结果设置标志

end
//end of for

//如果最后一个字节的上一个字节是汉字的前半部分，则结束时

//检测标志为假，

if bIsDBCS then Dec(iCutLength);

//如果最后一个字节是汉字的前半部分， 则少截取一个字符，避免乱码

Memo2.Lines.Add(Copy(sLine, 1, iCutLength));

sLine := Copy(sLine, iCutLength + 1, Length(sLine) - iCutLength);

//拷贝出下一部分固定长度的字符串，循环处理

until Length(sLine) <= 0;

end;

memo2.setfocus;

memo2.selstart:=0;

memo2.SelLength:=0;

end;

//以上为转载！

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #15

procedure TForm1.Button1Click(Sender: TObject);
var
SrcStr,DestStr,mstr:String;
i,n,len:Integer;
begin
SrcStr:='123呵呵!'#179'xixi'#255;
n:=Length(SrcStr);
SetLength(DestStr,4*n);
i:=1;
len:=0;
while i<=n do
begin
if Byte(SrcStr)>=$A1 then //参见http://www.delphibbs.com/delphibbs/dispq.asp?lid=614615
begin
if i<n then
if Byte(SrcStr[i+1])>=$A1 then
begin
Inc(len);
DestStr[len]:=SrcStr;
Inc(len);
Inc(i);
DestStr[len]:=SrcStr;
Inc(i);
continue;
end;
mstr:=IntToHex(Byte(SrcStr),2);
Inc(len);
DestStr[len]:='(';
Inc(len);
DestStr[len]:=mstr[1];
Inc(len);
DestStr[len]:=mstr[2];
Inc(len);
DestStr[len]:=')';
end
else begin
Inc(len);
DestStr[len]:=SrcStr;
end;
Inc(i);
end;
Caption:=Copy(DestStr,1,len);
end;

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #16

s := //一串字符串
t := '';
while Length(s) > 0 do begin
case ByteType(s, 1) of
mbSingleByte:
begin
if Ord(s[1]) in [0..31, 128..255] then
AppendStr(t, '#' + IntToStr(Ord(s[1])))
else AppendStr(t, s[1]);
Delete(s, 1, 1);
end;
mbLeadByte:
begin
AppendStr(t, Copy(s, 1, 2));
Delete(s, 1, 2);
end;
mbTrailByte:
raise Exception.Create('');
end;
end;
ShowMessage(t);

 

W

wwffaaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #17

好！好！好！
分分了，不知外加的一百分该如何交给各位，干脆我另起个贴送分吧
to :creation-zy, creation-zy, 为什么不能给你分？？？？
新贴只给creation-zy 100分