HELP WITH JAVA SCRIPT

hi experts..

i have visual basic script convert number word(text) in indian format. using script in excel ,but want use in abode acrobat form. how possible ?

i request plz make java script script.

thank you

 

my script here

 

function spellnumber(byval mynumber, optional incrupees boolean = true)

dim crores, lakhs, rupees, paise, temp

dim decimalplace long, count long

dim mylakhs, mycrores

redim place(9) string

place(2) = " thousand ": place(3) = " million "

place(4) = " billion ": place(5) = " trillion "

' string representation of amount.

mynumber = trim(str(mynumber))

' position of decimal place 0 if none.

decimalplace = instr(mynumber, ".")

' convert paise , set mynumber rupees amount.

if decimalplace > 0 then

paise = gettens(left(mid(mynumber, decimalplace + 1) & "00", 2))

mynumber = trim(left(mynumber, decimalplace - 1))

end if

mycrores = mynumber \ 10000000

mylakhs = (mynumber - mycrores * 10000000) \ 100000

mynumber = mynumber - mycrores * 10000000 - mylakhs * 100000

count = 1

do while mycrores <> ""

temp = gethundreds(right(mycrores, 3))

if temp <> "" crores = temp & place(count) & crores

if len(mycrores) > 3 then

mycrores = left(mycrores, len(mycrores) - 3)

else

mycrores = ""

end if

count = count + 1

loop

count = 1

do while mylakhs <> ""

temp = gethundreds(right(mylakhs, 3))

if temp <> "" lakhs = temp & place(count) & lakhs

if len(mylakhs) > 3 then

mylakhs = left(mylakhs, len(mylakhs) - 3)

else

mylakhs = ""

end if

count = count + 1

loop

count = 1

do while mynumber <> ""

temp = gethundreds(right(mynumber, 3))

if temp <> "" rupees = temp & place(count) & rupees

if len(mynumber) > 3 then

mynumber = left(mynumber, len(mynumber) - 3)

else

mynumber = ""

end if

count = count + 1

loop

select case crores

case "": crores = ""

case "one": crores = " 1 crore "

case else: crores = crores & " crores "

end select

select case lakhs

case "": lakhs = ""

case "one": lakhs = " 1 lakh "

case else: lakhs = lakhs & " lakhs "

end select

select case rupees

case "": rupees = "zero "

case "one": rupees = "one "

case else:

 

 

 

 

rupees = rupees

end select

select case paise

case "": paise = " , paise 0 "

case "one": paise = " , paise 1 "

case else: paise = " , paise " & paise & " "

end select

spellnumber = iif(incrupees, "rupees ", "") & crores & _

lakhs & rupees & paise

end function

' converts number 100-999 text

function gethundreds(byval mynumber)

dim result string

if val(mynumber) = 0 exit function

mynumber = right("000" & mynumber, 3)

' convert hundreds place.

if mid(mynumber, 1, 1) <> "0" then

result = getdigit(mid(mynumber, 1, 1)) & " hundred "

end if

' convert tens , ones place.

if mid(mynumber, 2, 1) <> "0" then

result = result & gettens(mid(mynumber, 2))

else

result = result & getdigit(mid(mynumber, 3))

end if

gethundreds = result

end function

' converts number 10 99 text.

function gettens(tenstext)

dim result string

result = "" ' null out temporary function value.

if val(left(tenstext, 1)) = 1 ' if value between 10-19...

select case val(tenstext)

case 10: result = "ten"

case 11: result = "eleven"

case 12: result = "twelve"

case 13: result = "thirteen"

case 14: result = "fourteen"

case 15: result = "fifteen"

case 16: result = "sixteen"

case 17: result = "seventeen"

case 18: result = "eighteen"

case 19: result = "nineteen"

case else

end select

else ' if value between 20-99...

select case val(left(tenstext, 1))

case 2: result = "twenty "

case 3: result = "thirty "

case 4: result = "forty "

case 5: result = "fifty "

case 6: result = "sixty "

case 7: result = "seventy "

case 8: result = "eighty "

case 9: result = "ninety "

case else

end select

result = result & getdigit _

(right(tenstext, 1)) ' retrieve ones place.

end if

gettens = result

end function

' converts number 1 9 text.

function getdigit(digit)

select case val(digit)

case 1: getdigit = "one"

case 2: getdigit = "two"

case 3: getdigit = "three"

case 4: getdigit = "four"

case 5: getdigit = "five"

case 6: getdigit = "six"

case 7: getdigit = "seven"

case 8: getdigit = "eight"

case 9: getdigit = "nine"

case else: getdigit = ""

end select

end function

it possible write javascript did same thing, yes. cannot use vbscript directly.

More discussions in JavaScript

adobe