Dùng VB6 để hoán chuyển Unicode

VB6 không đuợc thiết kế để hổ trợ Unicode. Do đó khi dùng VB6 làm ngôn ngữ lập trình để làm việc với Unicode ta chạm phải những trở ngại vì giới hạn của nó. VB6 gần như không đá động gì đến Unicode. Người ta nói bên trong data type loại String của VB6 thì nó có khả năng chứa Unicode characters, nhưng thế thôi. Có một số nhu cầu ta cần phải giải quyết nếu ta muốn dùng VB6 cho Unicode. Ðó là: 1. 2. 3. 4. Làm sao hiển thị chữ Việt trong Textbox, Listbox .v.v.. Làm...
Nội dung trích xuất từ tài liệu:
Dùng VB6 để hoán chuyển Unicode Dùng VB6 để hoán chuyển Unicode VB6 không đuợc thiết kế để hổ trợ Unicode. Do đó khi dùng VB6 làm ngôn ngữ lập trình để làm việc với Unicode ta chạm phải những trở ngại vì giới hạn của nó. VB6 gần như không đá động gì đến Unicode. Người ta nói bên trong data type loại String của VB6 thì nó có khả năng chứa Unicode characters, nhưng thế thôi. Có một số nhu cầu ta cần phải giải quyết nếu ta muốn dùng VB6 cho Unicode. Ðólà: 1. Làm sao hiển thị chữ Việt trong Textbox, Listbox .v.v.. 2. Làm sao đọc và viết Text file chứa Unicode chữ Việt 3. Làm sao xử lý Text String chứa Unicode chữ Việt 4. Trong giai đoạn giao thời khi các kiểu chữ VNI, VPS, VISCII, TCVN ..v.v. còn thịnh hành, làm sao ta hoán chuyển các encodings ấy ra Unicode.Trong bài nầy ta sẽ tìm hiểu cách đáp ứng các nhu cầu trên qua việc viết một program bằng VB6để hoán chuyển các Text files có kiểu chữ VNI, VPS, VISCII, TCVN ..v.v. ra Unicode và ngượclại, nhân đó biểu diển cách giải quyết tất cả 4 nhu cầu nói trên.Trước hết muốn hiển thị Unicode cho chữ Việt ta cần phải dùng Menu command của VB6 IDEđể Project | Components Microsoft Forms 2.0 Object Library. Cái ActiveX nầy cho ta nhữngLabel, TextBox, Listbox và ComboBox cần thiết để hiển thị chữ Việt trong Unicode.Kế đó, để đọc và viết chữ Việt dưới dạng UTF-8 Unicode, ta chứa Unicode text file trong mộtXML file giữa một cặp tags tên Text (đó cũng là root node) , rồi dùng Microsoft DocumentObject Model (DOM) để đọc và viết chữ Việt. Bạn nhớ Project | References Microsoft XML,v3.0 và Microsoft Scripting Runtime. Nguyên phần Text là nodeTypedValue của root nodecủa DOM.Làm như thế ta tránh phải đọc từng byte rồi tìm cách chuyển data ấy qua Unicode String. Ở đâyphải nhấn mạnh là bạn phải vui lòng dùng MSWindowsNT hay MSWindows2000 mới được.Bạn có thể dùng Notepad trong WindowsNTđể edit XML file chứa chữ Việt và lưu trử dướiformat UTF-8 như trong hình dưới đây:Việc đọc và viết Việt Unicode text file được làm cho dễ dàng ra bằng cách dùng một VB6 Classtên clsUnicodeText như sau:Dim MyUnicodeText As clsUnicodeTextSet MyUnicodeText = New clsUnicodeText Read Unicode Text from file txtFileName and display in TextBox1(0)TextBox1(0).Text = MyUnicodeText.ReadUnicode(txtFileName)Listing của Class clsUnicodeText như sau:Option ExplicitPrivate mDOMTextFile As DOMDocument Document Object ModelPrivate mXMLPath As String XML filenamePublic Function ReadUnicode(TXMLPath) Read Unicode text from XML file Dim objTextFileRoot As IXMLDOMElement Set mDOMTextFile = New DOMDocument Remember the XML file name to update later mXMLPath = TXMLPath Read the XML file and create a DOM mDOMTextFile.Load mXMLPath start at the root element of the XML Set objTextFileRoot = mDOMTextFile.documentElement Return the root nodes text ReadUnicode = objTextFileRoot.nodeTypedValueEnd FunctionPublic Sub WriteUnicode(OutText, Optional TXMLPath) Update Unicode Text of same XML file or write to another XML file If IsMissing(TXMLPath) Then Assign the Text to write out to the Root node of DOM mDOMTextFile.documentElement.Text = OutText Update the XML file mDOMTextFile.save mXMLPath Else Read a dummy file to create a DOM ReadUnicode GetLocalDirectory & Dummy.xml Assign the Text to write out to the Root node of DOM mDOMTextFile.documentElement.Text = OutText Write the Text to the given XML file mDOMTextFile.save TXMLPath End IfEnd SubKhi dùng Sub WriteUnicode ta có thể cho nó tên một XML file nếu ta muốn lưu trử Text trongmột file khác với input XML file. Trong trường hợp đó, Sub WriteUnicode đọc một XML filetrống tên Dummy.xml để tạo một DOM.Các nguyên âm có dấu của các encodings VPS, VNI, VISCII, TCVN .v.v được chứa trong cácANSI text file như VPSVowles.txt, VNIVowels.txt, VISCIIVowels.txt, TCVNVowels.txt,.v.v..Trong khi đó các nguyên âm có dấu của Unicode chữ Việt đuợc chứa trong một XML file vàđuợc đọc vào cùng một cách như mọi XML Unicode text files khác. Nó giống như dưới đây:Một khi Unicode text đã đuợc đọc vào trong VB6 Text String rồi, nó đuợc dùng y hệt như choANSI characters. Ðó là vì bên trong VB6 Unicode characters đuợc chứa đàng hoàng, không cầnbiết mỗi character cần bao nhiêu bytes. Nói như thế có nghĩa là các Functions Left, Mid, InStrđều có thể đuợc dùng cho Unicode Text String như một ANSI String bình thường.Do đó khi hoán chuyển một nguyên âm từ encoding VPS hay VISCII ra Unicode, và ngược lại,ta có thể dùng mối liên hệ từng nguyên âm một (one-to-one correspondence). Hãy xem cáiFunction StringToString dùng trong công việc hoán chuyển nầy.Function StringToString(Vowel1, Vowel2) As String Direct one-to-one character mapping ...