Board logo

标题: [问题求助] 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

  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
复制代码

作者: 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都为空
  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. Set bchjl = fso.opentextfile(txtdir,1,-2)
  15. Do Until bchjl.AtEndOfStream
  16. n0 = bchjl.ReadLine '读取文件
  17. msgbox n0
  18. Loop  
  19. bchjl.Close
复制代码

作者: 328612167    时间: 2020-12-18 11:28

未解决.....




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2