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 转载请注明出处。
  • 相关阅读:
    vue-ssr优化
    学习基础笔记1
    js原型链继承图
    浏览器缓存和Service Worker
    react项目启动详解(转载)
    深拷贝js对象或数组
    css多边形
    css三角形
    字体文件使用及压缩
    前端调试效率低?试试这10个“Chrome开发者工具”使用技巧
  • 原文地址:https://www.cnblogs.com/evlon/p/381481.html
Copyright © 2011-2022 走看看