vbs怎么实现的支持拖动的txt文本切割器
发表于:2024-09-22 作者:千家信息网编辑
千家信息网最后更新 2024年09月22日,这篇文章主要介绍vbs怎么实现的支持拖动的txt文本切割器,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!'/*=================================
千家信息网最后更新 2024年09月22日vbs怎么实现的支持拖动的txt文本切割器
这篇文章主要介绍vbs怎么实现的支持拖动的txt文本切割器,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!
'/*========================================================================= ' * Intro .txt文本切割器,默认为8000个字符切为一个文件。支持拖动。 ' * FileName SplitFile.vbs ' * Version v1.0 ' *==========================================================================*/ 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文本切割器"这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注行业资讯频道!
文本
文件
切割器
支持
内容
字符
篇文章
处理
选择
价值
兴趣
小伙
小伙伴
更多
知识
编码
行业
资讯
资讯频道
频道
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
临沧君悦网络技术服务中心
氨基丁酸食品原料数据库
软件开发行业增值税即征即退政策
gta服务器广告视频
集中式数据库名词解释
构建互联网科技
服务器费用指的是什么
对比两个数据库表里的值是否一致
做软件开发能做到多大年龄
汽车总网络技术
银行网络安全好干吗
美国云服务器独享ip
怎么使用手机进行软件开发
手机软件开发双方注意事项
关系数据库中关系是记录吗
如何保护web服务器安全
网络安全手抄报用a3纸
卫健局网络安全方案
网络安全资质办理
37玩神仙道服务器
策略组开启数据库在哪里
触屏终端软件开发
设备地址和服务器地址不同
读取数据库中html标签
虹口区服务器回收公司哪里有
致远协同办公数据库
四大网络安全审计部门名称
软件开发企业出口账务处理
一年几百万的服务器
软件开发需要成本