Text文件编码转换vbs版本

最新推荐文章于 2024-05-08 12:52:38 发布
转载 最新推荐文章于 2024-05-08 12:52:38 发布 · 1.2k 阅读 · 0

本文介绍了一个简单的批处理脚本和VBScript脚本组合，用于将ANSI编码的文件转换为UTF-8编码。该解决方案包括两个部分：一个批处理文件用于启动转换过程，一个VBScript文件用于执行实际的编码转换。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

*** ANSI2UTF8. BAT ***

 

echo off

rem *** ANSI to UTF-8 ***
ANSI2UTF8.vbs "TMBAR01_bak.txt"

exit

 

*** ANSI2UTF8. VBS ***

 

  1. Set objArgs = WScript.Arguments
  2.         For I = 0 To objArgs.Count - 1
  3.             FileUrl = objArgs(I)
  4.             Call WriteToFile(FileUrl, ReadFile(FileUrl, "GB2312"), "UTF-8")
  5.         Next
  7. Function ReadFile(FileUrl, CharSet)
  8.     Dim Str
  9.     Set stm = CreateObject("Adodb.Stream")
  10.     stm.Type = 2
  11.     stm.mode = 3
  12.     stm.charset = CharSet
  13.     stm.Open
  14.     stm.loadfromfile FileUrl
  15.     Str = stm.readtext
  16.     stm.Close
  17.     Set stm = Nothing
  18.     ReadFile = Str
  19. End Function
  21. Function WriteToFile (FileUrl, Str, CharSet)
  22.     Set stm = CreateObject("Adodb.Stream")
  23.     stm.Type = 2
  24.     stm.mode = 3
  25.     stm.charset = CharSet
  26.     stm.Open
  27.     stm.WriteText Str
  28.     stm.SaveToFile FileUrl, 2
  29.     stm.flush
  30.     stm.Close
  31.     Set stm = Nothing
  32. End Function
[VBS]文件批量转编码
李大仁博客
08-16 683
工作中需要将大量GB2312编码的文件转换为UTF-8编码，Baidu找了一段很实用的VBS可以有效解决问题。使用方法也很简单，添加到工程调用ConvertFile即可。需要注意的是Adodb.Stream方式生成的UTF-8文件的头部会抱憾3个字节的BOM，处理PHP之类的无BOM要求的文件时需要注意一下。Function ConvertFile(FileUrl) SrcCode = "g
批量将ANSI文本txt文件转换成UTF8编码格式 (vbs方法)
weixin_30291791的博客
08-20 2263
准备两个文件即可 conv.vbs run.bat conv.vbs源码 '用法：将要更改编码的所有文件放到同一个文件夹中，将文件夹拖到该vbs上，输入要转换成的字符编码 Dim fso,fd,fl,f,fdpath,charset On Error Resume Next If WScript.Arguments.Length>=1 Then fdpath = ...
命令行中用VBS实现本文文件编码互换
05-02
终于找到了，之前有发过只能ANSI编码转Unicode编码，这次是多个工具合集，包括CMD环境中用命令方式实现ANSI编码文本文件转为Unicode、Unicode转ANSI……呵呵太好了！
vbs转换文件编码
weixin_34004576的博客
03-16 960
贴代码做个记号，回家再慢慢修改 '-------------------------------------------------'函数名称:ReadFile'作用:利用AdoDb.Stream对象来读取各种格式的文本文件'----------------------------------------------------Funct...
一个转换编码格式的VBS脚本
pdcxs007的专栏
03-20 7427
今天看到了一个转换编码格式的VBS脚本程序，但是只能转换2种，改造了一下，可以自己指定转换格式。支持： utf-8 ansi 或者是 gb2312 unicode 之间的相互转换。自动探测文件格式，手工指定输出格式，默认输出格式为utf-8。可以直接改变文件编码，也可以输出为另外的一个文件。支持强制覆盖选项。
编码汇总
能力改变命运，心态决定一切！
11-16 1227
从基础的开始最小的单元是位（bit），接着是字节（Byte），一个字节＝8位，英语表示是1 byte=8 bits 。机器语言的单位Byte。接着是KB，1 KB=1024 Byte; 接着是MB，1 MB=1024 KB; 接着是GB，1 GB=1024 MB ;接着是TB, 1TB=1024 GB。接着是进制：二进制0和1，8进制0-7， 十进制不用说，10进制0-9后面是A,B,C,D,E,
vbs实现unicode和ascii编码转换
09-04
在VBScript（Visual Basic Script）中，编码转换是常见的任务之一，特别是在处理文本文件时。本文将详细讨论如何使用VBScript实现Unicode编码到ASCII编码的转换，并介绍`OpenTextFile`和`CreateTextFile`两个核心...
将HTML或txt文件转换为ASP输出的vbs代码
09-05
标题所提及的"将HTML或txt文件转换为ASP输出的vbs代码"，实际上是一种自动化处理方式，通过VBScript读取文本文件，然后将其内容转化为ASP能够理解并执行的`Response.Write`语句，从而实现批量输出内容。 以下是对这...
Base64编码的vbs实现
Jaly的博客
07-05 3735
继续vbs的学习，顺便学习Base64。为了查汉字是以什么形式编码的花了半天时间~~       现在应该是挺完美的，有错误的话，麻烦指正。改日再写个解码的。 功能：把数据转成base64编码 使用说明：把下面的另存为.vbs文件，然后直接拖带编码的文件到这个vbs（可以包括不可见字符）或者运行后输入待编码的数据即可。（注意：待编码文件请另存为utf-8,如下图：） Set arg
vbs能调用的系统对象小结
08-27
- `TextToSpeech.TextToSpeech`: 文本转语音引擎。 #### 操作系统相关对象 操作系统相关对象用于操作系统级别的操作。 - **对象**: - `JSDLG.Browser`: 浏览器窗口。 - `JSBIN.BinaryOps`: 二进制操作。 - `...
vbs脚本实现批量转换文件编码
09-04
主要介绍了vbs脚本实现批量转换文件编码,可以批量对文件在Gb2312和UTF-8编码间互相转换,需要的朋友可以参考下
使用vbs脚本进行批量编码转换
weixin_34128501的博客
06-11 238
使用vbs脚本进行批量编码转换   最近需要使用SourceInsight查看分析在Linux系统下开发的项目代码，我们知道Linux系统中文本文件默认编码格式是UTF-8，而Windows中文系统中的默认编码格式是Gb2312。系统内的编码格式有所区别倒无伤大雅，关键的是SourceInsight竟不支持UTF-8，导致项目代码内的中文注释全部乱码！ 既然SourceInsight不支...
VBScript编码规范格式
feng_sundy 的专栏
10-27 1390
VBScript编码规范格式代码规范：TYPE="typelib" FILE="C:/Program Files/Common Files/System/ADO/msado20.tlb"-->加入的文件%>代码版权说明:========================================================= File: 文件名.asp V
批量转换文本格式为UTF-8
依旧的博客
12-04 2223
新建一个 conv.vbs 文件 把下面的代码复制进去 '用法：将要更改编码的所有文件放到同一个文件夹中，将文件夹拖到该vbs上，输入要转换成的字符编码 Dim fso,fd,fl,f,fdpath,charset On Error Resume Next If WScript.Arguments.Length>=1 Then fdpath = WScript.Arguments(0) ...
vbs 读unicode 编码格式的文件
weixin_30412577的博客
07-18 479
使用VBS 写了一个函数来读取一个txt文件，函数如下： Dim fso,hf Function readProgFile(byval progFileName) Dim progStrLine progStrLine = "" Set fso = CreateObject("Scripting.Fi...
VBScript与文件的编码
dgiij的博客
05-08 756
VBScript源码里如果有汉字串，那么它应该是ansi编码的，你从文件里得到的相应内容如果是其他编码的，比如utf-8的，如果要进行比较，那么需要转换成同样的编码，或者干脆要求提供内容的源文件也是ansi编码的，免得在脚本中还要处理编码转换。注意了，此处Charset的默认值是Unicode，例程中设置的是GBK而不是ansi 因为ansi并不是一个特定的编码格式，windows环境下的不同语言的版本下可能不一样，比如中文简体的ansi可能是GBK，而中文繁体下ansi可能是Big5。
VBS编译出现中文汉字乱码怎么解决？？？
aaistudy的博客
09-21 2082
VBS编译乱码解决方法
VBScript把文档修改为UTF-8格式
天灵狐的小岛
11-27 4189
参考文档：http://www.cnblogs.com/waver/articles/1283842.html 但是，这位仁兄写的函数，我发现并不能用。 于是，做了一点小修改。我想，应该是有方法做的更好的。 如果下次我这里再有这样的需求，我便来研究一下。 在改之前，提示我LoadFile有问题。 函数更改： Function WriteToFile(file, Message)
VBScript将字符串保存为UTF-8编码不带BOM的文本文件
dgiij的博客
03-06 807
后来看到有网友推荐了一个高级玩法，说前面的处理方式是要将整个字符串编码写入两个流，当字符串很长时，有空间和性能的较多开销，可以在文本流中仅写入一个字符，然后Copy到二进制流，然后在二进制流中进行以下操作：设置结尾标识，计算下流长度，然后重新定位到起始位置，更改流类型为文本流，UTF-8编码，然后再定位到第一个字符编码位置后，写入原字符串后面的所有字符信息，然后再定位到起始位置，更改流类型为二进制流，然后写入文件，这样也可以一个得到没有BOM的UTF-8的文本文件了。没有毛病，我也是这样处理的。
vbs bool
最新发布
03-22
<think>嗯，用户现在问的是关于VBScript中的布尔类型（Boolean）。我需要先回忆一下VBScript的相关知识，确保自己记得准确。首先，VBScript的Boolean类型只有两个值，True和False，对吗？对的，没错。不过用户可能想知道的是如何声明、使用，以及可能的一些注意事项。 接下来，我要考虑用户可能的背景。用户可能之前问了关于多维数组的问题，现在转向布尔类型，可能是正在学习VBScript的基础知识，或者在编写脚本时遇到了相关的问题。比如，可能在条件判断或者循环中使用布尔变量时遇到了困惑，比如为什么某些值会被隐式转换为True或False，或者如何正确地进行逻辑运算。 用户的问题比较简短，只是“vbs bool”，可能希望得到一个全面的介绍，包括声明、赋值、逻辑运算，以及常见的问题。这时候我需要结构化地回答，分点说明，让用户容易理解。 首先，应该介绍Boolean类型的基本概念，说明它只有两个值。然后是如何声明和初始化布尔变量，给出示例代码。接下来可能需要提到布尔运算，比如AND、OR、NOT，以及XOR这些运算符的使用和注意事项，比如短路逻辑的问题，因为VBScript中的逻辑运算符不是短路的，这一点可能需要特别提醒用户，尤其是如果他们有其他语言的背景，比如C#或Java，可能会觉得不同。 然后，关于隐式类型转换的部分也很重要。比如，非零数字会被视为True，0为False，字符串或对象为空的情况如何处理。这里可能需要举例说明，比如If语句中的条件判断，哪些值会被当作True或False，避免用户在使用时出现错误。 还有，可能需要提到常见的错误或陷阱。例如，直接使用数值进行逻辑运算而不进行显式的比较，或者误解运算符的优先级，导致逻辑错误。这时候给出示例代码说明正确的做法和错误的做法会很有帮助。 另外，用户可能想知道布尔类型在实际中的应用场景，比如在条件判断、循环控制、函数返回布尔值等。这时候可以举一些实际的例子，比如函数返回True/False表示操作是否成功，或者在循环中使用布尔变量作为标志位。 还要注意VBScript和其他语言在布尔处理上的差异，比如VBScript中True实际上是-1，而其他语言可能是1，这一点可能需要解释清楚，避免用户混淆。特别是在与其他系统交互时，可能需要转换布尔值的表示形式。 最后，总结一下使用布尔类型的最佳实践，比如显式初始化变量，避免隐式转换可能带来的问题，使用括号明确运算优先级等。这样用户在实际编码时可以避免一些常见的错误。 需要确保回答结构清晰，分点说明，每个部分用标题分隔，代码示例正确且用适当的格式标记出来。同时，语言要简洁明了，避免使用过于专业的术语，让初学者也能理解。可能还需要检查是否有遗漏的重要点，比如布尔数组的使用，或者在VBScript中布尔类型与其他数据类型的比较等。不过考虑到VBScript的功能有限，可能不需要涉及太复杂的内容，保持回答的实用性和针对性更重要。</think>--- ### 一、VBScript中的布尔类型（Boolean） 在VBScript中，`Boolean` 是一种逻辑数据类型，仅包含两个值： - **`True`**：表示逻辑真（实际存储值为 `-1`） - **`False`**：表示逻辑假（实际存储值为 `0`） --- ### 二、基础操作 #### ▶ 声明与赋值 ```vbscript Dim isReady isReady = True '直接赋布尔值 Dim result result = (10 > 5) '通过表达式生成布尔值 ``` #### ▶ 逻辑运算 | 运算符 | 功能 | 示例 | 输出结果 | |--------|---------------|--------------------------|------------------| | `And` | 逻辑与 | `True And False` | `False` | | `Or` | 逻辑或 | `True Or False` | `True` | | `Not` | 逻辑非 | `Not True` | `False` | | `Xor` | 逻辑异或 | `True Xor True` | `False` | --- ### 三、隐式类型转换规则 VBScript会自动将其他类型转换为布尔值： | 原类型 | 转换规则 | 示例 | |--------------|------------------------------------|---------------------| | **数值** | `0` → `False`，非零 → `True` | `If -3 Then ...` → 真 | | **字符串** | 空字符串 → `False`，非空 → `True` | `If "" Then ...` → 假 | | **对象** | `Nothing` → `False`，否则 → `True` | `If obj Then ...` | | **Null** | 始终视为 `False` | `If Null Then ...` | --- ### 四、常见陷阱与解决方案 #### 1. **非短路逻辑问题** VBScript的逻辑运算符 **不会短路计算**，即使左侧已确定结果： ```vbscript '即使 x=0，仍会执行除法操作，导致错误 If (x <> 0) And (y/x > 1) Then ``` **修复方案**： ```vbscript If x <> 0 Then If y/x > 1 Then '安全操作 End If End If ``` #### 2. **与数值混用时的问题** ```vbscript Dim flag flag = 5 '非零数值会被视为True If flag Then '等价于 If True MsgBox "条件成立" '会执行 End If ``` **推荐做法**： ```vbscript If flag = True Then '显式比较 '只有当flag显式为True时才触发 End If ``` --- ### 五、实际应用示例 #### 场景：验证用户输入 ```vbscript Function IsValidInput(inputText) Dim isValid isValid = (Len(inputText) >= 6) '长度≥6 isValid = isValid And (InStr(inputText, "@") > 0) '包含@符号 IsValidInput = isValid End Function '调用验证 If IsValidInput("user@example") Then MsgBox "输入有效" Else MsgBox "输入无效" End If ``` --- ### 六、扩展知识 #### 布尔值的实际存储 - `True` 在内存中存储为 `-1`（二进制补码为全1） - `False` 存储为 `0` ```vbscript MsgBox CInt(True) '输出 -1 MsgBox CInt(False) '输出 0 ``` --- ### 七、最佳实践 1. **显式初始化**： ```vbscript Dim flag : flag = False '避免未定义状态 ``` 2. **优先使用布尔表达式**： ```vbscript '推荐 If Not recordset.EOF Then '不推荐 If recordset.EOF = False Then ``` 3. **注意运算符优先级**： ```vbscript '使用括号明确意图 If (A Or B) And C Then ``` --- 如果需要与其他系统交互（如.NET），需注意： - VBScript的 `True`（-1）与.NET的 `True`（1）不同，跨平台时可能需要转换。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值