UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> Convert English Number To Hindi Arabic Number, Any Version    
 
   
access2009eg
post Apr 13 2019, 07:52 AM
Post#1



Posts: 1,030
Joined: 19-February 08



friends
I have this code to convert the English number 1 2 3 4 5 to Devangari

but I want to change it to
the Arabic Hindi number like the attached image
you will see in the image
English
Arabic Hindi
Devangari

CODE
Dim myString As String
myString =3D Selection.Text
Dim myCode As Long
Dim i As Long
For i =3D 1 To Len(myString)
myCode =3D AscW(Mid(myString, i, 1))
Select Case myCode
Case AscW("0") To AscW("9")
Mid(myString, i, 1) =3D ChrW(&H936 + myCode)
Case &H966 To &H96F
Mid(myString, i, 1) =3D ChrW(myCode - &H936)
Case Else
' do nothing
End Select
Next i
Selection.Text =3D myString


please edit the code for me thank you


Attached File(s)
Attached File  image3.png ( 7.34K )Number of downloads: 0
 

--------------------
I would like to Thank you for your help
Go to the top of the page
 
access2009eg
post Apr 14 2019, 11:54 AM
Post#2



Posts: 1,030
Joined: 19-February 08



Up
what this text means &H936 in the above code

--------------------
I would like to Thank you for your help
Go to the top of the page
 


Custom Search


RSSSearch   Top   Lo-Fi    19th April 2019 - 07:38 PM