文件一键上传、汉字转拼音、excel文件上传下载功能模块的实现

----------------------------------------------------------------------------------------------
[版权申明:本文系作者原创,转载请注明出处] 
文章出处: http://blog.csdn.net/sdksdk0/article/details/52557755
作者:朱培      ID:sdksdk0     

--------------------------------------------------------------------------------------------


今天要分享的功能是一键上传excel文件,然后显示在页面中,以及将网页上的数据已excel文件的形式下载下来。使用的是Apache的POI,本文分享的实例是SSH框架完成的一个项目中的一个功能模块之一,使用了Maven,所以相关的jar包都贴出了maven的相关jar坐标。因为这个项目设计了很多ssh的配置,这里本文就不在一一列出,只写了关键的代码,文末提供源码下载,希望可以帮助到有需要的开发者。

一、POI简介

Apache POI 是用Java编写的免费开源的跨平台的 Java API,Apache POI提供API给Java程式对Microsoft Office格式档案读和写的功能。POI为“Poor Obfuscation Implementation”的首字母缩写,意为“可怜的模糊实现”。
Apache POI 是创建和维护操作各种符合Office Open XML(OOXML)标准和微软的OLE 2复合文档格式(OLE2)的Java API。用它可以使用Java读取和创建,修改MS Excel文件.而且,还可以使用Java读取和创建MS Word和MSPowerPoint文件。Apache POI 提供Java操作Excel解决方案(适用于Excel97-2008)。



网址是http://poi.apache.org/,我们可以通过添加maven倚赖的方式下载,poi的坐标是:


		<dependency>
			<groupId>org.apache.poi</groupId>
			<artifactId>poi</artifactId>
			<version>3.9</version>
		</dependency>


二、实例准备


页面效果如下:

(这里的数据我是随便写的,仅作为参考数据,不是真实数据)



通过点击页面上的批量导入按钮,可以实现界面无刷新一次性导入写好的数据。我们先excel中准备好数据:注意的是在excel中的数字都要改为文本格式的,不能是“常规",否则导入会失败的。




三、一键上传

jsp页面代码:

需要先导入:jquery.ocupload-1.1.2.js

然后再页面中给你的按钮的id添加upload的方法。  (以下片段在文末项目中的位置是:/BOS/src/main/webapp/WEB-INF/pages/base/region.jsp)

		// 对批量导入添加一键上传效果 
		$('#button-import').upload({
			name : 'upload', 
			action : '${pageContext.request.contextPath}/region_OCimport', // 表单提交路径
			onComplete : function(response){
				var data = eval("("+response+")");
				$.messager.alert('信息',data.msg,'info');
				$('#grid').datagrid('reload');
			}
		});

这个我转到的是Action中:

这里的话我就是加了pinyin4j来将汉字转为拼音,这样的话做的就是简码了;

在pom.xml中添加maven依赖:(以下片段在文末项目中的位置是:/BOS/pom.xml)


		<dependency>
			<groupId>com.belerweb</groupId>
			<artifactId>pinyin4j</artifactId>
			<version>2.5.0</version>
		</dependency>

在Action中处理:(以下片段在文末项目中的位置是:/BOS/src/main/java/cn/tf/bos/web/action/bc/RegionAction.java)

//接收上传的数据
	public String OCimport() throws IOException{
		
		// 1、 工作薄对象
		HSSFWorkbook hssfWorkbook = new HSSFWorkbook(new FileInputStream(upload));
		// 解析工作薄
		hssfWorkbook.setMissingCellPolicy(Row.CREATE_NULL_AS_BLANK); // 避免空指针异常
			
		// 2、 获得Sheet
		HSSFSheet sheet = hssfWorkbook.getSheetAt(0); // 获得第一个sheet


		// 3、遍历每一行
		for (Row row : sheet) {
	
			if (row.getRowNum() == 0) {
				continue;
			}
			// 从第二行 开始解析
			Region region = new Region();
			String id = row.getCell(0).getStringCellValue(); // 获得第一个单元格信息
			if (id.trim().equals("")) {
				// id 无值,跳过
				continue;
			}
			region.setId(id);
			region.setProvince(row.getCell(1).getStringCellValue());
			region.setCity(row.getCell(2).getStringCellValue());
			region.setDistrict(row.getCell(3).getStringCellValue());
			region.setPostcode(row.getCell(4).getStringCellValue());
			
			//使用pinyin4j生成编码和简码
			String str=region.getProvince()+region.getCity()+region.getDistrict();
			str=str.replaceAll("省", "").replaceAll("市", "").replaceAll("区", "").replaceAll("县", "");
			String[]  arr=PinYin4jUtils.getHeadByString(str);
			StringBuffer sb = new StringBuffer();
			for (String headChar : arr) {
				sb.append(headChar);
			}
			region.setShortcode(sb.toString()); // 简码

			// 生成城市编码
			region.setCitycode(PinYin4jUtils.hanziToPinyin(region.getCity(), ""));
			
			//保存数据时出错
			try {
				regionService.saveRegion(region);
			} catch (Exception e) {
				// 导入region失败,记录日志
				LOG.error("区域导入失败,编号:" + region.getId(), e);
			}
			
		}
		
		//返回json
		Map<String,Object>  map=new HashMap<String,Object>();
		map.put("result", "success");
		map.put("msg", "区域导入完成");
		ActionContext.getContext().put("map", map);
		
		return "OCimport";
	}
	
	
	private File upload;
	public void setUpload(File upload) {
		this.upload = upload;
	}
	


