Hello everyone, i am facing some issue with unique delimiter in visual basic 6. I am trying to create security application which is compatible with Chinese Windows. Although i did many tests today, its still doesn't work. It works only on English Windows.I am pasting the code, and if someone have any idea, i would be grateful for the guidance.
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) - 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
7 12459 zmbd 5,501
Recognized Expert Moderator Expert
Might be helpful if you could post the UNICODE value of the delimiter that is giving you such problems.
- sData() = Split(Datos, "ChrW(&H4E00)")
zmbd 5,501
Recognized Expert Moderator Expert
take the quotes out: sData() = Split(Datos, ChrW(&H4E00))
Already tried, it does not work.. The problem is not there.
zmbd 5,501
Recognized Expert Moderator Expert
This may not be the "root" issue; however, the double-quotes were absolutely preventing Split() from functioning as expected.
I'm suspecting that there's an incompatibility within/between the different versions of the OS in how they handle the unicode tables
Also... would you try sData() = Split(Datos, ChrW(19968))
I know, the HexValue should work; however, sometimes the conversion goes wonky
Next thing - exactly
How is this not working
What is it returning, if anything, that doesn't match expectations
What error messages, if any, are you getting - please give the exact error number and entire error message (error numbers are often generic with the message providing much more detail).
About the quotes, when I use quotes, the output file comes out damaged. And the file doesn't work even on English Windows.
When I use quotes, the file is okay, it works on English Windows.
When I moved the file, and try to run on Chinese Windows, I am getting "WerFault" . The file just won't run.
The algorithm that I am trying to develop is for protection against cracking, modification etc. I am using the RC4 encryption algorithm.
I am using builder, where I load the original file, and return it protected with that algorithm. Maybe you're right about the quotes of the second part of the code.
But, when i am trying to remove the quotes in my builder, the file comes out damaged. So to remove quotes maybe is okay on this part of the code shared here, but when I removed it on the builder, the file comes out damaged. zmbd 5,501
Recognized Expert Moderator Expert
WerFault.exe is a windows error trap module. If you can find the text of the error log in the Windows Event Viewer that would be helpful.
I've a few personal matters to attend to right now; however, with your post of the actual error message we might figure something out
Also, please provide the names of the tools that you are using for your development - might need to use a different IDE, change a setting, etc..
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: NewToThis |
last post by:
I am trying to use the split function to bread up lines in a file I am
reading from. Some lines are working just fine, but a couple of the lines
don't split up the way I would have thought.
Here's part of the code.
Dim strDelim As String = "*~"
Dim delimiter As Char() = strDelim.ToCharArray
Dim split As String() = Nothing
Dim fieldCount As Integer
Dim s As String
|
by: Reb |
last post by:
Hi,
I could split only by a character. How do i split by a
string.
How can i do something like this.
e.g., somestring.Split("name");
Thanks
Reb
|
by: andrewcw |
last post by:
The split function takes as a parameter what I understand
as array of Char.
I can define the delimiter like this:
string innerText = new string;
char chSplit={'='};
innerText=tempText.Split(chSplit);
But if I try this ( to make the delimiter a variable ):
|
by: Elhanan |
last post by:
hi all..
i have the following string:
200850625~01~464~^^200850625~01~464~^^200850625~01~908~^^
which i will need to turn to a mutli-dimentional string array
i used result.Split(new char{'^','^'}) for the rows
but for some reason i get an empty cell between each result, this is
also in the documentation, i just don't know why?
|
by: vivekgrs |
last post by:
hi
in vb 6.0 ,iam using space in split function. that is working fine.
Split(str, " ")
now i want 2 use tab. bcoz in the text file the delimiter they are using is tab. so i want 2 use tab for split funcion. i dont know abut that . can anyone help me .
2 4 6 7 -- like this the data is available.
regards
| |
by: martinskou |
last post by:
Hi, I'm looking for something like:
multi_split( 'a:=b+c' , )
returning:
whats the python way to achieve this, preferably without regexp?
Thanks.
|
by: grey15 |
last post by:
hi to all......am very new to perl....so dnt knw much abt it....
i have a txt file.....so i have to split the values using delimiters.eg have following text-
Colombian|The finest Colombian beans, low flame roasted to yield a rich flavour.|7.99|
but when i use the split function using '|' as delimiter, it gives me errors-
use of uninitialized value in concatenation (.) or string
i used the following function
split(/|/,$_);
|
by: John |
last post by:
Hi
I have written a Split function which in turn calls the standard string
split function. Code is below;
Function Split1(ByVal Expression As String, Optional ByVal Delimiter As
String = " ", Optional ByVal Limit As Integer = -1, Optional ByVal Compare
As CompareMethod = CompareMethod.Binary, Optional ByVal MaxLength As Integer
= 0) As String()
|
by: handar |
last post by:
How do I use Python to split a csv into multiple columns?
(using split function using python)
"CUSTOMERID","DESCRIPTION","FARE","GUESTS","SEATCLASS","SUCCESS"
"1","Braund, Mr. Owen Harris;22","7.25","1","3","0"
"2","Cumings, Mrs. John Bradley (Florence Briggs Thayer);38","71.2833","1","1","1"
"3","Heikkinen, Miss. Laina;26","7.925","0","3","1"
"4","Futrelle, Mrs. Jacques Heath (Lily May Peel);35","53.1","1","1","1"
"5","Allen, Mr....
|
by: TylerBennett |
last post by:
Currently I am working on a serial number inventory database. When I was testing functionality, I was using the split function with the space as a delimiter, shown below:
Dim InputString() As String
Dim i As Integer
InputString = Split(InputName, " ")
For i = 0 To UBound(InputString)
CurrentDb.Execute "INSERT INTO InventoryInputT(InputID) VALUES ('" & InputString(i) & "')"
Next i
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
| |
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| |
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |