[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
328612167

Rank: 1

帖子
27 
积分
53 
技术
0  
捐助
0  
注册时间
2015-7-7 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2020-12-4 19:25 | 只看该作者

[问题求助] VBS怎么把含unicode字符的内容写入到文本

本帖最后由 328612167 于 2020-12-15 08:08 编辑

VBS怎么把含unicode字符的内容写入到文本？
下行是要写入文本的内容，注意”016T2”和“转接件”中间有一个字符，不知道什么格式，就是它不能写入文本文件
03-01-016T2 转接件


我将它保存为ANSI格式的文本时是显示为?号
03-01-016T2?转接件
收藏 分享

328612167

Rank: 1

帖子
27 
积分
53 
技术
0  
捐助
0  
注册时间
2015-7-7 
2楼
发表于 2020-12-4 19:30 | 只看该作者
那个中间的字符好像发不上来

TOP

328612167

Rank: 1

帖子
27 
积分
53 
技术
0  
捐助
0  
注册时间
2015-7-7 
3楼
发表于 2020-12-4 19:54 | 只看该作者
本帖最后由 328612167 于 2020-12-4 19:58 编辑

只能上传到百度网盘分享了
链接：https://pan.baidu.com/s/1vrLBjkU5s_ziHQq92F3foA
提取码：1234

就是文件夹名称中含的字符

TOP

328612167

Rank: 1

帖子
27 
积分
53 
技术
0  
捐助
0  
注册时间
2015-7-7 
4楼
发表于 2020-12-10 16:33 | 只看该作者
本帖最后由 328612167 于 2020-12-10 16:42 编辑

大家有没有试一试啊
把那个字符替换为空格或删除也可以，如下行内容，我复制到这里就显示为？号，但用Replace(s0,"?","")来替换是没效果的
-020A1T?拖链转接板

TOP

zaqmlp

Rank: 5Rank: 5

帖子
961 
积分
1259 
技术
93  
捐助
0  
注册时间
2017-10-30 
5楼
发表于 2020-12-10 16:58 | 只看该作者 
  1. rem 获取zip文件名称并写入txt

  2. Set fso=CreateObject("Scripting.Filesystemobject")

  3. Set folder=fso.GetFolder(".")

  4. Set files=folder.Files

  5. Set f=fso.CreateTextFile("out.txt",2,True)

  6. For Each file In files

  7.     ext=fso.GetExtensionName(file.Path)

  8.     If LCase(ext) = "zip" Then

  9.         f.WriteLine file.Name

  10.     End If

  11. Next

  12. f.Close
复制代码
提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

TOP

328612167

Rank: 1

帖子
27 
积分
53 
技术
0  
捐助
0  
注册时间
2015-7-7 
6楼
发表于 2020-12-10 18:25 | 只看该作者
本帖最后由 328612167 于 2020-12-10 18:45 编辑

回复 5# zaqmlp
感谢回复
Set f=fso.CreateTextFile("out.txt",2,true)
创建的txt是UTF格式，可以写入
但是这个格式有点怪怪的，不好用
如下代码后面加上逐句读取文件的代码，无论打开文件的参数是-2，-1,0，msgbox都为空
  1. rem 获取zip文件名称并写入txt

  2. Set fso=CreateObject("Scripting.Filesystemobject")

  3. Set folder=fso.GetFolder(".")

  4. Set files=folder.Files

  5. txtdir="out.txt"

  6. Set f=fso.CreateTextFile(txtdir,2,1)

  7. For Each file In files

  8.     ext=fso.GetExtensionName(file.Path)

  9.     If LCase(ext) = "zip" Then

  10.         f.WriteLine file.Name	'写入文件名

  11.     End If

  12. Next

  13. f.Close

  14. 

  15. Set bchjl = fso.opentextfile(txtdir,1,-2) 

  16. Do Until bchjl.AtEndOfStream

  17. 	n0 = bchjl.ReadLine	'读取文件

  18. 	msgbox n0

  19. Loop  

  20. bchjl.Close
复制代码

TOP

328612167

Rank: 1

帖子
27 
积分
53 
技术
0  
捐助
0  
注册时间
2015-7-7 
7楼
发表于 2020-12-18 11:28 | 只看该作者
未解决.....

TOP

返回列表