[求解]关于Unicode,送上150分 ( 积分: 150 )

ooiioo · 2005-02-02

我现在有一个以Unicode编码的文件,用Unicode编码打开看是日文的. 我想把它一行一行的读出来(必须一行一行的读,还要做其他处理). 用的是读文本文件的readln函数,读出的字符串的乱码. 请教高手,如何读出Unicode字符串!

ooiioo · 2005-02-02

我现在有一个以Unicode编码的文件,用Unicode编码打开看是日文的. 我想把它一行一行的读出来(必须一行一行的读,还要做其他处理). 用的是读文本文件的readln函数,读出的字符串的乱码. 请教高手,如何读出Unicode字符串!

yanghai0437 · 2005-02-02

用fileread读，用二进制方式打开

ooiioo · 2005-02-02

我还需要将Unicode字符串显示输出,用二进制打开后怎样转换成字符呢?

lichengbin · 2005-02-02

var  F: TextFile;  S: string;  P: PWideChar; begin  AssignFile(F, 'test.txt');  try    Reset(F);    Readln(F, S);    P := Pointer(S);    Label1.Caption := WideString(P); // 字体设为日文字体(如 Name=MS Mincho, charset=SHIFT_JIS)  finally    CloseFile(F);  end; end;

toxing · 2005-02-02

很久没用unicode了，但记得unicode的读写应该使用widestring，所以你只要使用widestring相关的函数，应该就没问题。具体函数自己查查帮助

ooiioo · 2005-02-02

to yanghai0437: 这个“// 字体设为日文字体(如 Name=MS Mincho, charset=SHIFT_JIS)”需要加到程序中么？ 文件中可能还有别国文字的，不一定是日文。

lichengbin · 2005-02-02

不使用正确的字体(主要是字符集charset)显示不同语言的文字，很有可能是乱码的，当然日文、中文中有些相近的字的Unicode编码实际上相同的，这些是可以正常显示的。

missinwind · 2005-02-02

字符集里没有的会显示为乱码。

app2001 · 2005-02-02

