pb 获取拼音码_pb汉字转拼音-CSDN博客

global type gf_pym from function_object
end type
forward prototypes
global function string gf_pym (string inputstring)
end prototypes
global function string gf_pym (string inputstring);//=================================================================================
//
// 实现功能        :  返回给定汉字串的每个汉字的拼音字母第一个字母（即声母串）
// 注意事项        :  1. 本功能基于汉字的国标汉字库，对于 GBK 字符不支持
//                   2. 对于汉字串中的非汉字字符，如图形符号或ASCII码，则将保持不变
// 例    如        :  Getfirstletter = of_Getfirstletter("中华人民共和国")
//                   返回值：ZHRMGHG（都为大写）
//
//=================================================================================
 
STRING LETTER,THISLETTER,HZ,PYSTRING,ls_out
INTEGER LETTERLEN,I
LONG QW
	
THISLETTER = TRIM(INPUTSTRING)
LETTERLEN = LEN(THISLETTER)
LETTER = ""
PYSTRING = ""
 
LETTER = FILL("A",36)+FILL("B",196)+FILL("C",245)+FILL("D",196)+FILL("E",28)+FILL("F",131)+&
   		FILL("G",161)+FILL("H",193)+FILL("J",319)+FILL("K",106)+FILL("L",260)+FILL("M",163)+&
			FILL("N",87)+FILL("O",8)+FILL("P",128)+FILL("Q",169)+FILL("R",59)+FILL("S",304)+FILL("T",168)+&
			FILL("W",126)+FILL("X",241)+FILL("Y",324)+FILL("Z",341)+SPACE(11)+&
			"CJWGNSPGCGNE Y BTYYZDXYKYGT JNNJQMBSGZSCYJSYY PGKBZGY YWYKGKLJSWKPJQHY W DZLSGMRYPYWWCCKZNKYYG      "+&
			"TTNJJEYKKZYTCJNMCYLQLYPYQFQRPZSLWBTGKJFYXJWZLTBNCXJJJJZXDTTSQZYCDXXHGCK PHFFSS YBGMXLPBYLL HLX      "+&
			"S ZM JHSOJNGHDZQYKLGJHXGQZHXQGKEZZWYSCSCJXYEYXADZPMDSSMZJZQJYZC J WQJBDZBXGZNZCPWHKXHQKMWFBPBY      "+&
			"DTJZZKQHYLYGXFPTYJYYZPSZLFCHMQSHGMXXSXJ  DCSBBQBEFSJYHXWGZKPYLQBGLDLCCTNMAYDDKSSNGYCSGXLYZAYBN      "+&
			"PTSDKDYLHGYMYLCXPY JNDQJWXQXFYYFJLEJPZRXCCQWQQSBZKYMGPLBMJRQCFLNYMYQMSQYRBCJTHZTQFRXQHXMJJCJLX      "+&
			"XGJMSHZKBSWYEMYLTXFSYDSGLYCJQXSJNQBSCTYHBFTDCYZDJWYGHQFRXWCKQKXEBPTLPXJZSRMEBWHJLBJSLYYSMDXLCL      "+&
			"QKXLHXJRZJMFQHXHWYWSBHTRXXGLHQHFNM YKLDYXZPWLGG MTCFPAJJZYLJTYANJGBJPLQGDZYQYAXBKYSECJSZNSLYZH      "+&
			"ZXLZCGHPXZHZNYTDSBCJKDLZZYFMYDLEBBGQYZKXGLDNDNYSKJSHDLYXBCGHXYPKDQMMZMGMMCLGWZSZXZJFZNMLZZTHCS      "+&
			"YDBDLLSCDDNLKJYKJSYCJLKOHQASDKNHCSGZEHDAASHTCPLCPQYBSDMPJLPZJOQLCDHJJYSPRCHN NNLHLYYQYHWZPTCZG      "+&
			"WWMZFFJQQQQYXACLBHKDJXDGMMYDJXZLLSYGXGKJRYWZWYCLZMSSJZLDBYDCPCXYHLXCHYZJQ  QAGMNYXPFRKSSBJLYXY      "+&
			"SYGLNSCMHSWWMNZJJLXXHCHSY  CTXRYCYXBYHCSMXJSZNPWGPXXTAYBGAJCXLY DCCWZOCWKCCSBNHCPDYZNFCYYTYCKX      "+&
			"KYBSQKKYTQQXFCWCHCYKELZQBSQYJQCCLMTHSYWHMKTLKJLYCXWHYQQHTQH PQ QSCFYMMDMGBWHWLGSLLYSDLMLXPTHMJ      "+&
			"HWLJZYHZJXHTXJLHXRSWLWZJCBXMHZQXSDZPMGFCSGLSXYMQSHXPJXWMYQKSMYPLRTHBXFTPMHYXLCHLHLZYLXGSSSSTCL      "+&
			"SLTCLRPBHZHXYYFHB GDNYCNQQWLQHJJ YWJZYEJJDHPBLQXTQKWHLCHQXAGTLXLJXMSL HTZKZJECXJCJNMFBY SFYWYB      "+&
			"JZGNYSDZSQYRSLJPCLPWXSDWEJBJCBCNAYTWGMPABCLYQPCLZXSBNMSGGFNZJJBZSFZYNDXHPLQKZCZWALSBCCJX YZHWK      "+&
			"YPSGXFZFCDKHJGXDLQFSGDSLQWZKXTMHSBGZMJZRGLYJBPMLMSXLZJQSHZYJ ZYDJWBMJKLDDPMJEGXYHYLXHLQYQHKYCW      "+&
			"CJMYYXNATJHYCCXZPCQLBZWWYTWBQCMLPMYRJCCCXFPZNZZLJPLXXYZTZLGDLDCKLYRZZGQTGJHHGJLJAXFGFJZSLCFDQZ      "+&
			"LCLGJDJCSNCLLJPJQDCCLCJXMYZFTSXGCGSBRZXJQQCTZHGYQTJQQLZXJYLYLBCYAMCSTYLPDJBYREGKJZYZHLYSZQLZNW      "+&
			"CZCLLWJQJJJKDGJZOLBBZPPGLGHTGZXYGHZMYCNQSYCYHBHGXKAMTXYXNBSKYZZGJZLQJDFCJXDYGJQJJPMGWGJJJPKQSB      "+&
			"GBMMCJSSCLPQPDXCDYYKY CJDDYYGYWRHJRTGZNYQLDKLJSZZGZQZJGDYKSHPZMTLCPWNJZFYZDJCNMWESCYGLBTZCGMSS      "+&
			"LLYXQSXSBSJSBBSGGHFJLYPMZJNLYYWDQSHZXTYYWHMZYHYWDBXBTLMSYYYFSXJC TXXLHJHF SXZQHFZMZCZTQCXZXRTT      "+&
			"DJHNNYZQQMNQDMMG YTXMJGDHCDYZBFFALLZTDLTFXMXQZDNGWQDBDCZJDXBZGSQQDDJCMBKZFFXMKDMDSYYSZCMLJDSYN      "+&
			"SPRSKMKMPCKLGDCQTFZSWTFGGLYPLLJZHGJ GYPZLTCSMCNBTJBQFKTHBYZGHPBBYMTDSSXTBNPDKLEYCJNYDDYKZTDHQH      "+&
			"SDZSCTARLLTKZLGECLLKJLQJZQNBDKKGHPJTZQKSECSHALQFMMGJNLYJBBTMLYZXDCJPLDLPCQDHZYCBZSCZBZMSLJFLKR      "+&
			"ZJSNFRGJHXPDHYJYBZGDLJCSEZGXLBLHYXTWMABCHECMWYJYZLLJJYHLG DJLSLYGKDZPZXJYYZLWCXSZFGWYYDLYHCLJS      "+&
			"CMBJHBLYZLYCBLYDPDQYSXQZBYTDKYYJY CNRJMPDJGKLCLJBCTBJDDBBLBLCZQRPPXJCGLZCSHLTOLJNMDDDLNGKAQHQH      "+&
			"JHYKHEZNMSHRP QQJCHGMFPRXHJGDYCHGHLYRZQLCYQJNZSQTKQJYMSZSWLCFQQQZYFGGYPTQWLMCRNFKKFSYYLQBMQAMM      "+&
			"MYXCTPSHCPTXXZZSMPHPSHMCLMLDQFYQFSZYJDJJZZHQPDSZGLSTJBCKBXYQZJSGPSXQZQZRQTBDKYXZKHHGFLBCSMDLDG      "+&
			"DZDBLZYYCXNNCSYBZBFGLZZXSWMSCCMQNJQSBDQSJTXXMBLTXZCLZSHZCXRQJGJYLXZFJPHY ZQQYDFQJJLZZNZJCDGZYG      "+&
			"CTXMZYSCTLKPHTXHTLBJXJLXSCDQXCBBTJFQZFSLTJBTKQBXXJJLJCHCZDBZJDCZJDCPRNPQCJPFCZLCLZXZDMXMPHJSGZ      "+&
			"GSZZQLYLWTJPFSYAXMCJBTZYYCWMYTCSJJLQCQLWZMALBXYFBPNLSFHTGJWEJJXXGLLJSTGSHJQLZFKCGNNDSZFDEQFHBS      "+&
			"AQTGYLBXMMYGSZLDYDQMJJRGBJTKGDHGKBLQKBDMBYLXWCXYTTYBKMRTJZXQJBHLMHMJJZMQASLDCYXYQDLQCAFYWYXQHZ"
 
FOR I = 1 TO LETTERLEN
	IF ASC(MID(THISLETTER,I,1)) > 160 THEN
		HZ = MID(THISLETTER,I,2)
		QW = 100 * ASC(LEFT(HZ,1)) + ASC(RIGHT(HZ,1)) - 17760
		IF QW < 1 THEN
			PYSTRING = PYSTRING + "V"
		ELSE	
			ls_out=MID(LETTER,QW,1)
			if (asc(ls_out)>=65 and asc(ls_out)<=90) or (asc(ls_out)>=97 and asc(ls_out)<=122) or (asc(ls_out)>=48 and asc(ls_out)<=57) then //wxk去除符号
			else
				ls_out=''
			end if 
			PYSTRING = PYSTRING + ls_out
		END IF
		I = I + 1
	ELSE		
		ls_out=MID(THISLETTER,I,1)		
		if (asc(ls_out)>=65 and asc(ls_out)<=90) or (asc(ls_out)>=97 and asc(ls_out)<=122) or (asc(ls_out)>=48 and asc(ls_out)<=57) then //wxk去除符号
		else
			ls_out=''
		end if 
		PYSTRING = PYSTRING + ls_out
	END IF	
NEXT
RETURN TRIM(PYSTRING)
end function