Visual Basic

FirstPrevNext

Building Char Strings, Chars ASCII > 127 & Chinese Windows Jason Teagle11-Jun-02 23:31 Jason Teagle 11-Jun-02 23:31  An app (VB) that we have had running for a few years now has been working fine on American and European versions of Windows. Now someone has tried to run it on Chinese Windows, and it's not working. I have traced it down to one specific thing, as follows: The code builds up Modbus communications messages one byte at a time using VB's Chr$() function, like this: strMessage = Chr$(1) & Chr$(3) & Chr$(0) & Chr$(48) ... etc. Now, as we all know an unsigned byte can be from 0 - 255. Also, in a single byte character system, ASCII characters also go from 0 to 255. Thus, it is quite natural to want to add such bytes beyond 127, which would be negative values _if_treated_as_signed_bytes_: strMessage = strMessage & Chr$(245) & Chr$(136) Now, on most systems this works just dandy. But I have discovered that whenever we try to add a byte (character) > 127 under Chinese Windows, it instead ends up with 0 there - it doesn't seem to get it right. All suspicions point to MBCS (multi-byte character set) issues, but I was under the impression that VB handles this automatically. Can anyone suggest how I might successfully add bytes > 127 to a VB string, using VB methods? When I get totally desperate I can call to a C++ DLL to do it, but there's a fair bit of work rewriting the VB code for that so it's a very last resort! -- Jason Teagle jason@teagster.co.uk ----------------------------------------------------------- A list of programming resources I use: ML: www.windev.org, www.codecipher.com, www.beginthread.com MB: www.codeguru.com, www.codeproject.com NG: comp.lang.java.* OI: www.php.net ----------------------------------------------------------- Re: Building Char Strings, Chars ASCII > 127 & Chinese Windows Jason Teagle12-Jun-02 1:17 Jason Teagle 12-Jun-02 1:17  Note: the answer was provided somewhere else - use ChrB$() instead of Chr$() - I didn't know this existed Safearray in VB Hans Ruck11-Jun-02 23:07 Hans Ruck 11-Jun-02 23:07  Do you know how should i create a safearray in VB? rechi Re: Safearray in VB Ghazi H. Wadi18-Jun-02 22:16 Ghazi H. Wadi 18-Jun-02 22:16  Dim vx As Variant Dim v(2) As String v(0) = "First Argument" v(1) = "First Argument" vx = v It is Illogical to define an inventor by his invention how to make a trial software 11-Jun-02 4:37 11-Jun-02 4:37  Hello, I need my project to expire after 30 days of use. How can I do this? If you dont have the code just tell me the process to make it a trial one then I'll research a little more. Thanks in advance adol Re: how to make a trial software SimonS11-Jun-02 6:10 SimonS 11-Jun-02 6:10  Would your app. connect to the internet? Cheers, Simon "Every good work of software starts by scratching a developer's personal itch.", Eric S. Raymond Re: how to make a trial software adol11-Jun-02 6:30 adol 11-Jun-02 6:30  My app would not connect to the internet. adol Re: how to make a trial software Nick Parker11-Jun-02 18:05 Nick Parker 11-Jun-02 18:05  There are several ways to do this, however one of the simpilest ways is to store a value in the registry (i.e. - installation date) and then when the application loads everytime you can grabb that value from the registry and check using DateDiff to see if time has expired. There is a lot of code out there explaining how to use the registry in your application so I won't go into the details, but again this is just a suggestion. HTH Nick Parker Re: how to make a trial software 13-Jun-02 5:03 13-Jun-02 5:03  Thank you very much for your help Nick!!! Maybe this is the easiest way to do it. Somebody told me I can use the Hard Disk serial number or something like that to control the use of an app, does anybody knows what he was talking about? Best regards, adol Re: how to make a trial software SHaroz13-Jun-02 6:51 SHaroz 13-Jun-02 6:51  I would strongly reccomend encrypting or hiding the date if it is in the registry even if you only do somthing simple like XORing the value. Otherwise, it's realy easy to modify the registry entry to make the program work forever. If you need more explanation, just reply. Re: how to make a trial software Nick Parker13-Jun-02 8:32 Nick Parker 13-Jun-02 8:32  I was only giving an example of a method to limit application life, there are of course other ways (i.e. - including encryption) that are better. Nick Parker Cursor Question Nick Parker7-Jun-02 10:35 Nick Parker 7-Jun-02 10:35  This question is really a question of why not how. I was playing around with an application that would hide and display the cursor with the Win API ShowCursor. I was calling this function in the load event of the application and it was not working. I had a timer on the form and decided to call the ShowCursor function there. Even though this is repetative it works. Does anyone have any ideas what would cause this? Nick Parker Re: Cursor Question Jeremy Falcon11-Jun-02 5:22 Jeremy Falcon 11-Jun-02 5:22  Because its param isn't a boolean to just toggle the cursor on and off. From MSDN about the param... Specifies whether the internal display counter is to be incremented or decremented. If bShow is TRUE, the display count is incremented by one. If bShow is FALSE, the display count is decremented by one. So, ShowCursor False isn't guaranteed to hide the cursor. If another application passed it True a couple of times it won't hide it. If the internal counter is 0 or greater the cursor will remain visible and it hides if it's -1, so check the return value of ShowCursor() and keep on calling it until the counter is -1. That's why the timer method worked. It ensured the internal counter was -1 by calling it over and over again. The thing is though, once it's hidden you can stop calling ShowCursor() to avoid wasting CPU cycles. Jeremy L. Falcon<nobr> Homepage : Sonork = 100.16311 "It was a blind man who taught me how to see." - Aerosmith Re: Cursor Question Nick Parker11-Jun-02 5:16 Nick Parker 11-Jun-02 5:16  Thanks for the response Jeremy, I figured that out about 30 minutes later during lunch . This was just something that I was playing around with so no worries. Nick Parker Re: Cursor Question Jeremy Falcon11-Jun-02 5:54 Jeremy Falcon 11-Jun-02 5:54  Nick Parker wrote: I figured that out about 30 minutes later during lunch Funny ain't it? It's usually the same way with me. When I get away from the computer is when the solution just pops in my head. Oh well, at least it gave me an excuse to visit the VB forum again. Jeremy L. Falcon<nobr> Homepage : Sonork = 100.16311 "It was a blind man who taught me how to see." - Aerosmith Re: Cursor Question Nick Parker11-Jun-02 5:51 Nick Parker 11-Jun-02 5:51  Same here, I had been hanging my head in the C# forum for quite a while. Nick Parker Word Macro laphijia7-Jun-02 7:44 laphijia 7-Jun-02 7:44  My Word macro has grown HUGE, so I want to convert it to some C or C++ console application, or whathever, so that It can run i Background. Is possible to make an exe out of a Macro, convert the VBA and make and compile it, etc. This macro simply makes some standard modifies to a TEXT file. The problem is that the Macro language i think VBA, has some advanced funcions to move the cursor in the text. Like Selection. .MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend .HomeKey .TypeText Text:=hello .TypeParagraph .TypeBackspace .Delete Unit:=wdCharacter, Count:=3 "Nelle cose del mondo non e' il sapere ma il volere che puo'." Re: Word Macro Rama Krishna Vavilala7-Jun-02 7:48 Rama Krishna Vavilala 7-Jun-02 7:48  Ofcourse, you can cut and paste the code in a VB module and compilet it. Of course you may need to add the appropriate reference and also make some small corrections. Re: Word Macro laphijia7-Jun-02 7:57 laphijia 7-Jun-02 7:57  I dont know much about VB. My code is something like: Selection.MoveUp Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine Selection.MoveRight Unit:=wdCharacter, Count:=87 Selection.Delete Unit:=wdCharacter, Count:=6 Selection.PasteAndFormat (wdPasteDefault) Selection.TypeBackspace Selection.TypeBackspace Selection.TypeBackspace Selection.MoveLeft Unit:=wdWord, Count:=1 Selection.TypeBackspace Selection.MoveRight Unit:=wdWord, Count:=8 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.PasteAndFormat (wdPasteDefault) Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend Selection.TypeText Text:="=" And I copied it into the sub main of module one in a new Visual Basic Console application. But everithing don't work. Selection wdCharacter,wdExtend, wdLine, is undeclared, etc etc etc HELP PLEASE! "Nelle cose del mondo non e' il sapere ma il volere che puo'." Re: Word Macro laphijia7-Jun-02 8:02 laphijia 7-Jun-02 8:02  Selection seems to be a Word Library Object. Should I import the Word Library to my project for make my code working again? "Nelle cose del mondo non e' il sapere ma il volere che puo'." Re: Word Macro Rama Krishna Vavilala7-Jun-02 8:22 Rama Krishna Vavilala 7-Jun-02 8:22  Define Global objects like this Dim Selection as Word.Selection Dim WordApplication as New Word.Application Sub Form_Load set Selection = WordApplication.Selection End Sub Re: Word Macro laphijia7-Jun-02 8:37 laphijia 7-Jun-02 8:37  Rama Krishna wrote: Dim Selection as Word.Selection Dim WordApplication as New Word.Application It looks like "TYPE WORD NOT DEFINED" ???? "Nelle cose del mondo non e' il sapere ma il volere che puo'." Permission Denied jlaica6-Jun-02 6:53 jlaica 6-Jun-02 6:53  I am getting a permission denied error when copying text from inside a temp text file to a file already set up in another folder. The problem only occurs when I am reading a group of files and the last file is the one that fails. Re: Permission Denied Nick Parker7-Jun-02 6:09 Nick Parker 7-Jun-02 6:09  Two things: 1. Are you closing the file after you are done with each one? 2. Have you checked the file permissions to see that you have access to it? Nick Parker Re: Permission Denied Gethsus13-Jun-02 3:58 Gethsus 13-Jun-02 3:58  Cuold you be more specific , exactly what is the scenario ?;P

Last Visit: 31-Dec-99 18:00     Last Update: 3-Jun-24 16:31 Refresh ᐊ Prev1...4772477347744775477647774778477947804781 Next ᐅ

General    News    Suggestion    Question    Bug    Answer    Joke    Praise    Rant    Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.