这个资料你看看对你有没有用吧 1. Uuencode    Uuencode 是将二进制文件以文本文件方式进行编码表示、 以利于基于文本传输环境中进行二进制文件的传输/交换的编 码方法之一，在邮件系统/二进制新闻组中使用频率比较高， 经常用于 Attach 二进制文件。    这种编码的特征是：每一行开头用“M”标志。下面是我 做的一个测试用的文件mogao.txt，编码为Uuencode： begin 644 mogao.txt M"0D)("`@(*&VPM+"Z/OCMZBT//BKH;&lt;-"@G7]]7?.FUO9V%OHZRPU]3&N/:Z MU]6^HZAT96QN970Z+R/R,#(N,3$R+C(P+C$S,CHR,Z.IL/G4L:&C#0H)("`@ M("`@Q*JXW/CMO/ZYI-?WRM*CNFAT='`Z+R]M;V=A;RYB96YT:75N+FYE=`T* M"0D)16UA:6QT;SIM;V=A;T`S-S$N;F5T#0H)("`@*BHJ*BHJ*BHJ*BHJ*BHJ M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ("`@("`@("`@("`@("`@ M#0H)("`@*B"S_&lt;'+O,?2Y,JRP[2VO+*[M/C7WZ.LL_W!R]?CO*/*LL.TMKRR MN/'TS/(J#0H)("`@*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ ,*BHJ*BHJ*BHJ*BHJ ` end    你可以把它单独存成一个文件：mogao.uue，然后用Winzip 打开，解压即得mogao.txt。    Uuencode的算法很简单，编码时它将3个字符顺序放入一个 24 位的缓冲区，缺字符的地方补零，然后将缓冲区截断成为 4 个部分，高位在先，每个部分 6 位，用下面的64个字符重新 表示： "`!"#$%&'()*+,-./0123456789:;&lt;=&gt;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[/]^_" 在文件的开头有“begin xxx 被编码的文件名”，在文件的结尾 有“end”，用来标志Uue文件的开始和结束。编码时，每次读取 源文件的45个字符，不足45个的用“NULL”补足为3的整数倍（ 如：23补为24），然后输入目标文件一个ASCII为：“32+实际 读取的字符数”的字符作为每一行的开始。读取的字符编码后 输入目标文件，再输入一个“换行符”。如果源文件被编码完 了，那么输入“`（ASCII为96）”和一个“换行符”表示编码 结束。    解码时它将4个字符分别转换为4个6位字符后，截取有用的 后六位放入一个 24 位的缓冲区，即得3个二进制代码。    下面我给出Uuencode编码和解码的C语言描述： /*Uuencode编码*/ void Uue(unsigned char chasc[3],unsigned char chuue[4]) /* chasc：未编码的二进制代码 chuue：编码过的Uue代码 */ {int i,k=2; unsigned char t=NULL; for(i=0;i&lt;3;i++) {*(chuue+i)=*(chasc+i)&gt;&gt;k;  *(chuue+i)|=t;  if(*(chuue+i)==NULL) *(chuue+i)+=96;  else *(chuue+i)+=32;  t=*(chasc+i)&lt;&lt;(8-k);  t&gt;&gt;=2;  k+=2; } *(chuue+3)=*(chasc+2)&63; if(*(chuue+3)==NULL) *(chuue+3)+=96; else *(chuue+3)+=32; } /*Uuencode解码*/ void unUue（unsigned char chuue[4]，unsigned char chasc[3]） /* chuue：未解码的Uue代码 chasc：解码过的二进制代码 */ {int i,k=2; unsigned char t=NULL; if(*chuue==96) *chuue=NULL; else *chuue-=32; for(i=0;i&lt;3;i++) {*(chasc+i)=*(chuue+i)&lt;&lt;k;  k+=2;  if(*(chuue+i+1)==96) *(chuue+i+1)=NULL;  else *(chuue+i+1)-=32;  t=*(chuue+i+1)&gt;&gt;8-k;  *(chasc+i)|=t; } } 2. Xxencode    提到Uuencode不可能不提Xxencode， Xxencode的编码算法 和 Uuencode基本相同，但是使用的是不同的字符集。XxEncode 编码使用的字符是： “+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz” 与 Uuencode 相比，它的特殊字符更少。很多支持 Uuencode 编解码的工具都同时支持 Xxencode。    这种编码的特征是：每一行开头用“h”标志。下面是 Xxencode的一个例子： begin 644 mogao.txt h0EY760+U684qkh90uwjXhuWowwWfcPQB0UbLxxLTCapjNq3jcumkpxH4iwOu hpxKycuVoNKliNLEu9mwmA16iAH2m9X6k9X2nAXcmAuCdgwbIgO4X1Ec760+U h60+Ul8esrwXhjDutdBTrmh8XiaVoR5+u9mxhPqRVPmtWNKtoOLJi9atZR+o8 h0EY7FKpVOKloPndhPqRVPo+nBn2iPaJo1Ec760+U8Wce8Wce8Wce8Wce8Wce h8Wce8Wce8Wce8Wce8Wce8Wce8Wce8Wce8Wce8Wce60+U60+U60+U60+U60+U h1Ec760+U8W0nzQ59jATGtAemkvGqj98vhDXLruCggzr-mxTXj8D8ggCohfmm hiw5onw6e1Ec760+U8Wce8Wce8Wce8Wce8Wce8Wce8Wce8Wce8Wce8Wce8Wce A8Wce8Wce8Wce8Wce + end    你可以把它单独存成一个文件：mogao.xxe，然后用Winzip 打开，解压即得mogao.txt。    Xxencode的编码算法和Uuencode基本相同，实现起来则更 为简单，在此就不详述了。    下面给出Xxencode编码和解码的C语言描述： /*Xxencode编码*/ void Xxe（unsigned char chasc[3],unsigned char chxxe[4]) /* chasc：未编码的二进制代码 chxxe：编码过的Xxe代码 */ {int i； static char set[]=  "+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"; chxxe[0]=chasc[0]&gt;&gt;2; chxxe[1]=(chasc[0]&lt;&lt;4)&48|(chasc[1]&gt;&gt;4)&15; chxxe[2]=(chasc[1]&lt;&lt;2)&60|(chasc[2]&gt;&gt;6)&3; chxxe[3]=chasc[2]&63; for(i=0;i&lt;4;i++) chxxe=set[chxxe];                       /*查表*/ } /*需注意的是，Xxencode文件正文部分中每一行的第一个字母是 ：从源文件中实际读取的字符数的ASCII值取后六位后用set[]查 表得到的。*/ /*Xxencode解码*/ unsigned char set(unsigned char ch)                             /*查表函数*/ {if(ch==43) ch=0; else if(ch==45) ch=1; else if(ch&gt;=48&&ch&lt;=57) ch-=46; else if(ch&gt;=65&&ch&lt;=90) ch-=53; else if(ch&gt;=97&&ch&lt;=122) ch-=59; return ch; } void unXxe（unsigned char chxxe[4]，unsigned char chasc[3]） /* chxxe：未解码的Xxe代码 chasc：解码过的二进制代码 */ {int k=2 ,i; unsigned char t; t=NULL; *chxxe=set(*chxxe); for(i=0;i&lt;3;i++) {*(chxxe+i+1)=set(*(chxxe+i+1));  (chhex+i)=*(chxxe+i)&lt;&lt;k;  k+=2;  t=*(chxxe+i+1)&gt;&gt;8-k;  *(chhex+i)|=t; } }

刘麻子 · 2005-02-02

function GetFileText(const FileName: string): string; var  hFile: DWORD;  iSize: DWORD;  sTemp: string; begin  hFile := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);  iSize := GetFileSize(hFile, nil);  SetLength(sTemp, iSize + 2);  ReadFile(hFile, sTemp[1], iSize, iSize, nil);  CloseHandle(hFile);  sTemp[iSize + 1] := #0;  sTemp[iSize + 2] := #0;  if (sTemp[1] = #$FF) and (sTemp[2] = #$FE) then // UNICODE  begin    SetLength(Result, iSize);    WideCharToMultiByte(CP_ACP, 0, PWideChar(@sTemp[3]), -1, @Result[1], iSize, nil, nil);  end else    Result := sTemp;  Result := string(PChar(Result)); end; 用这个函数取出并转换,而所谓一行行读无非就是定位#13#10.

[求解]关于Unicode,送上150分 ( 积分: 150 )

ooiioo

Unregistered / Unconfirmed

ooiioo

Unregistered / Unconfirmed

yanghai0437

Unregistered / Unconfirmed

ooiioo

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

toxing

Unregistered / Unconfirmed

ooiioo

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

missinwind

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads