大家好！问一个字符串处理的问题，拜托各位。

[xiedewei]

程序按一个record从流文件读数据，其中读出一个类似这样的字符串：'CcSsDdNn.net'#$D3
意思是最后一个字节不是可视字符。现在我要把它写入数据库，两边加引号后变成：'CcSsDdNn.net？
意思是#$D3与末尾的引号组合成了一个未知字符，显示问号，这样sql就报错了。
请问，怎样把这个字符串清理一下再写入数据库？就是要清除#$D3这样的不可视字节。delphi有没有现成的方法调用？

[JPEXE]

可以用BASE64编码一下

[JPEXE]

uses EncdDecd;

[guanking]

试试Trim、TrimLeft、TrimRight。

首部 function Trim(const S: string): string; overload; $[SysUtils.pas
首部 function Trim(const S: WideString): WideString; overload;
$[SysUtils.pas
功能 返回除去字符串S左右不可见字符
说明 小于#32的字符看作不可见字符
参考 function System.Copy
例子 Edit2.Text := Trim(Edit1.Text);

━━━━━━━━━━━━━━━━━━━━━
首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas
首部 function TrimLeft(const S: WideString): WideString; overload;
$[SysUtils.pas
功能 返回除去字符串S左边不可见字符
说明 小于#32的字符看作不可见字符
参考 function System.Copy
例子 Edit2.Text := TrimLeft(Edit1.Text);


━━━━━━━━━━━━━━━━━━━━━
首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas
首部 function TrimRight(const S: WideString): WideString; overload;
$[SysUtils.pas
功能 返回除去字符串S右边不可见字符
说明 小于#32的字符看作不可见字符
参考 function System.Copy
例子 Edit2.Text := TrimRight(Edit1.Text);

[lhy]

定义转义字符。

[xiedewei]

[Quote=引用 1 楼 sz_haitao 的回复:]
Delphi(Pascal) code
自己写一个函数判断过滤：
function restr(var s:string):boolean;
var
i:integer;
begin
result:=false;
for i:=length(s) downto 1 do
if (ord(s[i])>=$80) and (ord(s[i]<=$ff) then
……
[/Quote]
字串里有汉字，这样判断不行。

[xiedewei]

[Quote=引用 2 楼 jpexe 的回复:]
可以用BASE64编码一下
[/Quote]
这样从数据库读取的时候需要解码，我改不了读数据库的代码。

[xiedewei]

guanking兄，Trim是不行的。

[guanking]

只是建议用trim清楚不看见字符而已。
如果record里面的变量有固定长度，可以用固定长度分割字符流。

[不担心]

在给record赋值之前先清空一下,全部填充0就不会有问题
fillchar(youRecord,sizeof(youRedord),0);

[wliaoc]

'CcSsDdNn.net'#$D3是否是因为第二个“'”符号识别错误导致sql识别不出来呢？

[xiedewei]

找到一个临时解决方法：Trim(WideString('CcSsDdNn.net'#$D3))
多谢大家

[wujinyuan]

StringReplace()可以。。

[wujinyuan]

Str1 := '12213'#$D3;
Str1 := StringReplace(Str1,#$D3,'',[]);

[haitao]

自己写一个函数判断过滤：
function restr(var s:string):boolean;
var
  i:integer;
begin
  result:=false;
  for i:=length(s) downto 1 do
    if (ord(s[i])>=$80) and (ord(s[i]<=$ff) then
    begin
      delete(s,i,1);
      result:=true;
    end;
end;