zoukankan      html  css  js  c++  java
  • savetofile

    '*********************************************************
    ' 目的:    Save Text to File
    ' 输入:   
    ' 输入:   
    ' 返回:   
    '*********************************************************
    Function SaveToFile(strFullName,strContent,strCharset,bolRemoveBOM)

     On Error Resume Next

     Dim objStream

     Set objStream = Server.CreateObject("ADODB.Stream")
     With objStream
     .Type = adTypeText
     .Mode = adModeReadWrite
     .Open
     .Charset = strCharset
     .Position = objStream.Size
     .WriteText = strContent
     .SaveToFile strFullName,adSaveCreateOverWrite
     .Close
     End With
     Set objStream = Nothing

     If bolRemoveBOM Then
      If strContent<>"" And ZC_STATIC_TYPE="shtml" Then
       Call RemoveBOM(strFullName)
      End If
     End If

     Err.Clear

    End Function
    '*********************************************************

     


    '*********************************************************
    ' 目的:    Load Text form File
    ' 输入:   
    ' 输入:   
    ' 返回:   
    '*********************************************************
    Function LoadFromFile(strFullName,strCharset)

     On Error Resume Next

     Dim objStream

     Set objStream = Server.CreateObject("ADODB.Stream")
     With objStream
     .Type = adTypeText
     .Mode = adModeReadWrite
     .Open
     .Charset = strCharset
     .Position = objStream.Size
     .LoadFromFile strFullName
     LoadFromFile=.ReadText
     .Close
     End With
     Set objStream = Nothing

     Err.Clear

    End Function
    '*********************************************************


    '*********************************************************
    ' 目的:    Remove BOM from UTF-8
    '*********************************************************
    Function RemoveBOM(strFullName)

     On Error Resume Next

     Dim objStream
     Dim strContent

     Set objStream = Server.CreateObject("ADODB.Stream")
     With objStream
     .Type = adTypeBinary
     .Mode = adModeReadWrite
     .Open
     .Position = objStream.Size
     .LoadFromFile strFullName
     .Position = 3
     strContent=.Read
     .Close
     End With
     Set objStream = NoThing

     Set objStream = Server.CreateObject("ADODB.Stream")
     With objStream
     .Type = adTypeBinary
     .Mode = adModeReadWrite
     .Open
     .Position = objStream.Size
     .Write = strContent
     .SaveToFile strFullName,adSaveCreateOverWrite
     .Close
     End With
     Set objStream = Nothing

     Err.Clear

    End Function

  • 相关阅读:
    delphi 的插件机制与自动更新
    delphi 的 ORM 框架
    canner CMS 系统 (公司在台湾) https://www.canner.io/
    区块链 ---- 数字货币交易
    BIM平台 http://gzcd.bim001.cn
    TreeGrid 控件集 :delphi 学习群 ---- 166637277 (Delphi学习交流与分享)
    UniGUI 如何进行 UniDBGrid 的单元 Cell 的计算 ?
    国产 WEB UI 框架 (收费)-- Quick UI,Mini UI
    iOS尽量不要在viewWillDisappear:方法中移除通知
    Tips:取消UICollectionView的隐式动画
  • 原文地址:https://www.cnblogs.com/tatsuya/p/1212927.html
Copyright © 2011-2022 走看看