汉字转换为拼音的工具类为:(以下片段在文末项目中的位置是:/BOS/src/main/java/cn/tf/bos/utils/PinYin4jUtils.java)


public class PinYin4jUtils {
	/**
	 * 将字符串转换成拼音数组
	 * 
	 * @param src
	 * @return
	 */
	public static String[] stringToPinyin(String src) {
		return stringToPinyin(src, false, null);
	}

	/**
	 * 将字符串转换成拼音数组
	 * 
	 * @param src
	 * @return
	 */
	public static String[] stringToPinyin(String src, String separator) {

		return stringToPinyin(src, true, separator);
	}

	/**
	 * 将字符串转换成拼音数组
	 * 
	 * @param src
	 * @param isPolyphone
	 *            是否查出多音字的所有拼音
	 * @param separator
	 *            多音字拼音之间的分隔符
	 * @return
	 */
	public static String[] stringToPinyin(String src, boolean isPolyphone,
			String separator) {
		// 判断字符串是否为空
		if ("".equals(src) || null == src) {
			return null;
		}
		char[] srcChar = src.toCharArray();
		int srcCount = srcChar.length;
		String[] srcStr = new String[srcCount];

		for (int i = 0; i < srcCount; i++) {
			srcStr[i] = charToPinyin(srcChar[i], isPolyphone, separator);
		}
		return srcStr;
	}

	/**
	 * 将单个字符转换成拼音
	 * 
	 * @param src
	 * @return
	 */
	public static String charToPinyin(char src, boolean isPolyphone,
			String separator) {
		// 创建汉语拼音处理类
		HanyuPinyinOutputFormat defaultFormat = new HanyuPinyinOutputFormat();
		// 输出设置,大小写,音标方式
		defaultFormat.setCaseType(HanyuPinyinCaseType.LOWERCASE);
		defaultFormat.setToneType(HanyuPinyinToneType.WITHOUT_TONE);

		StringBuffer tempPinying = new StringBuffer();

		// 如果是中文
		if (src > 128) {
			try {
				// 转换得出结果
				String[] strs = PinyinHelper.toHanyuPinyinStringArray(src,
						defaultFormat);

				// 是否查出多音字,默认是查出多音字的第一个字符
				if (isPolyphone && null != separator) {
					for (int i = 0; i < strs.length; i++) {
						tempPinying.append(strs[i]);
						if (strs.length != (i + 1)) {
							// 多音字之间用特殊符号间隔起来
							tempPinying.append(separator);
						}
					}
				} else {
					tempPinying.append(strs[0]);
				}

			} catch (BadHanyuPinyinOutputFormatCombination e) {
				e.printStackTrace();
			}
		} else {
			tempPinying.append(src);
		}

		return tempPinying.toString();

	}

	public static String hanziToPinyin(String hanzi) {
		return hanziToPinyin(hanzi, " ");
	}

