@echo off rem 指定文件夹路径 set "fd=D:\下载的图片" rem 0为转换文件名,1为转换文件夹名,2为同时转换文件名和文件夹名 set f=0 rem 0为不包括子文件夹,1为包括子文件夹 set r= rem 2为繁转简,4为简转繁 set n= set locale=[System.Globalization.Cultureinfo]::CurrentCulture.LCID %" " (set r=-r) else set "
简繁体互换工具:opencc opencc是一个简体.繁体相互转换的命令行工具. 安装 下载软件包.在下载页面下载软件包(如1.0.4版本) 解压.通过命令解压:tar -xzvf opencc-1.0.4.tar.gz 编译.安装.编译前需要cmake.gcc(4.6).doxygen等工具,用命令gcc -v查看gcc版本,如果缺cmake.doxygen,则安装对应工具.编译.安装命令如下: cd opencc-1.0.4/ #进入刚解压出的目录 make #编译 sudo make in
http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=104986 試看看 這個是豬寶寶從網路上抄來的 檢視純文字版列印? function Cn2Big(CnStr: string): string; var Len: Integer; begin Len := Length(CnStr); SetLength(Result, Len); LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONA
Function GBCht2Chs(GBStr: String): AnsiString; {GBK繁体转简体} Var len:integer; pGBCHTChar: PChar; pGBCHSChar: PChar; Begin pGBCHTChar := PChar(GBStr); Len := SizeOf(pGBCHTChar); GetMem(pGBCHSChar, Len + 1); ZeroMemory(pGBCHSChar, Len + 1)