zoukankan      html  css  js  c++  java
  • 利用ADODB.Stream实现 Bytes到String的指定编码的转换

    ''' Byte流到Char流的转换函数
    Function Bytes2BSTR(vin)
        Bytes2BSTR 
    = Bytes2Str(vin,"utf-8")
    End Function

        
    Function Bytes2Str(vin,charset)
            
    Dim ms,strRet
            
    Set ms = Server.CreateObject("ADODB.Stream")    '建立流对象
            ms.Type = 1             ' Binary
            ms.Open                    
            ms.Write vin            
    '把vin写入流对象中
            
            ms.Position 
    = 0         '设置流对象的起始位置是0 以设置Charset属性
            ms.Type = 2              'Text
            ms.Charset = charset    '设置流对象的编码方式为 charset

            strRet 
    = ms.ReadText    '取字符流
            ms.close                '关闭流对象
            Set ms = nothing
            Bytes2Str 
    = strRet
        
    End Function
        
    Function Str2Bytes(str,charset)
            
    Dim ms,strRet
            
    Set ms = CreateObject("ADODB.Stream")    '建立流对象
            ms.Type = 2             ' Text
            ms.Charset = charset    '设置流对象的编码方式为 charset
            ms.Open                    
            ms.WriteText str            
    '把str写入流对象中
            
            ms.Position 
    = 0         '设置流对象的起始位置是0 以设置Charset属性
            ms.Type = 1              'Binary

            vout 
    = ms.Read(ms.Size)    '取字符流
            ms.close                '关闭流对象
            Set ms = nothing
            Str2Bytes 
    = vout
        
    End Function
    QQ:273352165 evlon#126.com 转载请注明出处。
  • 相关阅读:
    Zabbix配置文件详解之服务端zabbix_server
    Ansible批量远程管理Windows主机(部署与配置)
    ansible简要说明
    zabbix自动发现与自动注册
    Linux获取UUID
    python爬虫练习之批量下载zabbix文档
    cmake编译c++程序
    spring中PropertyPlaceholderConfigurer的运用---使用${property-name}取值
    spring中<bean>中parent标签的使用
    用静态工厂的方法实例化bean
  • 原文地址:https://www.cnblogs.com/evlon/p/381481.html
Copyright © 2011-2022 走看看