批处理之家 - Powered by Discuz! Board

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

作者: 328612167 时间: 2020-12-4 19:25 标题: VBS怎么把含unicode字符的内容写入到文本

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

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

03-01-016T2 转接件

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

作者: 328612167 时间: 2020-12-4 19:30

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

作者: 328612167 时间: 2020-12-4 19:54

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

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

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

作者: 328612167 时间: 2020-12-10 16:33

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

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

作者: zaqmlp 时间: 2020-12-10 16:58

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

本帖最后由 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

未解决.....

欢迎光临批处理之家 (http://www.bathome.net/)