注册表 二进制 中文读取

ZJL520

  

子程序名	返回值类型	公开	备 注
_按钮_读取_被单击

变量名	类 型	静态	数组	备 注
局_注册表	注册表操作
局_数据	文本型

局_数据 ＝ 字节集_到文本 (子字节集替换 (局_注册表.取二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”), { 0 }, , , ))
调试输出 (局_数据)    ‘原因知道是因为中文字符 但是 读取该怎么搞呢  没法判断

子程序名	返回值类型	公开	备 注
_按钮_写入_被单击

变量名	类 型	静态	数组	备 注
局_注册表	注册表操作

局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 文本转字符串 (“C:\123\456.htm”))  ' 这样写就能正常读取
' 局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 文本转字符串 (“D:\桌面\测试.htm”))  ' 这样写就读取就乱了

子程序名	返回值类型	公开	备 注
文本转字符串	字节集
参数名	类 型	参考	可空	数组	备 注
插_源码文本	文本型

变量名	类 型	静态	数组	备 注
局_数组	文本型		0
局_数据	字节集
局_结果	字节集
局_计次	整数型

文本_逐字分割 (插_源码文本, 局_数组)
计次循环首 (取数组成员数 (局_数组), 局_计次)
如果真 (取文本长度 (局_数组 [局_计次]) ＝ 1)
局_数据 ＝ 局_数据 ＋ 到字节集 (局_数组 [局_计次]) ＋ { 0 }
如果真 (取文本长度 (局_数组 [局_计次]) ＝ 2)
局_数据 ＝ 局_数据 ＋ 编码_Ansi到Unicode (局_数组 [局_计次], 真)

计次循环尾 ()
返回 (局_数据)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮_读取_被单击<br /> .局部变量 局_注册表, 注册表操作<br /> .局部变量 局_数据, 文本型<br /> <br /> 局_数据 ＝ 字节集_到文本 (子字节集替换 (局_注册表.取二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”), { 0 }, , , ))<br /> 调试输出 (局_数据)    ‘原因知道是因为中文字符 但是 读取该怎么搞呢  没法判断<br /> <br /> .子程序 _按钮_写入_被单击<br /> .局部变量 局_注册表, 注册表操作<br /> <br /> 局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 文本转字符串 (“C:\123\456.htm”))  ' 这样写就能正常读取<br /> ' 局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 文本转字符串 (“D:\桌面\测试.htm”))  ' 这样写就读取就乱了<br /> <br /> .子程序 文本转字符串, 字节集<br /> .参数 插_源码文本, 文本型<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_数据, 字节集<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_计次, 整数型<br /> <br /> 文本_逐字分割 (插_源码文本, 局_数组)<br /> .计次循环首 (取数组成员数 (局_数组), 局_计次)<br />     .如果真 (取文本长度 (局_数组 [局_计次]) ＝ 1)<br />         局_数据 ＝ 局_数据 ＋ 到字节集 (局_数组 [局_计次]) ＋ { 0 }<br />     .如果真结束<br />     .如果真 (取文本长度 (局_数组 [局_计次]) ＝ 2)<br />         局_数据 ＝ 局_数据 ＋ 编码_Ansi到Unicode (局_数组 [局_计次], 真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (局_数据)

b0y

  

变量名	类 型	静态	数组	备 注
局_注册表	注册表操作
局_数据	文本型

局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 到字节集 (“D:\桌面\测试.htm”))  ' 这样写就读取就乱了
调试输出 (到文本 (局_注册表.取二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”)))
' D:\桌面\测试.htm
局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 编码_Ansi到Unicode (“D:\桌面\测试.htm”))
调试输出 (编码_Unicode到Ansi (局_注册表.取二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”)))
' D:\桌面\测试.htm

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_注册表, 注册表操作<br /> .局部变量 局_数据, 文本型<br /> <br /> 局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 到字节集 (“D:\桌面\测试.htm”))  ' 这样写就读取就乱了<br /> 调试输出 (到文本 (局_注册表.取二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”)))<br /> ' D:\桌面\测试.htm<br /> <br /> 局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 编码_Ansi到Unicode (“D:\桌面\测试.htm”))<br /> 调试输出 (编码_Unicode到Ansi (局_注册表.取二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”)))<br /> ' D:\桌面\测试.htm

你写进去什么编码的字节集 读取出来就怎么还原就行了  
直接到字节集  取出来就在到文本

你是转为了unicode写进去的 所以取回来的字节集要 unicode转回ansi

b0y

直接写字节集 读字节集不就行了

yjynxs

转utf-8编码

ZJL520

b0y 发表于 2024-6-30 06:39
直接写字节集 读字节集不就行了

你读一下看看就知道了  代码在这

ZJL520

yjynxs 发表于 2024-6-30 10:59
转utf-8编码

不对  但是找到方法了  就是判断比较麻烦  
局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, “Log”, 文本转字符串 (“D:\桌面\测试.htm”))  

直接取 字节集 然后  {68,0,58,0,92,0,76,104,98,151,92,0,75,109,213,139,46,0,104,0,116,0,109,0}
如果没有中文 和特殊符号  直接替换0字节集  就能正常取  有特殊符号和中文 就得 特殊处理2个字符 去编码_Unicode到Ansi（） 转

yjynxs

ZJL520 发表于 2024-6-30 12:07
不对  但是找到方法了  就是判断比较麻烦  
局_注册表.写二进制值 (“HKEY_LOCAL_MACHINE\SYSTEM\1\cs”, ...

那就直接转Unicode编码，Unicode是万国编码支持特殊符号，然后还原成你文档原来的编码格式就行了

ZJL520

b0y 发表于 2024-6-30 12:18
[e=0].版本 2
.支持库 spec

搞半天 原来搞了个乌龙
其实最开始 我也用了  编码_Unicode到Ansi（） 直接转字节集的  貌似没成功

你的提点犹如醍醐灌顶  十分感谢