银行系统中EBCDIC同GBK互转，Java的实现
?
银行系统中有的核心Core banking采用AS/400系统，而AS/400采用EBCDIC编码，所以渠道整合的时候就会涉及到转码的问题。避免冷僻字的问题， 采用GBK字符集
?
package com.ebcdic;import java.io.BufferedReader;import java.io.ByteArrayOutputStream;import java.io.IOException;import java.io.InputStream;import java.io.InputStreamReader;import java.io.OutputStream;import java.io.UnsupportedEncodingException;import java.util.LinkedList;import java.util.Queue;import java.util.TreeMap;/** * * @author Kevin * @since jdk1.5 * */public class EbcdicGbkConverter {final static String GBK_FILE="GBK_CVT.txt";final static String ebcdicCharsetName="Cp1047";private static TreeMap <Character,Integer> gbk2Ebcdic=new TreeMap<Character,Integer> ();private static TreeMap <Integer,Character> ebcdic2Gbk=new TreeMap<Integer,Character> ();private static char gbk2EbcdicChar[] ;private static int gbk2EbcdicInt[];private static char ebcdic2GbkChar[] ;private static int ebcdic2GbkInt[];static {try {initEbcdicGBKMapping();} catch (IOException e) {// TODO Auto-generated catch blocke.printStackTrace();}}/** * Initial the EBCDIC and GBK mapping * @throws IOException */private static void initEbcdicGBKMapping() throws IOException{InputStream input=EbcdicGbkConverter.class.getResource(GBK_FILE).openStream();BufferedReader reader=new BufferedReader(new InputStreamReader(input));String record;while((record=reader.readLine())!=null){char gbkChar=record.charAt(0);String ebcdicChar=record.substring(1, 5);Integer ebcdicInt=Integer.valueOf(ebcdicChar,16);gbk2Ebcdic.put(gbkChar, ebcdicInt);ebcdic2Gbk.put(ebcdicInt, gbkChar);}gbk2EbcdicChar=new char[gbk2Ebcdic.size()];gbk2EbcdicInt=new int[gbk2Ebcdic.size()];int index=0;for(Character c:gbk2Ebcdic.keySet()){gbk2EbcdicChar[index]=c.charValue();gbk2EbcdicInt[index++]=gbk2Ebcdic.get(c).intValue();}ebcdic2GbkChar=new char[ebcdic2Gbk.size()];ebcdic2GbkInt=new int[ebcdic2Gbk.size()];index=0;for(Integer i:ebcdic2Gbk.keySet()){ebcdic2GbkChar[index]=ebcdic2Gbk.get(i).charValue();ebcdic2GbkInt[index++]=i.intValue();}}private static boolean isEnglishChar(char c){if(c <0xFF )return true;elsereturn false;}/** * convert the string into EBCDIC format * @throws IOException */public static byte[] stringToEbcdic(String data) throws IOException{ByteArrayOutputStream out=new ByteArrayOutputStream();char dataChar[]=data.toCharArray();Queue<Integer> gbkQueue= new LinkedList<Integer>();String eng;for(int i=0;i<dataChar.length;i++){char c=dataChar[i];if(isEnglishChar(c)){if(gbkQueue.size()>0){readGBKQueue(out,gbkQueue);}eng=new String(new char[]{c});byte buff[]=eng.getBytes(ebcdicCharsetName);out.write(buff);}else{//the Dichotomy is faster than hash table//seaqueue.add(gbk2Ebcdic.get(c));//Add the Chinese Character in the queue firstgbkQueue.add(midSearch(c));}}if(gbkQueue.size()>0){readGBKQueue(out,gbkQueue);}return out.toByteArray();}/** * The Chinese character start with '0x0e' and end with '0x0f' in EBCDIC character set * @param out * @param queue * @throws IOException */private static void readGBKQueue(OutputStream out,Queue <Integer>queue) throws IOException{out.write(0x0e);Integer data;while((data=queue.poll())!=null){int dataInt=data.intValue();out.write((dataInt>>8)&0xff);out.write(dataInt&0xff);}out.write(0x0f);}/** * Dichotomy to search * @param c * @return */private static int midSearch(char c){int start=0;int end=gbk2EbcdicChar.length-1;while(start<=end){int mid=(start+end)>>1;char midChar=gbk2EbcdicChar[mid];if(c>midChar){start=mid +1 ;}else if(c<midChar){end=mid -1 ;}else{return gbk2EbcdicInt[mid];}}return -1;}/** * Dichotomy to search * @param c * @return */private static char midSearchEbcdicToGBK(int c){int start=0;int end=ebcdic2GbkInt.length-1;while(start<=end){int mid=(start+end)>>1;int midValue=ebcdic2GbkInt[mid];if(c>midValue){start=mid +1 ;}else if(c<midValue){end=mid -1 ;}else{return ebcdic2GbkChar[mid];}}return ' ';}/** * Convert the EBCDIC to GBK format String * @param data * @return * @throws UnsupportedEncodingException */public static String ebcdicToGBK(byte data[]) throws UnsupportedEncodingException{Queue<Integer> ebcdicQueue= new LinkedList<Integer>();StringBuffer buff=new StringBuffer();for(int i=0;i<data.length;i++){int b=data[i]&0xff;if(b==0x0e){ebcdicQueue.add(data[++i]&0xff);}else if(b==0x0f){readEbcdicQueue(buff,ebcdicQueue);}else{if(ebcdicQueue.size()==0)buff.append(new String(new byte[]{data[i]}, ebcdicCharsetName));elseebcdicQueue.add(data[i]&0xff);}}return buff.toString();}private static void readEbcdicQueue(StringBuffer buff,Queue <Integer>ebcdicQueue){Integer data1;while((data1=ebcdicQueue.poll())!=null){int data2=ebcdicQueue.poll();int data=(data1<<8)+data2;char c=midSearchEbcdicToGBK(data);buff.append(c);}}/** * Convert the string to 16 Radix format */ public static String str2HexStr(String str) { return byte2HexStr(str.getBytes()); } public static String byte2HexStr(byte data[]) { char[] chars = "0123456789abcdef".toCharArray(); StringBuilder sb = new StringBuilder(""); byte[] bs = data; int bit; for (int i = 0; i < bs.length; i++) { bit = (bs[i] & 0x0f0) >> 4; sb.append(chars[bit]); bit = bs[i] & 0x0f; sb.append(chars[bit]); sb.append(" "); } return sb.toString(); } /** * @param args * @throws IOException */public static void main(String[] args) throws IOException {// TODO Auto-generated method stubEbcdicGbkConverter con=new EbcdicGbkConverter();byte buff[]=null;buff=EbcdicGbkConverter.stringToEbcdic("AS400 Ebcdic Converter Testing");System.out.println("EBCDIC:["+byte2HexStr(buff)+"]");String st=EbcdicGbkConverter.ebcdicToGBK(buff);System.out.println("Eng:"+st);buff=EbcdicGbkConverter.stringToEbcdic("AS400 Ebcdic Converter Testing 冷僻字测试-镕");System.out.println("EBCDIC:["+byte2HexStr(buff)+"]");st=EbcdicGbkConverter.ebcdicToGBK(buff);System.out.println("GBK:"+st);}}?
备注：
GBK_CVT.txt 文件
国4d9bb9fa
第一位：中文字符
第二位到第五位：16进制的EBCDIC码
第六位到第九位：16进制的GBK码
?
附录： GBK同EBCDIC的对应表文件GBK_CVT.txt 从如下URL下载
http://www.900.ibm.com/cn/support/viewdoc/detail?DocId=2222001000000?
?
?