个人中心
文章发布
退出
作者热门文章
- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
30
4
CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章vbs脚本实现批量转换文件编码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.
最近需要使用SourceInsight查看分析在Linux系统下开发的项目代码，我们知道Linux系统中文本文件默认编码格式是UTF-8，而Windows中文系统中的默认编码格式是Gb2312。系统内的编码格式有所区别倒无伤大雅，关键的是SourceInsight竟不支持UTF-8，导致项目代码内的中文注释全部乱码！ 。
既然SourceInsight不支持UTF-8编码的文件，那我们就得想办法将UTF-8的代码文件转化为GB2312编码的。首先想到的是到网上搜一下“批量编码转换工具”，结果下载后发现编码转换后的文件总是出现乱码，可能是工具的bug吧。既然不能使用工具转换，那就自己写一个程序进行编码转换，但是细想一下觉得C++/java的编码转换程序写起来又比较啰嗦，要是在Linux下写一个shell脚本就能轻松搞定了。还好Windows下有vbs脚本可以帮助我们轻松达到这个目的.
'------------------------------------------------- 。
。
'函数名称:ReadFile 。
'作用:利用AdoDb.Stream对象来读取各种格式的文本文件 。
'------------------------------------------------- 。
。
Function ReadFile(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 。
ReadFile = Str 。
End Function 。
。
我们使用ReadFile函数读取文件，其中FileUrl指定文件的路径，CharSet指定文件的原始编码格式，使用adodb.stream对象读取文件内容到Str.
'------------------------------------------------- 。
。
'函数名称:WriteToFile 。
'作用:利用AdoDb.Stream对象来写入各种格式的文本文件 。
'------------------------------------------------- 。
。
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 。
。
然后使用WriteToFile将Str写回原文件FileUrl，并设定新的编码CharSet.
'------------------------------------------------- 。
。
'函数名称:ConvertFile 。
'作用:将一个文件进行编码转换 。
'------------------------------------------------- 。
。
Function ConvertFile(FileUrl) 。
Call WriteToFile(FileUrl, ReadFile(FileUrl, SrcCode), DestCode) 。
End Function 。
。
这样ConvertFile对上述两个函数封装，实现文件FileUrl的编码转换，其中原始编码SrcCode与目的编码DestCode为全局变量.
如果仅对一个文件进行编码转换，我们不必这么大费周章。我们希望能对任意的文件或文件夹内的所有文件进行编码转换，达到批量转换的目的.
。
'------------------------------------------------- 。
。
'函数名称:ConvertDir 。
'作用:将任意目录内的文件进行编码转换 。
'------------------------------------------------- 。
。
Function ConvertDir(DirUrl) 。
If fs.FileExists(DirUrl) Then 。
Call ConvertFile(DirUrl) 。
Else 。
Call SearchDir(DirUrl) 。
End If 。
End Function 。
。
函数ConvertDir对任意路径的文件/文件夹进行编码转换，使用scripting.filesystemobject对象的FileExists函数判断路径对应的是文件还是文件夹，如果是文件则直接调用ConvertFile进行编码转换，否则调用SearchDir处理文件夹.
'------------------------------------------------- 。
。
'函数名称:SearchDir 。
'作用:递归查找目录内的文件，进行编码转换 。
'------------------------------------------------- 。
。
Function SearchDir(path) 。
Set folder = fs.getfolder(path) 。
Set subfolders = folder.subfolders 。
Set Files = folder.Files 。
For Each i In Files 。
Call ConvertFile(i.path) 。
Next 。
For Each j In subfolders 。
Call SearchDir(j.path) 。
Next 。
End Function 。
。
函数SearchDir是递归的，首先调用getfolder创建文件夹对象，然后取出文件夹内的子文件夹集合subfolders和子文件集合files。对于每个子文件，直接调用ConvertFile进行编码转换即可，而对于每个子文件夹，则递归调用SearchDir重复处理.
'------------------------------------------------- 。
。
'设置编码：默认 utf-8 --> gb2312 。
'------------------------------------------------- 。
。
SrcCode="utf-8" 。
DestCode="gb2312" 。
。
'------------------------------------------------- 。
'解析参数 。
'------------------------------------------------- 。
。
Set fs = CreateObject("scripting.filesystemobject") 。
Set objArgs = WScript.Arguments 。
If objArgs.Count>0 Then 。
For I = 0 To objArgs.Count - 1 。
FileUrl = objArgs(I) 。
Call ConvertDir(FileUrl) 。
Next 。
Else 。
MsgBox "没有文件/文件夹被拖入！" 。
wscript.quit 。
End If 。
MsgBox "转换成功！" 。
。
最后通过解析脚本文件的参数，由于每个参数对应一个文件/文件夹的路径，将之传递给ConvertDir即可。这里默认的是将UTF-8编码转化为GB2312编码，读者可以根据自身需要自行修改.
将上述代码保存为ConvertCode.vbs，只需要将任意多个文件选中拖动到该脚本文件上即可。或者使用命令行.
。
需要注意的是文件编码是就地转换的，在转换之前最好将原文件/文件夹进行备份.
最后附上脚本文件的所有代码.
'/*=========================================================== ' * Intro 把要转换的多个文件/文件夹拖到该文件上即可 ' * FileName ConvertCode.vbs ' * Author Florian ' * Version v1.0 ' * LastModify 2014-06-11 00:39:58 ' *==========================================================*/ 。
。
'------------------------------------------------- '设置编码：默认 utf-8 --> gb2312 '------------------------------------------------- 。
SrcCode="utf-8" DestCode="gb2312" 。
'------------------------------------------------- '解析参数 '------------------------------------------------- 。
Set fs = CreateObject("scripting.filesystemobject") Set objArgs = WScript.Arguments If objArgs.Count>0 Then For I = 0 To objArgs.Count - 1 FileUrl = objArgs(I) Call ConvertDir(FileUrl) Next Else MsgBox "没有文件/文件夹被拖入！" wscript.quit End If MsgBox "转换成功！" 。
'------------------------------------------------- '函数名称:ConvertDir '作用:将任意目录内的文件进行编码转换 '------------------------------------------------- 。
Function ConvertDir(DirUrl) If fs.FileExists(DirUrl) Then Call ConvertFile(DirUrl) Else Call SearchDir(DirUrl) End If End Function 。
'------------------------------------------------- '函数名称:SearchDir '作用:递归查找目录内的文件，进行编码转换 '------------------------------------------------- 。
Function SearchDir(path) Set folder = fs.getfolder(path) Set subfolders = folder.subfolders Set Files = folder.Files For Each i In Files Call ConvertFile(i.path) Next For Each j In subfolders Call SearchDir(j.path) Next End Function 。
'------------------------------------------------- '函数名称:ConvertFile '作用:将一个文件进行编码转换 '------------------------------------------------- 。
Function ConvertFile(FileUrl) Call WriteToFile(FileUrl, ReadFile(FileUrl, SrcCode), DestCode) End Function 。
'------------------------------------------------- '函数名称:ReadFile '作用:利用AdoDb.Stream对象来读取各种格式的文本文件 '------------------------------------------------- 。
Function ReadFile(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 ReadFile = Str End Function 。
'------------------------------------------------- '函数名称:WriteToFile '作用:利用AdoDb.Stream对象来写入各种格式的文本文件 '------------------------------------------------- 。
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 FunctionView Code 。
。
最后此篇关于vbs脚本实现批量转换文件编码的文章就讲到这里了,如果你想了解更多关于vbs脚本实现批量转换文件编码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。
30
4
0
这是我在阅读了几个关于 jpa 批量插入的主题后创建的简单示例，我有 2 个持久对象用户和站点。一个用户可以有多个站点，所以我们在这里有一对多的关系。假设我想创建用户并将多个站点创建/链接到用户帐户。
我有文档列表(对象)，该对象有多个文档，即存在 Json 记录，但是当我尝试上传文档束(记录)时，它没有上传到文档数据库，但当我上传单个文档记录时，它上传成功。 List listObj = ne
我希望进行批量域名查找，看看是否有一些域名可供购买。我找不到 perl 模块，但似乎应该有一种方法可以在 perl 中执行此操作。我正在寻找免费的东西。谢谢! 最佳答案 从这里:http://www.
我制作了一个批处理类来检查 FTP 上的文件、下载它们并在 FTP 上删除它们。 当我手动运行它(不是批量运行)时，它运行完美，下载 FTP 中的所有文件并在下载完成后删除它们。 当我尝试批量运行时，
我有一个 *+* 形式的字符串 base。我想得到+之前的所有内容。例如，如果 base=foo+bar，我想获取 foo。 我尝试过使用字符串替换来实现 set left=%base:+*=% 但这
我需要创建几十个表，并且我需要它们是innodb， 有没有办法做到这一点，而不是将 engine=innodb 附加到每个 create table 语句？ 最佳答案 可以在服务器级别指定默认引擎，在
我正在尝试制作显示 unix/linux 提示符的 dos shell。代码是: @echo off :hi set tmpdrv=%cd:~0,2% if %homedrive% == %tmpdr
我有以下代码，基本上是在二维矩阵的每一行上进行一维卷积。卷积核是一样的。所以真的是 SIMD 案例。 a = [ 1,2,3,4,5; 6,7,8,9,7; 7,6
情况: 我尝试在 shell 中的循环内移动文件，但我的代码无法正常工作。 for /D %%F in (*) do ( if "%%F" NEQ "%directoryToPutFilesIn
目录包含 2 个(或更多)任意名称的视频文件。 video1.mkv video2.mkv 需要找出每个视频的持续时间。为此，我们使用 MediaInfo . setlocal EnableDelay
如何在 Windows 中批量删除数千个文件中的空格(而不是替换为下划线)？我可以从 DOS 命令执行此操作吗？ 目前: file one.mp3 file two.mp3 所有文件需要变成: fil
我想创建一个批处理文件，它读取 2 个不同的值，并根据它们的比较方式进行相应处理。但是，比较永远不会起作用。代码是: REM string1 and string2 contain the follo
我正在尝试将一个文件夹的子文件夹复制到许多其他名称未知的文件夹中。目的是在所有使用它的员工文件夹中备份程序的源文件。如果在员工文件夹中找不到程序文件夹，则不应执行任何操作。这看起来如下: 来源: F:
我正在寻找一种简单的方法来检测一小段文本(几句话)是否为英语。在我看来，这个问题比尝试检测任意语言要容易得多。有没有可以做到这一点的软件？我正在用 python 编写，并且更喜欢 python 库，但
我们正在尝试向 8k 种不同的设备发送促销推送消息。我们正在成功响应推送通知 URL https://fcm.googleapis.com/fcm/send 但只有部分用户收到此通知，并非全部。那么
基本上我只是用这一段来替换我的 var 中的一个字符串，但我无法让嵌套延迟扩展正常工作。这甚至可能吗？ set replace=!replace:!search!=!replaceVal!! 我知道执
如何使用 ffmpeg 对一批视频文件进行编码，使用相同的设置？ 我找到了 one-line solution将当前文件夹中的 .avi 文件转换为 .mov。请注意，我要编码 .mov -> .mo
我正在尝试制作一个批处理文件，每次循环时都会将变量增加 1，然后检查变量是否等于 5，如果不是，则再次循环。我知道这可能有一个 while 循环，但我不知道如何做到这一点，我现在只是享受学习 Batc
我正在尝试创建一个循环，读取多个 CSV 文件，这些文件都具有相同类型的气温数据。但是，我想跳过数据上方的行。这些是数据集中的“警报”。每个文件可能有不同数量的警报，因此要跳过不同数量的行。见下文:
因此，我正在批量创建一个Mail程序，而消息传递部分出现了问题。 消息传递部分是无限循环。 当我输入多个单词时，它会崩溃。 这是代码。请帮忙! :rep set line= set /p line=
我是一名优秀的程序员,十分优秀！