利用JS代码和COM组件结合--内码转换的例子

venski

偶尔需要转换内码,可以参考下面的例子,当然你也可以有更好的方式,有的话就跟贴批评我吧
用到浏览器控件(为了正常显示韩文和日文等),win7以上附安装字体的示例:

不会说话,连废话也省了,直接上代码:




功能 转换_点击()
    //这里添加你要执行的代码
    变量 原字符串=网页元素获取("浏览器0","text","id:divTest")
    变量 原字符编码=下拉框获取文本("下拉框0")
    变量 新字符编码=下拉框获取文本("下拉框1")
    变量 数据流控件=com("adodb.stream")
    数据流控件.type=2
    数据流控件.charset=原字符编码
    数据流控件.Open()
    数据流控件.Position=0
    数据流控件.WriteText(原字符串)
    数据流控件.Position=0
    数据流控件.Charset=新字符编码
    网页元素输入("浏览器1",数据流控件.ReadText(-1),"id:divTest")
    数据流控件.Close()
    数据流控件=null
结束

功能 安装字体_点击()
    //这里添加你要执行的代码
    变量 版本内容=系统获取版本号()
    如果(版本内容==5||版本内容==6||版本内容==8)
        变量 字体目录=系统获取系统路径(0)&"fonts\\"
        变量 自身目录=系统获取进程路径()
        文件拷贝(自身目录&"batang.ttc",字体目录&"batang.ttc")
        文件拷贝(自身目录&"gulim.ttc",字体目录&"gulim.ttc")
        变量 注册表键值="SEGOEUI.TTF,120,80\r\n"
        注册表键值=注册表键值&"SEGOEUI.TTF\r\n"
        注册表键值=注册表键值&"SIMSUN.TTC,SimSun\r\n"
        注册表键值=注册表键值&"MSJH.TTF,128,96\r\n"
        注册表键值=注册表键值&"MSJH.TTF\r\n"
        注册表键值=注册表键值&"MEIRYO.TTC,Meiryo,128,85\r\n"
        注册表键值=注册表键值&"MEIRYO.TTC,Meiryo\r\n"
        注册表键值=注册表键值&"MALGUN.TTF,128,96\r\n"
        注册表键值=注册表键值&"MALGUN.TTF\r\n"
        注册表键值=注册表键值&"BATANG.TTC,Batang\r\n"
        变量 是否成功=注册表创建键值("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\FontLink\\SystemLink","Microsoft YaHei",注册表键值,3)
        变量 返回确认=对话框("安装字体成功,是否重新启动电脑以便字体生效!\r\n点确定重启,点取消自己手工操作","重新启动确认",1,false)
        如果(返回确认==5)
            是否成功=命令("shutdown -r -t 0",false)
        结束
    否则
        消息框("测试时仅支持Win7/8下安装相应字体--"&版本内容)
    结束
结束

功能 内码转换_初始化()
    //这里添加你要执行的代码
    网页跳转("浏览器0","about:blank")
    网页跳转("浏览器1","about:blank")
    变量 等待次数=10
    循环(等待次数>0)
        等待(100)
        如果(网页加载("浏览器0")==真)
            跳出
        结束
        等待次数=等待次数-1
    结束
    等待次数=10
    循环(等待次数>0)
        等待(100)
        如果(网页加载("浏览器1")==真)
            跳出
        结束
        等待次数=等待次数-1
    结束
    变量 可编辑层="<div contenteditable='true' id='divTest' onkeyup='InsertEnter(this.innerHTML)'> </div>"
    变量 JS代码="<SCRIPT LANGUAGE='JavaScript'> function InsertEnter(html){ if(event.keyCode==13){html = html + '<br>';document.getElementById('divTest').innerHTML=html;}}<\\/SCRIPT>"
    变量 要插入HTML代码=可编辑层&JS代码
    变量 返回值=网页执行js("浏览器0","document.write(\""&要插入HTML代码&"\");return 1;")
    返回值=网页执行js("浏览器1","document.write(\""&要插入HTML代码&"\");return 1;")
结束


变通实现的, 穿插了JS, COM,注册表操作的知识.
完整附件下载
内码转换.zip (3.14 KB, 下载次数: 35)

2015-5-19 02:15 上传

点击文件名下载附件
阅读权限: 10

itcfan

{:soso_e179:}