	/**
	 * 将汉字转换成拼音
	 * 
	 * @param hanzi
	 * @param separator
	 * @return
	 */
	public static String hanziToPinyin(String hanzi, String separator) {

		// 创建汉语拼音处理类
		HanyuPinyinOutputFormat defaultFormat = new HanyuPinyinOutputFormat();
		// 输出设置,大小写,音标方式
		defaultFormat.setCaseType(HanyuPinyinCaseType.LOWERCASE);
		defaultFormat.setToneType(HanyuPinyinToneType.WITHOUT_TONE);

		String pinyingStr = "";
		try {
			pinyingStr = PinyinHelper.toHanyuPinyinString(hanzi, defaultFormat,
					separator);
		} catch (BadHanyuPinyinOutputFormatCombination e) {
			// TODO Auto-generated catch block
			e.printStackTrace();
		}
		return pinyingStr;
	}

	/**
	 * 将字符串数组转换成字符串
	 * 
	 * @param str
	 * @param separator
	 *            各个字符串之间的分隔符
	 * @return
	 */
	public static String stringArrayToString(String[] str, String separator) {
		StringBuffer sb = new StringBuffer();
		for (int i = 0; i < str.length; i++) {
			sb.append(str[i]);
			if (str.length != (i + 1)) {
				sb.append(separator);
			}
		}
		return sb.toString();
	}

	/**
	 * 简单的将各个字符数组之间连接起来
	 * 
	 * @param str
	 * @return
	 */
	public static String stringArrayToString(String[] str) {
		return stringArrayToString(str, "");
	}

	/**
	 * 将字符数组转换成字符串
	 * 
	 * @param str
	 * @param separator
	 *            各个字符串之间的分隔符
	 * @return
	 */
	public static String charArrayToString(char[] ch, String separator) {
		StringBuffer sb = new StringBuffer();
		for (int i = 0; i < ch.length; i++) {
			sb.append(ch[i]);
			if (ch.length != (i + 1)) {
				sb.append(separator);
			}
		}
		return sb.toString();
	}

	/**
	 * 将字符数组转换成字符串
	 * 
	 * @param str
	 * @return
	 */
	public static String charArrayToString(char[] ch) {
		return charArrayToString(ch, " ");
	}

	/**
	 * 取汉字的首字母
	 * 
	 * @param src
	 * @param isCapital
	 *            是否是大写
	 * @return
	 */
	public static char[] getHeadByChar(char src, boolean isCapital) {
		// 如果不是汉字直接返回
		if (src <= 128) {
			return new char[] { src };
		}
		// 获取所有的拼音
		String[] pinyingStr = PinyinHelper.toHanyuPinyinStringArray(src);

		// 创建返回对象
		int polyphoneSize = pinyingStr.length;
		char[] headChars = new char[polyphoneSize];
		int i = 0;
		// 截取首字符
		for (String s : pinyingStr) {
			char headChar = s.charAt(0);
			// 首字母是否大写,默认是小写
			if (isCapital) {
				headChars[i] = Character.toUpperCase(headChar);
			} else {
				headChars[i] = headChar;
			}
			i++;
		}

		return headChars;
	}

	/**
	 * 取汉字的首字母(默认是大写)
	 * 
	 * @param src
	 * @return
	 */
	public static char[] getHeadByChar(char src) {
		return getHeadByChar(src, true);
	}

	/**
	 * 查找字符串首字母
	 * 
	 * @param src
	 * @return
	 */
	public static String[] getHeadByString(String src) {
		return getHeadByString(src, true);
	}

	/**
	 * 查找字符串首字母
	 * 
	 * @param src
	 * @param isCapital
	 *            是否大写
	 * @return
	 */
	public static String[] getHeadByString(String src, boolean isCapital) {
		return getHeadByString(src, isCapital, null);
	}

	/**
	 * 查找字符串首字母
	 * 
	 * @param src
	 * @param isCapital
	 *            是否大写
	 * @param separator
	 *            分隔符
	 * @return
	 */
	public static String[] getHeadByString(String src, boolean isCapital,
			String separator) {
		char[] chars = src.toCharArray();
		String[] headString = new String[chars.length];
		int i = 0;
		for (char ch : chars) {

			char[] chs = getHeadByChar(ch, isCapital);
			StringBuffer sb = new StringBuffer();
			if (null != separator) {
				int j = 1;

				for (char ch1 : chs) {
					sb.append(ch1);
					if (j != chs.length) {
						sb.append(separator);
					}
					j++;
				}
			} else {
				sb.append(chs[0]);
			}
			headString[i] = sb.toString();
			i++;
		}
		return headString;
	}
}


