Android Question Hebrew Currency with Number String

E

emexes

Expert

Licensed User

• Jul 13, 2019

• #2

B4X:

Dim IOU As Double = 10.15    'money values better as Double (Float is only 6 digits accurate)
Dim MoneyString As String = "שח " & NumberFormat2(IOU, 1, 2, 2, False)
Log("How about " & MoneyString & " ?")

IOU = IOU * 2
MoneyString = Chr(8362) & " " & NumberFormat2(IOU, 1, 2, 2, False)
Log("Or do you prefer " & MoneyString & " ??")

 

Last edited: Jul 13, 2019

Upvote 0

E

EvgenyB4A

Active Member

Licensed User

Longtime User

• Jul 13, 2019

• #3

Anyway I get the following: "How about שח 10.15 ?" I need that שח will be the first and then 10.15

 

Upvote 0

E

emexes

Expert

Licensed User

• Jul 13, 2019

• #4

Yeah, I just tested the second sample Chr(8362) and noticed that the first sample was still the wrong way around. That's interesting. I remember with Arabic writing in Windows, text used to move itself about when changing direction, perhaps the same is happening here when the text output routine sees your currency symbol.

update: the B4A IDE cursor does very strange things when traversing those characters too...

 

Upvote 0

E

EvgenyB4A

Active Member

Licensed User

Longtime User

• Jul 13, 2019

• #5

It is not because of currency symbol. If English part of string will be like "abcd" al will loos OK : " שח abcd" .

 

Upvote 0

E

emexes

Expert

Licensed User

• Jul 13, 2019

• #6

According to this page:

https://www.fileformat.info/info/unicode/char/5E9/index.htm

the first character is right-to-left, and I expect the other character will be too. So now I am looking at how to override text directionality. Or to trick it somehow into putting the symbol first.

A workaround might be to put the currency symbol in one label, and the monetary number in a separate label.

 

Upvote 0

E

emexes

Expert

Licensed User

• Jul 13, 2019

• #7

This post is related, and offers the same workaround (great minds think alike !?!?)

https://www.b4x.com/android/forum/threads/text-direction-problem.91552/#post-578275

 

Upvote 0

M

Mahares

Expert

Licensed User

Longtime User

• Jul 13, 2019

• #8

B4X:

Dim IOU As Double = 10.15   
    Dim s As String=NumberFormat2(IOU, 1, 2, 2, False)
    Log($"nw ${s}"$)    'displays: nw 10.15

 

Upvote 0

E

emexes

Expert

Licensed User

• Jul 13, 2019

• #9

I am going to have to admit defeat on this one, for tonight at least.

If you place text between the currency characters, then they stay in left-to-right order. So I figure if I could just find some non-printing characters to put between the currency characters, that would do the job (although no doubt I'd cop an ear-bashing from Erel ;-)

However, that doesn't work. Java's handling of text direction is irritatingly thorough.

I tried CSBuilder too, thinking that the formatting codes in that might interrupt the text direction handling, but... no luck there either.

 

Upvote 0

E

emexes

Expert

Licensed User

• Jul 13, 2019

• #10

Mahares said:

B4X:

    Log($"nw ${s}"$)    'displays: nw 10.15

Click to expand...

This post made me think of another workaround: use the ISO currency code "ILS"

 

Upvote 0

E

emexes

Expert

Licensed User

• Jul 13, 2019

• #11

Or apparently CSBuilder can include images within a string, so... you could include an IMAGE of the two currency characters... bit of an icky solution, but hey: if it works, it works ;-)

 

Upvote 0

M

Mahares

Expert

Licensed User

Longtime User

• Jul 13, 2019

• #12

emexes said:

Or apparently CSBuilder can include images within a string, so... you could include an IMAGE of the two currency characters... bit of an icky solution, but hey: if it works, it works ;-)

Click to expand...

Use string literals, you will get it:

B4X:

Dim IOU As Double = 10.15  
    Log($"nw ${NumberFormat2(IOU, 1, 2, 2, False)}"$)  'displays: nw 10.15

 

Upvote 0

E

EvgenyB4A

Active Member

Licensed User

Longtime User

• Jul 13, 2019

• #13

nw will be looked apparently. I used literals string but it doesn't help.

 

Upvote 0

E

emexes

Expert

Licensed User

• Jul 13, 2019

• #14

Give this a burl:

B4X:

Dim IOU As Double = 10.15    'money values better as Double (Float is only 6 digits accurate)
Dim MoneyString As String = Chr(0x200F) & NumberFormat2(IOU, 1, 2, 2, False) & " " & Chr(1513) & Chr(1495)
Log("How about " & MoneyString & " ?")

IOU = IOU * 2
MoneyString = Chr(8362) & " " & NumberFormat2(IOU, 1, 2, 2, False)
Log("Or do you prefer " & MoneyString & " ??")

 

Last edited: Jul 13, 2019

Upvote 0

E

EvgenyB4A

Active Member

Licensed User

Longtime User

• Jul 13, 2019

• #15

Thank you very much. It works.
Chr(0x200F) makes a job.

 

Upvote 0

E

emexes

Expert

Licensed User

• Jul 14, 2019

• #16

EvgenyB4A said:

It works. Chr(0x200F) makes a job.

Click to expand...

I wish I could explain why it works, except that I'm a bit hazy about it myself.

Likewise, I wish I could say that I derived the solution by skill and wisdom, but in fact it was more by perseverance and luck.

I googled Unicode left right direction and eventually I found pages like http://unicode.org/reports/tr9/#Explicit_Directional_Embeddings

and from there I tried using various directional formatting characters and sequences until I found one that worked with both Log() and with Label.Text =

 

Upvote 0