zoukankan      html  css  js  c++  java
  • 读取和存储文本文件,UTF-8和GB2312通用的函数

    '-------------------------------------------------
    '函数名称:ReadTextFile
    '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
    '----------------------------------------------------
    Function ReadFromTextFile (FileUrl,CharSet)
        dim str
        set stm=server.CreateObject("adodb.stream")
         stm.Type=2 '以本模式读取
         stm.mode=3 
         stm.charset=CharSet
         stm.open
         stm.loadfromfile server.MapPath(FileUrl)
         str=stm.readtext
         stm.Close
        set stm=nothing  本文来自www.iisboy.com
         ReadFromTextFile=str
    End Function
    '-------------------------------------------------
    '函数名称:WriteToTextFile
    '作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
    '----------------------------------------------------
    Sub WriteToTextFile (FileUrl,byval Str,CharSet) 
        set stm=server.CreateObject("adodb.stream")
         stm.Type=2 '以本模式读取
         stm.mode=3
         stm.charset=CharSet
         stm.open
         stm.WriteText str
         stm.SaveToFile server.MapPath(FileUrl),2 
         stm.flush
         stm.Close
        set stm=nothing
    End Sub

    '使用方法

    call WriteToTextFile ("../index.html","aaa","UTF-8")'保存为UTF-8

    call WriteToTextFile ("../index.html","aaa","GB2312")'保存为GB2312

  • 相关阅读:
    java从基础知识(九)I/O
    c++学习笔记(2)类的声名与实现的分离及内联函数
    转:给C++初学者的50个忠告
    c++学习(1)
    vim下缩进及高亮设置
    转载:c++ sort用法
    菜鸟成长记1,软件工程大一经历
    linux下挂载另一系统硬盘。
    OpenCV VideoCapture.get()参数详解
    opencv+python 添加文字 cv2.putText
  • 原文地址:https://www.cnblogs.com/lykouyi/p/5807075.html
Copyright © 2011-2022 走看看