vbs实现的支持拖动的txt文本切割器
2016-11-07 11:16
411 查看
vbs实现的支持拖动的txt文本切割器
作者: 字体:[增加 减小] 类型:转载 时间:2008-06-20 我要评论用vbs实现的txt文本文件切割器,默认为8000个字符切为一个文件。支持拖动。
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
相关文章推荐
- vbs实现的支持拖动的txt文本切割器
- 用VBS实现的批量gb2312转utf-8,支持拖动
- 实现支持VBS的For Each语法的COM组件
- jQuery实现的Dialog(支持模态和拖动)
- 实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS!
- 实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS!
- (原创)用Microsoft Chart Controls(MSChart)实现曲线图,并支持拖动放大到秒
- 视频支持拖动进度条播放的实现(基于nginx)
- js实现悬浮窗效果(支持拖动)
- 鼠标滚轮支持的behavior 只要在blend中拖动一下无需编写任何代码,就可以实现滚轮了
- js实现web套打功能,支持拖动布局,支持按键移动支持打印预览,结果可保存至数据库中
- 用Microsoft Chart Controls(MSChart)实现曲线图,并支持拖动放大到秒
- pdfrender实现简易版pdf阅读器-支持鼠标拖动浏览
- Android实现类似Excel显示数据功能(支持拖动改变列宽)v 1.0
- Android编程实现支持拖动改变位置的图片中叠加文字功能示例
- 实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS
- Jquery 实现层的拖动,支持回调函数
- MFC在鼠标自定义的一定的范围内实现拖动窗口移动、错误:不支持尝试执行的操作、实现进度条颜色的渐变或者背景和前景色的改变
- JS实现弹出浮动窗口(支持鼠标拖动和关闭)实例详解