在struts.xml中配置返回:(以下片段在文末项目中的位置是:/BOS/src/main/resources/struts.xml)

		<action name="region_*"  class="regionAction"  method="{1}">
			<result  name="OCimport" type="json">
				<param name="root">map</param>
			</result>   </action>

这样的话就全部实现了上传的功能了。

四、文件下载

接下来说一下下载的功能:

例如我们要将这个页面中的内容变为excel文件下载下来。




在下载的jsp页面中:

点击按钮触发这个下载的函数,我们有一个函数:点击后跳转到action中。(以下片段在文末项目中的位置是:/BOS/src/main/webapp/WEB-INF/pages/base/subarea.jsp)

	function doExport(){
		location.href="${pageContext.request.contextPath}/subarea_exportFile";
	}

在action中:(以下片段在文末项目中的位置是:/BOS/src/main/java/cn/tf/bos/web/action/bc/SubareaAction.java)


	public String exportFile() throws IOException{
		// 对文件名进行编码
		String downloadFileName = "分区数据.xls";
		// 获得用户使用浏览器类型
		String agent = ServletActionContext.getRequest().getHeader("user-agent");

		// 对下载文件名编码
		downloadFileName = FileUtils.encodeDownloadFilename(downloadFileName, agent);
		// 将结果放入值栈
		ActionContext.getContext().put("downloadFileName", downloadFileName);

		return "exportFile";
	}
	
	
	//文件下载流
	public InputStream  getInputStream() throws IOException{
		PageResponseBean pageResponseBean=(PageResponseBean) ServletActionContext.getRequest().getSession().getAttribute("pageResponseBean");
		List<Subarea>  subareas=pageResponseBean.getRows();
		
		HSSFWorkbook  hssfWorkbook=new HSSFWorkbook();
		
		HSSFSheet sheet=hssfWorkbook.createSheet("分区数据");
		HSSFRow  headRow=sheet.createRow(0);
		headRow.createCell(0).setCellValue("分区编号");
		headRow.createCell(1).setCellValue("关键字");
		headRow.createCell(2).setCellValue("起始号");
		headRow.createCell(3).setCellValue("结束号");
		headRow.createCell(4).setCellValue("是否区分单双号号");
		headRow.createCell(5).setCellValue("位置信息");

		// 向excel写数据
		for (Subarea subarea : subareas) {
			// 每个分区一行
			HSSFRow dataRow = sheet.createRow(sheet.getLastRowNum() + 1);
			dataRow.createCell(0).setCellValue(subarea.getId());
			dataRow.createCell(1).setCellValue(subarea.getAddresskey());
			dataRow.createCell(2).setCellValue(subarea.getStartnum());
			dataRow.createCell(3).setCellValue(subarea.getEndnum());
			dataRow.createCell(4).setCellValue(subarea.getSingle());
			dataRow.createCell(5).setCellValue(subarea.getPosition());
		}
		
		// 将数据缓存到字节数组
		ByteArrayOutputStream arrayOutputStream = new ByteArrayOutputStream();
		hssfWorkbook.write(arrayOutputStream);
		arrayOutputStream.close();
		byte[] data = arrayOutputStream.toByteArray();

		// 再通过字节数组输入流读取数据
		return new ByteArrayInputStream(data);

	}
	


在struts.xml中配置:

<result name="exportFile"  type="stream">
					<param name="contentType">application/vnd.ms-excel</param>
					<param name="contentDisposition">attachment;filename=${downloadFileName}</param>
				</result>


这样我们就可以把数据下载出来了:




总结:文本使用的都是非常经典的技术来实现了文件一键上传、汉字转拼音、文件上传、文件下载的功能,具有非常好的实际意义,属于开发者必备技能之一。


项目地址:https://github.com/sdksdk0/BOS  







