// file: // Function Name: GF_GETFIRSTLETTER (STRING) File: // Function: Returns the pinyin of the string, support the mixing string (which can contain non-Chinese characters) file: // parameter: as_inputstringfile: // Return Value: StringFile: // CREATED Datong Hoping DTZHP@yeah.net//long istring LS_CH, LS_RETURnstrFor i = 1 to LEN (AS_INPUTSTRING) FILE: // Processes each character LS_CH = MID (As_InputString, I, 1) IF LS_CH (AS_INPUTSTRING, I, 1) IF LS_CH <"Ah" tell_returnstr = ls_returnstr ls_ch // constant elseif ls_ch> = "Ah" and ls_ch <= "seat" THEN FILE: // Handling Level 1 Chinese Character Choose Case LS_CH Case IS> = ' 'Ls_returnstr = "z" case is> =' pressure 'ls_returnstr = "y" case is> = = "x" case is> =' digroid 'ls_returnstr = "w" case is> = 'Collapse' ls_returnstr = "t" case is> = 'Sa'ls_returnstr = "s" case is> =', 'LS_RETURnstr = "r" case is> =' period 'ls_returnstr = "q" Case IS > = '' Ls_returnstr = "p" case is> = 'oh' ls_returnstr = "o" Case IS> = ' Ls_returnstr = "n" case is> = 'mother' ls_returnstr = "m" case is> = '= "l" case is> =' 'ls_returnstr = "k" Case IS> =' Hit 'LS_RETURNSTR
= "j" case is> = 'ha' ls_returnstr = "h" case is> = '噶' ls_returnstr = "g" case is> = 'send' ls_returnstr = "f" Case IS> = 'moth' Ls_returnstr = "e" Case IS> = 'Take' LS_RETURnstr = "D" Case IS> = 'Wipe' LS_RETURnstr = "C" Case IS> = 'Bar' LS_RETURnstr = "B" Case IS> = ' Ah 'LS_RETURnstr = "a" end choose // elseif ls_ch> "seat" Then file: // Handling a first-class Chinese character // select py int: ls_py from piyin where hanzi =: ls_ch; end if // i = i 1 file: // PB8 does not need this sentence, and PB65 is used, pointing to the next Chinese
Next Return Ls_Returnstr