vbs实现的支持拖动的txt文本切割器

    ReadFromFile = Str   
End Function  

'按指定编码存储文件   

Function WriteToFile (FileUrl, Str, CharSet)   
    Set stm = CreateObject("Adodb.Stream")   
    stm.Type = 2   
    stm.mode = 3   
    stm.charset = CharSet  
    stm.Open  
    stm.WriteText Str   
    stm.SaveToFile FileUrl, 2   
    stm.flush  
    stm.Close  
    Set stm = Nothing  
End Function 

您可能感兴趣的文章:

VBS合并一个文件夹里的TXT的实现代码vbs解决处理TXT文本数据相关问题实现代码VBS实现将Excel表格保存为txt文本TXT转HTM、HTML「TXT转网页」的vbs实现代码用vbs产生的若干个随机数并写入到一个.txt中的代码将HTML或txt文件转换为ASP输出的vbs代码用VBS将一篇txt后缀的内容保存为html格式vbs操作txt文本文件常用方法与函数代码