excle 汉字拼音,把下面的代码拷贝到excel->工具-》宏-->Vb编辑器中即可: Dim d As Object Function InitDictinary() Set d = CreateObject("Scripting.Dictionary") d.Add "A", -20319 d.Add "Ai", -20317 d.Add "An", -20304 d.Add "Ang", -20295 d.Add "Ao", -20292 d.Add "Ba", -20283 d.Add "Bai", -20265 d.Add "Ban", -20257 d.Add "Bang", -20242 d.Add "Bao", -20230 d.Add "Bei", -20051 d.Add "Ben", -20036 d.Add "Beng", -20032 d.Add "Bi", -20026 d.Add "Bian", -20002 d.Add "Biao", -19990 d.Add "Bie", -19986 d.Add "Bin", -19982 d.Add "Bing", -19976 d.Add "Bo", -19805 d.Add "Bu", -19784 d.Add "Ca", -19775 d.Add "Cai", -19774 d.Add "Can", -19763 d.Add "Cang", -19756 d.Add "Cao", -19751 d.Add "Ce", -19746 d.Add "Ceng", -19741 d.Add "Cha", -19739 d.Add "Chai", -19728 d.Add "Chan", -19725 d.Add "Chang", -19715 d.Add "Chao", -19540 d.Add "Che", -19531 d.Add "Chen", -19525 d.Add "Cheng", -19515 d.Add "Chi", -19500 d.Add "Chong", -19484 d.Add "Chou", -19479 d.Add "Chu", -19467 d.Add "Chuai", -19289 d.Add "Chuan", -19288 d.Add "Chuang", -19281 d.Add "Chui", -19275 d.Add "Chun", -19270 d.Add "Chuo", -19263 d.Add "Ci", -19261 d.Add "Cong", -19249 d.Add "Cou", -19243 d.Add "Cu", -19242 d.Add "Cuan", -19238 d.Add "Cui", -19235 d.Add "Cun", -19227 d.Add "Cuo", -19224 d.Add "Da", -19218 d.Add "Dai", -19212 d.Add "Dan", -19038 d.Add "Dang", -19023 d.Add "Dao", -19018 d.Add "De", -19006 d.Add "Deng", -19003 d.Add "Di", -18996 d.Add "Dian", -18977 d.Add "Diao", -18961 d.Add "Die", -18952 d.Add "Ding", -18783 d.Add "Diu", -18774 d.Add "Dong", -18773 d.Add "Dou", -18763 d.Add "Du", -18756 d.Add "Duan", -18741 d.Add "Dui", -18735 d.Add "Dun", -18731 d.Add "Duo", -18722 d.Add "E", -18710 d.Add "En", -18697 d.Add "Er", -18696 d.Add "Fa", -18526 d.Add "Fan", -18518 d.Add "Fang", -18501 d.Add "Fei", -18490 d.Add "Fen", -18478 d.Add "Feng", -18463 d.Add "Fo", -18448 d.Add "Fou", -18447 d.Add "Fu", -18446 d.Add "Ga", -18239 d.Add "Gai", -18237 d.Add "Gan", -18231 d.Add "Gang", -18220 d.Add "Gao", -18211 d.Add "Ge", -18201 d.Add "Gei", -18184 d.Add "Gen", -18183 d.Add "Geng", -18181 d.Add "Gong", -18012 d.Add "Gou", -17997 d.Add "Gu", -17988 d.Add "Gua", -17970 d.Add "Guai", -17964 d.Add "Guan", -17961 d.Add "Guang", -17950 d.Add "Gui", -17947 d.Add "Gun", -17931 d.Add "Guo", -17928 d.Add "Ha", -17922 d.Add "Hai", -17759 d.Add "Han", -17752 d.Add "Hang", -17733 d.Add "Hao", -17730 d.Add "He", -17721 d.Add "Hei", -17703 d.Add "Hen", -17701 d.Add "Heng", -17697 d.Add "Hong", -17692 d.Add "Hou", -17683 d.Add "Hu", -17676 d.Add "Hua", -17496 d.Add "Huai", -17487 d.Add "Huan", -17482 d.Add "Huang", -17468 d.Add "Hui", -17454 d.Add "Hun", -17433 d.Add "Huo", -17427 d.Add "Ji", -17417 d.Add "Jia", -17202 d.Add "Jian", -17185 d.Add "Jiang", -16983 d.Add "Jiao", -16970 d.Add "Jie", -16942 d.Add "Jin", -16915 d.Add "Jing", -16733 d.Add "Jiong", -16708 d.Add "Jiu", -16706 d.Add "Ju", -16689 d.Add "Juan", -16664 d.Add "Jue", -16657 d.Add "Jun", -16647 d.Add "Ka", -16474 d.Add "Kai", -16470 d.Add "Kan", -16465 d.Add "Kang", -16459 d.Add "Kao", -16452 d.Add "Ke", -16448 d.Add "Ken", -16433 d.Add "Keng", -16429 d.Add "Kong", -16427 d.Add "Kou", -16423 d.Add "Ku", -16419 d.Add "Kua", -16412 d.Add "Kuai", -16407 d.Add "Kuan", -16403 d.Add "Kuang", -16401 d.Add "Kui", -16393 d.Add "Kun", -16220 d.Add "Kuo", -16216 d.Add "La", -16212 d.Add "Lai", -16205 d.Add "Lan", -16202 d.Add "Lang", -16187 d.Add "Lao", -16180 d.Add "Le", -16171 d.Add "Lei", -16169 d.Add "Leng", -16158 d.Add "Li", -16155 d.Add "Lia", -15959 d.Add "Lian", -15958 d.Add "Liang", -15944 d.Add "Liao", -15933 d.Add "Lie", -15920 d.Add "Lin", -15915 d.Add "Ling", -15903 d.Add "Liu", -15889 d.Add "Long", -15878 d.Add "Lou", -15707 d.Add "Lu", -15701 d.Add "Lv", -15681 d.Add "Luan", -15667 d.Add "Lue", -15661 d.Add "Lun", -15659 d.Add "Luo", -15652 d.Add "Ma", -15640 d.Add "Mai", -15631 d.Add "Man", -15625 d.Add "Mang", -15454 d.Add "Mao", -15448 d.Add "Me", -15436 d.Add "Mei", -15435 d.Add "Men", -15419 d.Add "Meng", -15416 d.Add "Mi", -15408 d.Add "Mian", -15394 d.Add "Miao", -15385 d.Add "Mie", -15377 d.Add "Min", -15375 d.Add "Ming", -15369 d.Add "Miu", -15363 d.Add "Mo", -15362 d.Add "Mou", -15183 d.Add "Mu", -15180 d.Add "Na", -15165 d.Add "Nai", -15158 d.Add "Nan", -15153 d.Add "Nang", -15150 d.Add "Nao", -15149 d.Add "Ne", -15144 d.Add "Nei", -15143 d.Add "Nen", -15141 d.Add "Neng", -15140 d.Add "Ni", -15139 d.Add "Nian", -15128 d.Add "Niang", -15121 d.Add "Niao", -15119 d.Add "Nie", -15117 d.Add "Nin", -15110 d.Add "Ning", -15109 d.Add "Niu", -14941 d.Add "Nong", -14937 d.Add "Nu", -14933 d.Add "Nv", -14930 d.Add "Nuan", -14929 d.Add "Nue", -14928 d.Add "Nuo", -14926 d.Add "O", -14922 d.Add "Ou", -14921 d.Add "Pa", -14914 d.Add "Pai", -14908 d.Add "Pan", -14902 d.Add "Pang", -14894 d.Add "Pao", -14889 d.Add "Pei", -14882 d.Add "Pen", -14873 d.Add "Peng", -14871 d.Add "Pi", -14857 d.Add "Pian", -14678 d.Add "Piao", -14674 d.Add "Pie", -14670 d.Add "Pin", -14668 d.Add "Ping", -14663 d.Add "Po", -14654 d.Add "Pu", -14645 d.Add "Qi", -14630 d.Add "Qia", -14594 d.Add "Qian", -14429 d.Add "Qiang", -14407 d.Add "Qiao", -14399 d.Add "Qie", -14384 d.Add "Qin", -14379 d.Add "Qing", -14368 d.Add "Qiong", -14355 d.Add "Qiu", -14353 d.Add "Qu", -14345 d.Add "Quan", -14170 d.Add "Que", -14159 d.Add "Qun", -14151 d.Add "Ran", -14149 d.Add "Rang", -14145 d.Add "Rao", -14140 d.Add "Re", -14137 d.Add "Ren", -14135 d.Add "Reng", -14125 d.Add "Ri", -14123 d.Add "Rong", -14122 d.Add "Rou", -14112 d.Add "Ru", -14109 d.Add "Ruan", -14099 d.Add "Rui", -14097 d.Add "Run", -14094 d.Add "Ruo", -14092 d.Add "Sa", -14090 d.Add "Sai", -14087 d.Add "San", -14083 d.Add "Sang", -13917 d.Add "Sao", -13914 d.Add "Se", -13910 d.Add "Sen", -13907 d.Add "Seng", -13906 d.Add "Sha", -13905 d.Add "Shai", -13896 d.Add "Shan", -13894 d.Add "Shang", -13878 d.Add "Shao", -13870 d.Add "She", -13859 d.Add "Shen", -13847 d.Add "Sheng", -13831 d.Add "Shi", -13658 d.Add "Shou", -13611 d.Add "Shu", -13601 d.Add "Shua", -13406 d.Add "Shuai", -13404 d.Add "Shuan", -13400 d.Add "Shuang", -13398 d.Add "Shui", -13395 d.Add "Shun", -13391 d.Add "Shuo", -13387 d.Add "Si", -13383 d.Add "Song", -13367 d.Add "Sou", -13359 d.Add "Su", -13356 d.Add "Suan", -13343 d.Add "Sui", -13340 d.Add "Sun", -13329 d.Add "Suo", -13326 d.Add "Ta", -13318 d.Add "Tai", -13147 d.Add "Tan", -13138 d.Add "Tang", -13120 d.Add "Tao", -13107 d.Add "Te", -13096 d.Add "Teng", -13095 d.Add "Ti", -13091 d.Add "Tian", -13076 d.Add "Tiao", -13068 d.Add "Tie", -13063 d.Add "Ting", -13060 d.Add "Tong", -12888 d.Add "Tou", -12875 d.Add "Tu", -12871 d.Add "Tuan", -12860 d.Add "Tui", -12858 d.Add "Tun", -12852 d.Add "Tuo", -12849 d.Add "Wa", -12838 d.Add "Wai", -12831 d.Add "Wan", -12829 d.Add "Wang", -12812 d.Add "Wei", -12802 d.Add "Wen", -12607 d.Add "Weng", -12597 d.Add "Wo", -12594 d.Add "Wu", -12585 d.Add "Xi", -12556 d.Add "Xia", -12359 d.Add "Xian", -12346 d.Add "Xiang", -12320 d.Add "Xiao", -12300 d.Add "Xie", -12120 d.Add "Xin", -12099 d.Add "Xing", -12089 d.Add "Xiong", -12074 d.Add "Xiu", -12067 d.Add "Xu", -12058 d.Add "Xuan", -12039 d.Add "Xue", -11867 d.Add "Xun", -11861 d.Add "Ya", -11847 d.Add "Yan", -11831 d.Add "Yang", -11798 d.Add "Yao", -11781 d.Add "Ye", -11604 d.Add "Yi", -11589 d.Add "Yin", -11536 d.Add "Ying", -11358 d.Add "Yo", -11340 d.Add "Yong", -11339 d.Add "You", -11324 d.Add "Yu", -11303 d.Add "Yuan", -11097 d.Add "Yue", -11077 d.Add "Yun", -11067 d.Add "Za", -11055 d.Add "Zai", -11052 d.Add "Zan", -11045 d.Add "Zang", -11041 d.Add "Zao", -11038 d.Add "Ze", -11024 d.Add "Zei", -11020 d.Add "Zen", -11019 d.Add "Zeng", -11018 d.Add "Zha", -11014 d.Add "Zhai", -10838 d.Add "Zhan", -10832 d.Add "Zhang", -10815 d.Add "Zhao", -10800 d.Add "Zhe", -10790 d.Add "Zhen", -10780 d.Add "Zheng", -10764 d.Add "Zhi", -10587 d.Add "Zhong", -10544 d.Add "Zhou", -10533 d.Add "Zhu", -10519 d.Add "Zhua", -10331 d.Add "Zhuai", -10329 d.Add "Zhuan", -10328 d.Add "Zhuang", -10322 d.Add "Zhui", -10315 d.Add "Zhun", -10309 d.Add "Zhuo", -10307 d.Add "Zi", -10296 d.Add "Zong", -10281 d.Add "Zou", -10274 d.Add "Zu", -10270 d.Add "Zuan", -10262 d.Add "Zui", -10260 d.Add "Zun", -10256 d.Add "Zuo", -10254 End Function Function C(str As String) As String Dim G As String, i As Long, i1 As Long Dim A(), B() C = "" For i = 1 To Len(str) '-------------------------------- num = Asc(Mid(str, i, 1)) If num > 0 And num < 160 Then G = Chr(num) Else If num < -20319 Or num > -10247 Then G = "" Else A = d.Items B = d.keys For i1 = d.Count - 1 To 0 Step -1 If A(i1) <= num Then Exit For Next G = B(i1) End If End If '------------------------------------------ C = C & G Next End Function Private Sub CommandButton1_Click() Call InitDictinary Dim i As Integer For i = 1 To 400 Range("b" & i) = C(Range("A" & i)) Next End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值