[已解决]VBS获取WMI指定命名空间信息保存为txt文本不能正常换行

czjt1234

VBS把字符串写入文本文档后，回车符为何不能正确显示？

1. Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
   
2. Set objSWbemServices = objSWbemLocator.ConnectServer()
   
3. Set objSWbemObject = objSWbemServices.Get("Win32_Process=4")
   
4. strText = objSWbemObject.GetObjectText_()
   
5. Wscript.Echo strText
   
6. 
   
7. Set objAdodbStream = CreateObject("Adodb.Stream")
   
8. With objAdodbStream
   
9.     .Type = 2
   
10.     .Mode = 3
    
11.     .Open
    
12.     .Charset = "unicode"
    
13.     .WriteText strText
    
14.     .SaveToFile "D:\test.txt", 2
    
15.     .Close
    
16. End With

复制代码

这个字符串写入文本文档后，回车符不能正确显示

换了Charset = "utf-8"  "CN-GB"也不行

该怎么处理？

Demon

为什么那么多人还在用记事本

czjt1234

我看了啊，你刚回了我就看了

不过你的回复我不知道怎么回帖而已，以为你只是随口一说

因为Word打开比较慢，所以用txt

而且我原来就试过存为.rtf，用写字板打开是正常的

Demon

Windows换行符是\r\n，Linux换行符是\n，Mac换行符是\r

记事本只支持Windows换行符

昨天已经告诉你是记事本的问题了，真的需要说的那么明白？

czjt1234

我试了这个参数，设置分行符

intNumber = objAdodbStream.LineSeparator        '返回当前分行符。默认值为 -1
objAdodbStream.LineSeparator = 13|-1|10                '设置分行符
Const adCR   = 13        '回车
Const adCRLF = -1        '回车换行
Const adLF   = 10        '换行

还是不行，也无法读取它是什么分行符

那请问怎么样读取和修改分行符？

Demon

朽木不可雕也

1. 
   
2. Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
   
3. Set objSWbemServices = objSWbemLocator.ConnectServer()
   
4. Set objSWbemObject = objSWbemServices.Get("Win32_Process=4")
   
5. strText = objSWbemObject.GetObjectText_()
   
6. Wscript.Echo strText
   
7. 
   
8. Set objAdodbStream = CreateObject("Adodb.Stream")
   
9. With objAdodbStream
   
10.     .Type = 2
    
11.     .Mode = 3
    
12.     .Open
    
13.     .Charset = "unicode"
    
14.     .WriteText Replace(strText, vbLf, vbCrLf)
    
15.     .SaveToFile "D:\test.txt", 2
    
16.     .Close
    
17. End With
    

复制代码

czjt1234

原来如此

万分感谢

Demon

换个高级点的编辑器吧少年，记事本不是你能驾驭的。