VBS怎么把含unicode字符的内容写入到文本

328612167 · 发表于 2020-12-4 19:25:12

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

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

03-01-016T2 转接件

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

328612167 · 发表于 2020-12-4 19:30:50

那个中间的字符好像发不上来

328612167 · 发表于 2020-12-4 19:54:42

本帖最后由 328612167 于 2020-12-4 19:58 编辑

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

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

328612167 · 发表于 2020-12-10 16:33:54

本帖最后由 328612167 于 2020-12-10 16:42 编辑

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

zaqmlp · 发表于 2020-12-10 16:58:42

rem 获取zip文件名称并写入txt
Set fso=CreateObject("Scripting.Filesystemobject")
Set folder=fso.GetFolder(".")
Set files=folder.Files
Set f=fso.CreateTextFile("out.txt",2,True)
For Each file In files
ext=fso.GetExtensionName(file.Path)
If LCase(ext) = "zip" Then
f.WriteLine file.Name
End If
Next
f.Close

复制代码

328612167 · 发表于 2020-12-10 18:25:46

本帖最后由 328612167 于 2020-12-10 18:45 编辑

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

rem 获取zip文件名称并写入txt
Set fso=CreateObject("Scripting.Filesystemobject")
Set folder=fso.GetFolder(".")
Set files=folder.Files
txtdir="out.txt"
Set f=fso.CreateTextFile(txtdir,2,1)
For Each file In files
ext=fso.GetExtensionName(file.Path)
If LCase(ext) = "zip" Then
f.WriteLine file.Name '写入文件名
End If
Next
f.Close
Set bchjl = fso.opentextfile(txtdir,1,-2)
Do Until bchjl.AtEndOfStream
n0 = bchjl.ReadLine '读取文件
msgbox n0
Loop
bchjl.Close

复制代码

328612167 · 发表于 2020-12-18 11:28:20

未解决.....

		自动登录	找回密码
密码			注册

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

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

浏览过的版块