zoukankan      html  css  js  c++  java
  • 用脚本处理utf8的文本文件

    filename="C:UsersAdministratorDesktopsoftx.txt"
    filename2="C:UsersAdministratorDesktopsoftx.txt"
    
    Dim txt 
    Dim txt2
    txt=ReadFromTextFile( filename )
    txt=Replace( txt,"xx软件","yy软件" )
    
    
    WriteToTextFile filename2,txt
    
    Set a = CreateObject("Scripting.FileSystemObject")
    a.CopyFile "C:UsersAdministratorDesktopsoftweb.xml","C:",true
    
    msgbox "ok"
    
    
     Function ReadFromTextFile(FileUrl)
     dim str
     set stm=CreateObject("adodb.stream")
     stm.Type=2'以本模式读取
     stm.mode=3 
     stm.charset="UTF-8"
     stm.open
     stm.loadfromfile  FileUrl 
     str=stm.readtext
     stm.Close
     set stm=nothing
     ReadFromTextFile=str
    End Function
    
    Sub WriteToTextFile(FileUrl,byval Str)
     set stm=CreateObject("adodb.stream")
     stm.Type=2'以本模式读取
     stm.mode=3
     stm.charset="UTF-8"
     stm.open
     stm.WriteText str
     stm.SaveToFile  FileUrl ,2 
     stm.flush
     stm.Close
     set stm=nothing
    End Sub
  • 相关阅读:
    Log4j2 配置
    Spring + SpringMVC配置
    Tomcat 动态数据库连接池
    MySQL数据库备份命令
    一条insert语句插入数据库
    tomcat 性能优化
    linux RPM manager
    mysql 多主
    ceph学习
    python常用程序算法
  • 原文地址:https://www.cnblogs.com/szyicol/p/4669805.html
Copyright © 2011-2022 走看看