Ansi字符转换为unicode?(50分)

ymqpc · 2004-03-22

Ansi字符转换为unicode? 现有一个TMEMO的文件内容(可能很多行1000~5000行),想请教各位如何转换TMEMO的内容为Unicode字符,最好效率高一点. 就像VB一样只用一行代码就OK. VB的代码是: TxtBox.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)

TYZhang · 2004-03-22

StringToWideChar

yostgxf · 2004-03-22

在delphi中可以直接转换的 例：TxtBox.Text :=InputB$(LOF(1), 1); 不过VB我不熟悉

刘麻子 · 2004-03-23

同意 TYZhang StringToWideChar   其实在delphi自动转换的 比如你定义一个string和Widestring，直接赋就可以了，我做过试验的。

ymqpc · 2004-03-23

還有沒有好點的方法? 能不能反ansi文件直接轉成Unicode格式,這樣就很快的!

李张柏芝 · 2004-03-23

好象不行，一定要把文件load进来以后改变。关注中。[8D] function AnsiToUnicode(Ansi: string):string; var   s:string;   i:integer;   j,k:string[2];   a:array [1..1000] of char; begin   s:='';   StringToWideChar(Ansi,@(a[1]),500);   i:=1;   while ((a<>#0) or (a[i+1]<>#0)) do begin     j:=IntToHex(Integer(a),2);     k:=IntToHex(Integer(a[i+1]),2);     s:=s+k+j;     i:=i+2;   end;     Result:=s; end;

刘麻子 · 2004-03-23

>>>能不能反ansi文件直接轉成Unicode格式,這樣就很快的!   即使所谓的‘直接转换’也避免不了这样的步骤：     1 磁盘ascii文件读入内存     2 内存中ascii转Unicode     3 内存中Unicode写到磁盘 不知道你说的直接转换什么意思？

ymqpc · 2004-03-23

在Delphi放一個TMemo名為TxtBox那麼用TxtBox.Lines.GetText這一句就可以得到所有的內容.這過是PChar類的.那能不能把PChar轉成Unicode?     在Delphi的在Help裡有以下三行:     A PChar is a pointer to a null-terminated string of 8-bit characters.     A PAnsiChar is a pointer to a null-terminated string of 8-bit characters.     A PWideChar is a pointer to a null-terminated string of 16-bit characters.         那麼PChar<->PWideChar這樣相互轉換.轉換成PWideChar後是不是就等是Unicode字符了,如果是的話,那TMemo能用Add語句加入PWideChar嗎,或加入Unicode字符嗎?     其實說這麼多,我真正的用意是想統計TMemo裡有幾個字符.不轉為Unicode的話,用lenght算出的數不對.英文字符與中文不一樣.如果隻有英文的話能算對.有中文就不行了.     像上例VB的代碼:TxtBox.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)真的是簡單.VB的完整代碼(就是一個過程,過程是彈出一個打開文件的對話框,選擇一個文本文件後,把文件的內容Load到TxtBox裡,Load的時就轉換了):VB裡用'表示注釋一行就像Delphi裡的//一樣 Private Sub menuFileOpenText_Click()         Dim sLocation As String       ' Set CancelError is True     ComDlg.CancelError = True     On Error GoTo ErrHandler             ' Set flags     ComDlg.Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist     ' Set Dialog title     ComDlg.DialogTitle = "Open a Text File"     ' Set open directory     sLocation = GetDirectory()     If Len(sLocation) <> 0 Then         ComDlg.InitDir = sLocation     End If         ' Set filters     ComDlg.Filter = "All Files (*.*)|*.*|Text, XML Files " & "(*.txt;*.xml)|*.txt;*.xml"     ' Specify default filter     ComDlg.FilterIndex = 2     ' Display the Open dialog box     ComDlg.ShowOpen         ' Now open the text file and open it in the text box.     ' We only support text files encoded with the system code page as the     ' binary to unicode conversion in VB is using system code page.     Open ComDlg.FileName For Binary Access Read As 1     TxtBox.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)     Close #1         Exit Sub     ErrHandler:     'User pressed the Cancel button, do not show error     If Not (Err.Number = 32755) Then         AddDebugInfo "Open file: ", Err.Description     End If End Sub 注在以上代碼中這一句:Open ComDlg.FileName For Binary Access Read As 1好像也很重要哦.是以2進制方式讀文件的.

刘麻子 · 2004-03-23

》》那麼PChar<->PWideChar這樣相互轉換.轉換成PWideChar後是不是就等是Unicode字符了,如果是的話,那TMemo能用Add語句加入PWideChar嗎,或加入Unicode字符嗎? 是的转了就是 Unicode字符了，但是Tmemo 可能不能接受 Unicode字符，因为实际Tmemo 中字符是 Tmemo.text  这个域不是Widestring类型的。。。。。 如果想判断字符串里面有多少个‘字’，有两中方法： 1。扫描string，逐个判断每字节。有一个函数： function ByteType(const S: string; Index: Integer): TMbcsByteType; 它可以判断一个字符串中，某个 Char 是单个字母，还是双字节的前一位或后一位。 mbSingleByte 单字母 mbLeadByte 双字节第一位 mbTrailByte 双字节第二位 我们只要弄一个指针，指向当前字节，如果是汉字往后跳两个，英文跳一个。。。这样数下来就可以了 第二种方法，很方便，其实你只要直接用赋值语句就可以直接转换。 比如  s1:string ; s2:Widestring;   那么 s1:=s2;  s2:=s1；  都是直接转的！ 那么你可以 s2:=Memo.text; showmessage(inttostr(length(s2))); 我测试过了，是对的。另外需要注意的是一个回车是两个Ascii符（#13#10）用Unicode表示应该是‘两个字’

刘麻子 · 2004-03-23

另外： 。。。。。。。。。。。。。。。。。。。。。。。。。 ShortString 短字符串类型也就是前面所述的传统 Pascal 字符串类型。这类字符串最多只能有255个字符，与16位Delphi中的字符串相同。短字符串中的每个字符都属于ANSIChar 类型（标准字符类型）。 ANSIString长字符串类型就是新增的可变长字符串类型。这类字符串的内存动态分配，引用计数，并使用了更新前拷贝(copy&shy;-on-write)技术。这类字符串长度没有限制（可以存储多达20亿个字符！），其字符类型也是ANSIChar 类型。 WideString 长字符串类型与ANSIString 类型相似，只是它基于WideChar 字符类型，WideChar 字符为双字节Unicode 字符。

wr960204 · 2004-03-23

普通unicode var   AStr:String;   WStr:WideString; .....   WStr:=AStr;//直接附值 到utf-8 var   AStr:String;     UStr:String; ......   UStr:=AnsiToUtf8(AStr);

刘麻子 · 2004-03-24

 楼主老大  还有什么问题吗？

ymqpc · 2004-03-24

沒有了,我用別的方法做程序了,不過不是很理想,最理想還是Unicode啊. 給分!

ymqpc · 2004-03-24

多人接受答案了。

Ansi字符转换为unicode?(50分)

ymqpc

Unregistered / Unconfirmed

TYZhang

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

ymqpc

Unregistered / Unconfirmed

李张柏芝

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

ymqpc

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

ymqpc

Unregistered / Unconfirmed

ymqpc

Unregistered / Unconfirmed

Similar threads