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

SplitFile.vbs
'/*=========================================================================   
' * Intro       .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。   
' * FileName    SplitFile.vbs   
' * Author      yongfa365   
' * Version     v1.0   
' * MadeTime    2008-04-24 12:58:43   
' * LastModify  2008-04-24 12:58:43   
' *==========================================================================*/

Set objArgs = WScript.Arguments   
If objArgs.Count = 0 Then  
    IIIII InputBox("选择要处理的文本文件", , "选择要处理的文本文件")   
Else

For I001 = 0 To objArgs.Count - 1   
        IIIII objArgs(I001)   
    Next  
End If

Function IIIII(Path)   
    TempStr = ReadFromFile(Path, "gb2312")   
    Length = Len(TempStr)   
    iii = 0   
    For II = 0 To Length step 8000 '8000个字符切为一个文件   
        iii = iii + 1   
        WriteToFile Left(Path, Len(Path) -4) & "_" & Right("00" & iii, 3) & ".txt" , Mid(TempStr, II + 1, 8000), "gb2312"  
    Next  
End Function

Function ReadFromFile(FileUrl, CharSet)   
    Dim Str   
    Set stm = CreateObject("Adodb.Stream")   
    stm.Type = 2   
    stm.mode = 3   
    stm.charset = CharSet  
    stm.Open  
    stm.loadfromfile FileUrl   
    Str = stm.readtext   
    stm.Close  
    Set stm = Nothing  
    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

赞 (0)

相关推荐

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

    SplitFile.vbs '/*=========================================================================    ' * Intro       .txt文本切割器,默认为8000个字符切为一个文件.支持拖动.    ' * FileName    SplitFile.vbs    ' * Author      yongfa365    ' * Version     v1.0    ' * MadeTime    20

  • VBS实现将Excel表格保存为txt文本

    希望能够找到个能给excel表另存为TXT的VBS代码,虽然另存为可以选择,但还是需要直接VBS执行这一步另存为TXT格式的,应该如何写代码呢? 有装Excel的话,就会比较简单,下面的是通用的不装Office也可以运行的,如下: VBScript code: 复制代码 代码如下: Set oShell = CreateObject("Shell.Application") Set oDir = oShell.BrowseForFolder(0,"选择目录",0)

  • Python 专题五 列表基础知识（二维list排序、获取下标和处理txt文本实例）

    Python 专题五 列表基础知识（二维list排序、获取下标和处理txt文本实例）

    通常测试人员或公司实习人员需要处理一些txt文本内容,而此时使用Python是比较方便的语言.它不光在爬取网上资料上方便,还在NLP自然语言处理方面拥有独到的优势.这篇文章主要简单的介绍使用Python处理txt汉字文字.二维列表排序和获取list下标.希望文章对你有所帮助或提供一些见解~ 一. list二维数组排序 功能:已经通过Python从维基百科中获取了国家的国土面积和排名信息,此时需要获取国土面积并进行排序判断世界排名是否正确. 列表基础知识 列表类型同字符串一样也是序列式的数据类型,

  • Android编程实现支持拖动改变位置的图片中叠加文字功能示例

    Android编程实现支持拖动改变位置的图片中叠加文字功能示例

    本文实例讲述了Android编程实现支持拖动改变位置的图片中叠加文字功能.分享给大家供大家参考,具体如下: 之所以做了这么一个Demo,是因为最近项目中有一个奇葩的需求:用户拍摄照片后,分享到微信的同时添加备注,想获取用户在微信的弹出框输入的内容,保存在自己的服务器上.而事实上,这个内容程序是无法获取的,因此采取了一个折衷方案,将文字直接写在图片上. 首先上Demo效果图: 功能: 1.用户自由输入内容,可手动换行,并且行满也会自动换行. 2.可拖动改变图片中文本位置(文字不会超出图片区域).

  • python读取中文txt文本的方法

    对于python2.7 字符串在Python2.7内部的表示是unicode编码,因此,在做编码转换时,通常需要以unicode作为中间编码,即先将其他编码的字符串解码成unicode,再从unicode编码成另一种编码. 先用一些编辑器(如editplus )看一下你的txt文件保存的是utf-8,还是gb2312或其他的.当你读行时可以这样 line = (file1.readline()).decode('utf-8').encode('gb2312')或 line = (file1.re

  • Python中将变量按行写入txt文本中的方法

    先看一个简单的例子:将变量写入txt文本中 f = open('E:/test.txt','w') f.write('hello world!') Out[3]: 12 f.close() 结果如图: 那么如何将变量按行写入呢? 在'w'写入模式下,当我们下次写入变量时,会覆盖原本txt文件的内容,这肯定不是我们想要的.TXT有一个追加模式'a',可以实现多次写入: f = open('E:/test.txt','a') f.write('the second writing...') Out[

  • python3.4.3下逐行读入txt文本并去重的方法

    读写文件时应注意的问题包括: 1.字符编码 2.操作完成即时关闭文件描述符 3.代码兼容性 几种方法: #!/bin/python3 original_list1=[" "] original_list2=[" "] original_list3=[" "] original_list4=[" "] newlist1=[" "] newlist2=[" "] newlist3=[&quo

  • 用java实现在txt文本中写数据和读数据的方法

    向文本中写数据,一般这些数据我们用来做自动化测试.通过我们制定的一些生成数据的规则,能够快速写数据到文本中. 下面是写数据到txt文本(当然我们可以根据自己的需要写到doc.docx.xlx.xlsx等格式的文件中)的代码: import java.io.File; import java.io.FileWriter; import java.io.IOException; public class Test { public static void main(String[] args) {

  • java 实现读取txt文本数据并以数组形式一行一行取值

    首先来读取txt文本中的内容,输出在控制台,直接上代码: import java.io.BufferedReader; import java.io.File; import java.io.FileReader; public class ReadFiledata { public static String txt2String(File file){ StringBuilder result = new StringBuilder(); try{ BufferedReader br = n

  • python提取图像的名字*.jpg到txt文本的方法

    如下所示: <span style="font-size:18px;"># -*- coding:utf-8 -*- import sys sys.path.append('E:\\Anaconda\\libs') import os #os:操作系统相关的信息模块 import random #导入随机函数 #存放原始图片地址 data_base_dir = "C:\\Users\\Administrator.MICROSO-1HCAN56\\Desktop\\

随机推荐