pinyin2xhsp(str){
	static spsm:={"ch":"i","sh":"u","zh":"v"}
	static spym:={"iu":"q","ei":"w","er":"e","uan":"r","ue":"t","ve":"t","un":"y","uo":"o","ie":"p","iong":"s","ong":"s","ai":"d","en":"f","eng":"g","ang":"h","an":"j","ing":"k","uai":"k","iang":"l","uang":"l","ou":"z","ia":"x","ua":"x","ao":"c","ui":"v","in":"b","iao":"n","ian":"m"}
	For sm,xh in spsm 												; 声母替换
		str:=RegExReplace(str, "im)(*ANYCRLF)'" sm "([a-z]+')", "'" xh "$1")
	For ym, xh in spym												; 韵母替换
		str:=RegExReplace(str, "im)(*ANYCRLF)('[a-z])" ym "'", "$1" xh "'")
	str:=RegExReplace(str, "im)(*ANYCRLF)'ang'", "'ah'")			; 零声母替换
	str:=RegExReplace(str, "im)(*ANYCRLF)'eng'", "'eg'")
	str:=RegExReplace(str, "im)(*ANYCRLF)'a'", "'aa'")
	str:=RegExReplace(str, "im)(*ANYCRLF)'o'", "'oo'")
	str:=RegExReplace(str, "im)(*ANYCRLF)'e'", "'ee'")
	Return str
}
