标题: [问题求助] VBS怎么把含unicode字符的内容写入到文本 [打印本页]
作者: 328612167 时间: 2020-12-4 19:25 标题: VBS怎么把含unicode字符的内容写入到文本
本帖最后由 328612167 于 2020-12-15 08:08 编辑
VBS怎么把含unicode字符的内容写入到文本?
下行是要写入文本的内容,注意”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://bathome.net./) |
Powered by Discuz! 7.2 |