| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 673 人关注过本帖, 1 人收藏
标题:编码转换问题
只看楼主 加入收藏
nbwww
Rank: 8Rank: 8
等 级:贵宾
威 望:11
帖 子:332
专家分:804
注 册:2021-1-9
结帖率:88.24%
收藏(1)
已结贴  问题点数:20 回复次数:4 
编码转换问题
"地 址、电 话:"   如何转换为  汉字
网页工具可以转换  strconv  1-16试了个遍  还是不行
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 网页 转换 编码转换 工具 汉字 
2023-05-31 21:52
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:702
专家分:2760
注 册:2018-3-13
收藏
得分:0 
cc = '地址、电话'
cc = Strconv(cc,5)
? Transform(0h+cc, '@R xxxx;xxxx;xxxx;xxxx;xxxx;')
这不一回事吗?不同之处仅仅是一个大头(BE),一个小头(LE),交换一下高低字节就一样了

这家伙很懒,啥也没留下
2023-06-01 00:21
nbwww
Rank: 8Rank: 8
等 级:贵宾
威 望:11
帖 子:332
专家分:804
注 册:2021-1-9
收藏
得分:0 
以下是引用csyx在2023-6-1 00:21:32的发言:

cc = '地址、电话'
cc = Strconv(cc,5)
? Transform(0h+cc, '@R xxxx;xxxx;xxxx;xxxx;xxxx;')
这不一回事吗?不同之处仅仅是一个大头(BE),一个小头(LE),交换一下高低字节就一样了

我是要倒过来   把XXXX 转为汉字
2023-06-01 07:15
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:702
专家分:2760
注 册:2018-3-13
收藏
得分:20 
以下是引用nbwww在2023-6-1 07:15:13的发言:
我是要倒过来   把XXXX 转为汉字

晕死,就不会反过来处理吗?
? Strconv(0h3057+0h4057,6) 这不就显示地址了

自己写个函数交换高低字节,得到下面的 cc
cc = '3057 4057 0130 3575 dd8b'
? Strconv(Strconv(cc,16),6)   && 这就是 地址、电话

[此贴子已经被作者于2023-6-1 09:38编辑过]


这家伙很懒,啥也没留下
2023-06-01 09:28
nbwww
Rank: 8Rank: 8
等 级:贵宾
威 望:11
帖 子:332
专家分:804
注 册:2021-1-9
收藏
得分:0 
留存一下  

程序代码:
  ?Unescape(STRTRAN(STRTRAN("地 址、电 话:",'&#x','\u'),';',''))

   

   
Function Unescape(pstrInput As String)
     local objScrCtl As Object,tmp as String 
     objScrCtl = CreateObject("MSScriptControl.ScriptControl")
     objScrCtl.Language = "Javascript"
     TRY 
       tmp = objScrCtl.Eval("unescape('" + pstrInput + "')")
     ENDTRY        
     RELEASE objScrCtl
     RETURN tmp
ENDFUNC


[此贴子已经被作者于2023-6-11 19:33编辑过]

2023-06-11 19:22
快速回复:编码转换问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040543 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved