保存为UTF-8编码的CSV文件(100分)

B

bbsli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #1

从数据库中取出数据，用TextFile保存为CSV格式，默认编码为GB2312。
现在我想保存编码为UTF-8格式的CSV文件，请问怎么实现拉
不要告诉我用工具实现啊，谢谢~

 

M

_Murray

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #2

uses
iduri;

procedure TForm1.Button2Click(Sender: TObject);
var
t: TIdURI;
s: string;
begin
t := TIdURI.Create;
try
s := '中华人民共和国';
//转义
s := AnsiToUtf8(s);
s := t.ParamsEncode(s);
edit1.Text := s;
showmessage(s);
//还原
s := t.URLDecode(s);
s := Utf8ToAnsi(s);
showmessage(s);
finally
t.Free;
end;
end;

 

B

bbsli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #3

谢谢_Murray，我是2000系统，delphi6的环境，怎么编译不过去啊，提示如下：
Undeclared identifier: 'ParamsEncode'
Undeclared identifier: 'URLDecode'

 

M

_Murray

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-19

• #4

uses
iduri;
这个文件在C:/Program Files/Borland/Delphi7/Source/Indy下

 

B

bbsli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-20

• #5

谢谢，我将IdURI.pas拷贝到C:/Program Files/Borland/Delphi6/Source/Vcl目录下，还是编译不过去。
s := t.ParamsEncode(s);
s := t.URLDecode(s);//请问这两句什么意思啊
另有没有整个TextFile转换的函数啊，谢谢~~~

 

M

_Murray

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-20

• #6

不可能吧,你如果装了INDY.
s := t.ParamsEncode(s);//这句是用UTF-8编码
s := t.URLDecode(s);//这句是解码UTF-8的
CSV文件是EXCEL的一种明文保存格式,应该是可以解开的.
如果不行,你发文件到我的邮箱我看看可不可解.
murray2081@163.com

 

B

bbsli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-31

• #7

谢谢_Murray，好象用AnsiToUtf8就可以解决了。