¿Alguien sabe cómo utilizar el script VBS para leer números matemáticos en chino? Se requiere el código completo y la explicación. Gracias

y=n

'El siguiente código convierte números al chino

sz=Split("0, 1, 2, 3, 4, 5, 6 ,7,8,9",",")

hz=Split("cero, uno, dos, tres, cuatro, cinco, seis, siete, ocho, nueve",",")

Para i=0 a 9

n=Reemplazar(n, sz(i), hz(i))

Siguiente

'El siguiente código suma unidades a números chinos por posición

dw="Miles, miles de millones, miles de millones, centenas, miles, centenas y centenas"

h=Len(n)

Para i=1 A h

s=s amp; Mid(n,i,1) amp; Siguiente

'El siguiente código maneja los ceros en los números para que cumplan con la pronunciación habitual,

'Por ejemplo: mil ochenta, debería convertirse en: mil ochenta, eso es Cero cien debe reemplazarse con cero

m=Split("Cero diez, cero, cero cien, cero, cero mil, cero, cero cero cero, cero, cero cero, cero, cero mil millones, mil millones , cero Diez mil, diez mil, miles de millones, miles de millones",",") 'Pide una explicación

For i=0 To 14 Paso 2 'Pide una explicación

s =Reemplazar(s, m( i), m(i 1)) 'Por favor explique

Siguiente

'El siguiente código maneja la situación donde el número termina en cero:

'Por ejemplo: mil ciento ochenta, para convertirse en: mil ciento ochenta, elimina el último cero

If Len(n)lt;gt;1 And Right( s, 1)="cero" Entonces s=Izquierda(s, Len(s)-1) 'Por favor explica

Si Izquierda(s, 2)="一十" Entonces s=Derecha(s , Len(s)-1)

jx=MsgBox ("El número que ingresó es: " amp; y amp; vbCrLf amp; " se lee como: " amp; s amp; vbCrLf amp; " ¿Quieres continuar?", vbYesNo 32 4096, " Mensaje del sistema")

Si jx=vbno Entonces WScript.quit

s=""