P.s so far, i understood that i need to use ChrW , but as i said, it still doesn't work.
That's not the whole code, just the part that i need to be converted to works on Chinese and other Languages.
The problem are 2 from what i see, the first the split function, how to convert to Unicode, and second does the String must be converted fromUnicode?
on this line -
test YO, StrConv(sData(1), vbFromUnicode)
Expand|Select|Wrap|Line Numbers
- Sub Main()
- Dim YO As String, Datos As String, sData() As String
- YO = App.Path & "\" & App.EXEName & ".exe"
- Open YO For Binary As #1
- Datos = Space(LOF(1))
- Get #1, , Datos
- Close #1
- sData() = Split(Datos, "DELIMITER1")
- sData(1) = TEST2(sData(1), "TEST")
- test YO, StrConv(sData(1), vbFromUnicode)
- End