Unicode delimiter vb6

[vb62022]

Hello everyone, although is not visual basic 6 forum here, i am sure i can find solution for my problem. I saw similar thread there, but for some reason that method doesnt work for me(maybe im doing something wrong im not sure).

It's about that i wrote data arrays at the end of the exe with delimiter. After I compiled, the app it didn't work on Chinese Windows, only on English, I want to configure the app to work on Chinese windows as well, I know it will work if I change the system location, but that's not what I want. I want it to work without changing the system location, as far as i understand the delimiter function should be unicode delimited.
The project is coded in vb6, so i still trying to find solution.

Im pasting example of the code.




Dim MyData() As String
MyData() = Split(info, "DELIMITER") 'Note I was try it MyData() = Split(info, ChrW(&H60C)) but it still does not work.

As i said i saw this similar thread, but it does not work for me.
Here is the link.

how to use split function with unicode delimiter

Hi, I have an excel sheet with comma separated Arabic values. The Arabic comma is Unicode U+060C , how would I specify a unicode delimiter in the VBA Split function? Thanks David

www.mrexcel.com

 

[vb62022]

When doesn't it work? Do you have code we can review?

• 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