According to the current characteristics of my country's financial bill, there is still a need for a capital bill. I now use PB to write a function of RMB uppercase. You only need to take out the renminbi lowercase data value in your data window, use my function to convert it into a capital method, and then assign it to an item of the data window.
String Jet, DXS, XXS, JEW1, JEW2, JEW, JEQ, JEB, JES, JEG, JEJ, JEF Long LS, LSS STRING JEDX
Jet = string (yjk) LS = LEN (JET) LSS = 10 - LS Jet = Space (LSS) Jet
DXS = 'zero 壹 叁 肆 伍 柒捌 /' xxs = '0123456789' jew2 = MID (Jet, 1, 1) Jew1 = MID (Jet, 2, 1) Jew = MID (Jet, 3, 1) JEQ = MID (JET, 4, 1) JEB = MID (Jet, 5, 1) JES = MID (JET, 6, 1) JEG = MID (Jet, 7, 1) JEJ = MID (Jet, 9, 1) JEF = MID (Jet, 10, 1) Jew2 = MID (DXS, POS (XXXS, JEW2) * 2 - 1, 2) "" jew1 = MID (DXS, POS (XXS, Jew1) * 2 - 1, 2) "Pick up" Jew = MID (DXS, POS (XXS, JEW) * 2 - 1, 2) "Wan" JEQ = MID (DXS, POS (XXS, JEQ) * 2 - 1, 2) "仟 "Jeb = MID (DXS, POS (XXS, JEB) * 2 - 1, 2) " "jes = MID (DXS, POS (XXS, JES) * 2 - 1, 2) " Pick "JEG = MID (DXS, POS (XXS, JEG) * 2 - 1, 2) "Yuan" JEJ = MID (DXS, POS (XXS, JEJ) * 2 - 1, 2) "Corner" JEF = MID (DXS, POS (XXS, JEF) * 2 - 1, 2) "Division"
JEDX = JEW1 JEW JEQ JEB JES JEG JEJ JEF RETURN JEDX