.版本 2 .子程序 通用编码_转换文本型, 文本型, 公开, 将任意编码格式(字节集类)转换成ANSI（文本格式编码） .参数 data, 字节集, , 要转换的数据 .参数 Cset, 文本型, 可空, 转换前的编码 例：“UTF-8”，“Unicode”。留空默认为“UTF-8” .局部变量 对象, 对象 .局部变量 变体型, 变体型 .局部变量 temp, 文本型 .如果真 (是否为空 (Cset) ＝ 真) Cset ＝ “UTF-8” .如果真结束 对象.创建 (“adodb.stream”, ) ' 调用方法 对象.写属性 (“Type”, 1) ' Type 指定或返回的数据类型，可选参数为：字节集 =1 文本型 =2 对象.写属性 (“Mode”, 3) ' 指定打开模式，可不指定，可选参数如下：1只读 2只写 3读写 对象.方法 (“Open”, ) ' 打开对像 变体型.赋值 (data, ) ' 为对象赋值，变体型 参数2为 数组对象数组赋值，普通对象 留空 对象.方法 (“Write”, 变体型) ' Write 和 WriteText 方法将指定的数据装入对像中 前者为字节集 后者为字符串 对象.写属性 (“Position”, 0) ' 指定或返加对像内数据的当前指针 对象.写属性 (“Type”, 2) 对象.写属性 (“Charset”, Cset) ' 属性指定用于存储 Stream 的字符集 temp ＝ 对象.文本方法 (“ReadText”, ) ' Read 和 ReadText 方法将对象数据读取出来 前者为字节集 后者为字符串 对象.方法 (“Close”, ) ' 关闭对象 返回 (temp) .子程序 通用编码_转换字节集, 字节集, 公开, 将任意文本编码格式(文本类)转换成（字节集）编码格式 .参数 data, 文本型, , 要转换的数据 .参数 Cset, 文本型, 可空, 转换后的编码 例：“UTF-8”，“Unicode”，“GB2312”等，留空默认转换成UTF-8 .局部变量 对象, 对象 .局部变量 变体型, 变体型 .局部变量 temp, 字节集 .局部变量 tempB, 变体型 .如果真 (是否为空 (Cset) ＝ 真) Cset ＝ “UTF-8” .如果真结束 对象.创建 (“adodb.stream”, ) ' 调用方法 类似c#里的 using 或 C++里的 # 对象.写属性 (“Type”, 2) ' Type 指定或返回的数据类型，可选参数为：字节集 =1 文本型 =2 对象.写属性 (“Mode”, 3) ' 指定打开模式，可不指定，可选参数如下：1只读 2只写 3读写 对象.写属性 (“Charset”, Cset) ' 属性指定用于存储 Stream 的字符集，【注意：】这里需要先将对象存储的编码设定好，这样输入对象的任意字符集就会转换为指定的编码了 对象.方法 (“Open”, ) ' 打开对像 变体型.赋值 (data, ) ' 为对象赋值，变体型 参数2为 数组对象数组赋值，普通对象 留空 对象.方法 (“WriteText”, 变体型) ' Write 和 WriteText 方法将指定的数据装入对像中 前者为字节集 后者为字符串 对象.写属性 (“Position”, 0) ' 指定或返加对像内数据的当前指针0为默认首部 若设为2 则跳过默认字符集unicode控制 对象.写属性 (“Type”, 1) tempB ＝ 对象.通用方法 (“Read”, ) ' Read 和 ReadText 方法将对象数据读取出来 前者为字节集 后者为字符串 temp ＝ tempB.取字节集 () 对象.方法 (“Close”, ) ' 关闭对象 返回 (temp)