[RESOLVED] loading unicode file

[bordino]

Hi everyone I have a text fie contain some Unicode characters when I load the file I get a ?????? Instead of the Unicode character
i thought internet explorer Support Unicode

here is my code
thanks alot

Private Sub Form_Load()
Open App.Path & "/" & "home.txt" For Input As #1
WebBrowser1.Navigate "about:" & Input$(LOF(1), 1)
Close #1
End Sub

[akhileshbc]

Is that a tip...???? Or a question...????

[bordino]

i have a text file contain some Unicode characters how do load them correctly in web browser
when i open the text file i only get the question marks ?????????
thanks

[akhileshbc]

See if this article helps you or not... : http://support.microsoft.com/kb/193540

[bordino]

do have to use Microsoft Forms 2.0 Object to open a text file or html contain Unicode

works fine when navigate to file
WebBrowser1.Navigate (App.Path & "\" & "1.html")

why doesn't work using open statement

[akhileshbc]

do have to use Microsoft Forms 2.0 Object to open a text file or html contain Unicode

works fine when navigate to file
WebBrowser1.Navigate (App.Path & "\" & "1.html")

why doesn't work using open statement

Try opening it in Binary mode....

[Merri]

This matter is a bit more complicated than you may think. If it is truly a Unicode file, it then may have a byte-order mark in it. To test this I have a bit of testing code:

' Module1.bas
Option Explicit

Public Enum ByteOrderMark
    [BOM None] = 0
    [BOM Little-Endian] = &HFEFF&
    [BOM Big-Endian] = &HFFFE&
    [BOM UTF-8] = &HBFBBEF
End Enum

Public Function BOM(ByVal FilesFirstBytes As Long) As ByteOrderMark
    If (FilesFirstBytes And &HFFFF&) = [BOM Little-Endian] Then
        BOM = [BOM Little-Endian]
    ElseIf (FilesFirstBytes And &HFFFF&) = [BOM Big-Endian] Then
        BOM = [BOM Big-Endian]
    ElseIf (FilesFirstBytes And &HFFFFFF) = [BOM UTF-8] Then
        BOM = [BOM UTF-8]
    End If
End Function

' Form1.frm
Option Explicit

Private Sub Form_Load()
    Dim bytFile() As Byte, lngBOM As Long
    Open App.Path & "/" & "little-endian.txt" For Binary Access Read As #1
    'Open App.Path & "/" & "big-endian.txt" For Binary Access Read As #1
    'Open App.Path & "/" & "utf-8.txt" For Binary Access Read As #1
    'Open App.Path & "/" & "utf-8 (no bom).txt" For Binary Access Read As #1
    'Open App.Path & "/" & "windows-1252.txt" For Binary Access Read As #1
        Get #1, , lngBOM
        Select Case BOM(lngBOM)
            Case [BOM Little-Endian]
                Debug.Print "The file is UTF-16 Little-Endian"
                Seek #1, 3
            Case [BOM Big-Endian]
                Debug.Print "The file is UTF-16 Big-Endian"
                Seek #1, 3
            Case [BOM UTF-8]
                Debug.Print "The file is UTF-8"
                Seek #1, 4
            Case Else
                Debug.Print "The file has no Unicode byte-order mark; it could be UTF-8 encoding or any known character set"
                Seek #1, 1
        End Select
        ' read all of the file minus BOM
        ReDim bytFile(LOF(1) - Seek(1))
        Get #1, , bytFile
    Close #1
End Sub

The project is attached. Test the code against your home.txt file so we know what we are actually dealing with.

[bordino]

Hi I tried open the file in binary mode same problem
I have saved my file as utf8 or Unicode

This is what i have inside the file

ها א ה 耳

and this is what i get after i run the code

»¿Ù

Private Sub Command1_Click()
Dim f As Long
Dim x(3) As Byte
Dim readresult As String

f = FreeFile()
Open "C:\home.txt" For Binary As #f

Get #f, , x
Close #f
readresult = Chr(x(0)) & Chr(x(1)) & Chr(x(2)) & Chr(x(3))
Web.Navigate readresult
End Sub

[agent_007]

Hi everyone I have a text fie contain some Unicode characters when I load the file I get a ?????? Instead of the Unicode character
i thought internet explorer Support Unicode

here is my code
thanks alot

Private Sub Form_Load()
Open App.Path & "/" & "home.txt" For Input As #1
WebBrowser1.Navigate "about:" & Input$(LOF(1), 1)
Close #1
End Sub

Try This

Private Sub Command1_Click()
Dim f As Long
Dim read As String
f = FreeFile()
Open "C:\home.txt" For Binary As #f
read = InputB(10, #f)
Close #f
Web.Navigate "about:" & read
End Sub

[bordino]

i get this when i run you code
믯��₧郗휠ₔ胨₳

instead of this
ها א ה 耳

thanks alot

[agent_007]

i get this when i run you code
믯₧郗휠ₔ胨₳

instead of this
ها א ה 耳

thanks alot

try saving the file in unicode and not in utf-8 or unicode big indian

[Merri]

Try code in post #7 and tell the results or upload home.txt

[agent_007]

if problem doesnt solve then upload home.txt

[bordino]

thanks sooooooooo mouch man you right after saved in Unicode works perfect

[agent_007]

thanks sooooooooo mouch man you right after saved in Unicode works perfect

Ur Welcome and mark the thread as resolved