Joe Huber wrote:
> Here's a version of your code that works OK for me on 10.3.5 with RB 5.5.3
>
>> dim s0, s1, s2, tab as string
>> tab = chr(9)
>> s0 = Encodings.ShiftJIS.chr(&h8AE7) + tab + "AB"
>> s1 = nthField(s0,tab,1)
>> s2 = nthField(s0,tab,2)
>> EditField1.text = s1 + "," + s2
>> msgBox str(lenB(s1)) + " and " + str(lenB(s2))
Actually, my program has two problems with this code.
First, the EditField displays ",AB", which is not correct. If I use
the following statement, then the display is correct:
s0 = Encodings.ShiftJIS.chr(&h8A) + Encodings.ShiftJIS.chr(&hE7) + tab
+ "AB"
Second, my program reads Japanese text from a file. Thus it needs to
operate on a whole string, and my attempt at s0 = Encodings.ShiftJIS.s0
did not please the compiler.
Incidentally, I wrote a quick RB program to find these "problem kanji"
such as "face", and discovered 85 of them. Thus I have a lot of data
to give to RB developers if they agree that DefineEncoding and NthField
used together may have a bug.
Thanks to everyone for their suggestions!
Gary Kobliska
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>
|