¿Cómo devolver mediante programación la primera letra de un carácter chino? vb
Función privada py(mystr As String) As String 'Obtener el código pinyin de los caracteres chinos
En caso de error, reanudar a continuación
If Asc(mystr) lt; 0 Entonces
If Asc(Left(mystr, 1)) lt; Asc("ah") Entonces
py = "0"
Salir de la función< / p>
End If
If Asc(Left(mystr, 1)) gt; = Asc("Ah") And Asc(Left(mystr, 1)) lt("Ba " ) Entonces
py = "A"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt ; = Asc("Ba") Y Asc(Left(mystr, 1)) lt Asc("wipe") Entonces
py = "B"
Salir de la función< / p>
Fin si
If Asc(Left(mystr, 1)) gt; = Asc("wipe") And Asc(Left(mystr, 1)) lt; " ) Entonces
py = "C"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt ; = Asc("take") Y Asc(Left(mystr, 1)) lt; Asc("moth") Entonces
py = "D"
Salir de la función< / p>
End If
If Asc(Left(mystr, 1)) gt; = Asc("moth") And Asc(Left(mystr, 1)) lt("发) " ) Entonces
py = "E"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt ; = Asc("发") And Asc(Left(mystr, 1)) lt; Asc("噶") Entonces
py = "F"
Salir de la función< / p>
Fin si
If Asc(Left(mystr, 1)) gt; = Asc("噶") And Asc(Left(mystr, 1)) lt("Ha " ) Entonces
py = "G"
Salir de la función
Fin si
Si Asc(
Left(mystr, 1)) gt; = Asc("ha") And Asc(Left(mystr, 1)) lt; Asc("hit") Entonces
py = "H"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt；= Asc("hit") And Asc(Left(mystr, 1) ) lt; Asc("hacer clic") Entonces
py = "J"
Salir de la función
Finalizar si
Si Asc( Left(mystr, 1)) gt; = Asc("K") And Asc(Left(mystr, 1)) lt; Asc("Basura") Entonces
py = "K"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt；= Asc("Garbage") And Asc(Left(mystr, 1) ) lt; Asc("Mamá") Entonces
py = "L"
Salir de la función
Finalizar si
Si Asc( Left(mystr, 1)) gt; = Asc("Mamá") And Asc(Left(mystr, 1)) lt Asc("Take") Entonces
py = "M"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt; = Asc("take") And Asc(Left(mystr, 1) ) lt; Asc("Oh") Entonces
py = "N"
Salir de la función
Finalizar si
Si Asc( Left(mystr, 1)) gt; = Asc("Oh") And Asc(Left(mystr, 1)) lt; Asc("pop") Entonces
py = "O"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt；= Asc("pop") And Asc(Left(mystr, 1) ) lt; Asc("punto") Entonces
py = "P"
Salir de la función
Finalizar si
Si Asc( Left(mystr, 1)) gt; = Asc("period") And Asc(Left(mystr, 1)) lt; Asc("Ran") Entonces
py = "Q"
Función de salida
> End If
If Asc(Left(mystr, 1)) gt; = Asc("Ran") And Asc(Left(mystr, 1)) lt("沙") Entonces
py = "R"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt = Asc( "Spread") y Asc(Left(mystr, 1)) lt; Asc("Collapse") Entonces
py = "S"
Salir de la función
Fin Si
Si Asc(Left(mystr, 1)) gt; = Asc("colapso") And Asc(Left(mystr, 1)) lt("dig") Entonces
py = "T"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt = Asc( "dig") y Asc(Left(mystr, 1)) lt; Asc("西") Entonces
py = "W"
Salir de la función
End If
If Asc(Left(mystr, 1)) gt; = Asc("西") And Asc(Left(mystr, 1)) lt Asc("presión") Entonces
py = "X"
Salir de la función
Finalizar si
If Asc(Left(mystr, 1)) gt = Asc( "presión") y Asc(Left(mystr, 1)) lt; Asc("turn") Entonces
py = "Y"
Salir de la función
Finalizar si
Si Asc(Left(mystr, 1)) gt; = Asc("turn") Entonces
py = "Z"
Salir Función
Finalizar si
Si no
Si UCase(mystr) lt;= "Z" y UCase(mystr) gt;= "A" Entonces
py = UCase(Left(mystr, 1))
Else
py = mystr
Finalizar si
Fin si
Finalizar función
Subcomando privado1_Click()
MsgBox py(Text1.Text)
Fin Sub