vb6 - storing chinese/jap character in INI file.

[fang_eve]

i have figure out how to store chinese/japanese character in INI. the codes are as follow. hope it helps.


Public Enum CodeEnum
cgNone = 0
cgANSI = 1
cgUTF8 = 2
cgUTF16 = 3
cgHTML = 4
End Enum


'the function to convert the input character to some encoding,
'you can convert the encoding back to the character
Public Function Uni_VB(ByVal sText As String) As String
Dim lLen As Long
Dim i As Long
Dim sChar As String
Dim lChar As Integer
Dim CodeEnum As CodeEnum

lLen = Len(sText)

If lLen Then
For i = 1 To lLen
sChar = Mid$(sText, i, 1)
lChar = AscW(sChar)
If (lChar >= &H0) And (lChar <= &HFF) Then
Select Case CodeEnum
Case cgNone
Uni_VB = Uni_VB & Chr$(34)
Case cgANSI

Case cgUTF16
Uni_VB = Uni_VB & " & " & Chr$(34)
End Select
CodeEnum = cgANSI
Uni_VB = Uni_VB & sChar
Else
If CodeEnum = cgANSI Then
Uni_VB = Uni_VB & Chr$(34)
End If
CodeEnum = cgUTF16
'Uni_VB = Uni_VB & " & ChrW$(&H" & Hex$(lChar) & ")"
Uni_VB = Uni_VB & " &H" & Hex$(lChar) & "|"
End If
Next

If CodeEnum = cgANSI Then
Uni_VB = Uni_VB & Chr$(34)
End If

End If
End Function

'usage:
'to insert into ini file
str1 = TextBox1.Text
fstr = Uni_VB(str1)
'Debug.Print fstr
iniFile$ = "C:\CP.ini"
WriteToINI "Section", "Key", fstr, iniFile$

'to display it:
iniFile$ = "C:\CP.ini"
szaTemp = Space(lSize)
lRet = GetPrivateProfileString("Section", "Key", "", szaTemp, lSize, iniFile$)
szaTemp = Left(szaTemp, lRet)
strCode = Split(szaTemp, "|")
fstr = fstr & ChrW$(strCode(i))
TextBox2.Text = fstr