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

Rank: 1

帖子
6 
积分
19 
技术
0  
捐助
0  
注册时间
2017-3-30 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2017-3-30 18:04 | 只看该作者

[文本处理] 系统命令systeminfo>1.txt如何输出保存为unicode编码

本帖最后由 pcl_test 于 2017-3-30 18:09 编辑

cmd.exe支持命令/u
CMD [/A | /U] [/Q] [/D] [/E:ON | /E:OFF] [/F:ON | /F:OFF] [/V:ON | /V:OFF]
    [[/S] [/C | /K] string]

/C      执行字符串指定的命令然后终止
/K      执行字符串指定的命令但保留
/S      修改 /C 或 /K 之后的字符串处理(见下)
/Q      关闭回显
/D      禁止从注册表执行 AutoRun 命令(见下)
/A      使向管道或文件的内部命令输出成为 ANSI
/U      使向管道或文件的内部命令输出成为
        Unicode
/T:fg   设置前台/背景颜色(详细信息见 COLOR /?)
延迟的环境扩展。

cmd.exe /u /c echo 1234>1.txt,发现1.txt是unicode编码模式，那么我用systeminfo>1.txt怎么保存为unicode文本呢
收藏 分享

ShowCode

Rank: 8Rank: 8

帖子
567 
积分
1151 
技术
91  
捐助
298  
注册时间
2017-3-17 
2楼
发表于 2017-3-30 18:29 | 只看该作者
test.bat
  1. powershell -c "systeminfo | Out-File -Encoding unicode 1.txt"
复制代码

TOP

greless

Rank: 1

帖子
6 
积分
19 
技术
0  
捐助
0  
注册时间
2017-3-30 
3楼
发表于 2017-3-30 18:40 | 只看该作者
回复 2# ShowCode


    可以用，谢谢

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
4楼
发表于 2017-3-30 20:46 | 只看该作者 
  1. powershell -c "Set-Content 'm.txt' -Value (systeminfo) -Encoding Unicode"
复制代码

TOP

greless

Rank: 1

帖子
6 
积分
19 
技术
0  
捐助
0  
注册时间
2017-3-30 
5楼
发表于 2017-3-31 09:09 | 只看该作者
回复 4# Nsqs


你好，  跟 2楼有什么区别

TOP

ai20110304

Rank: 2

帖子
112 
积分
124 
技术
0  
捐助
0  
注册时间
2015-10-10 
6楼
发表于 2017-3-31 10:40 | 只看该作者
That's great

TOP

老刘1号

Rank: 8Rank: 8

帖子
1000 
积分
1789 
技术
205  
捐助
50  
注册时间
2016-4-17 
7楼
发表于 2017-3-31 12:59 | 只看该作者
本帖最后由 老刘1号 于 2017-3-31 13:11 编辑

格式：bat,cmd,vbs,vbe随意
  1. '&wscript -e:vbscript "%~0"

  2. Set oShell = CreateObject("WScript.Shell")

  3. Set oExec = oShell.Exec("systeminfo.exe")

  4. Do While Not oExec.StdOut.AtEndOfStream

  5.     s = oExec.StdOut.ReadAll()

  6. Loop

  7. Const ForReading = 1, ForWriting = 2, ForAppending = 8

  8.    Dim fso, f

  9.    Set fso = CreateObject("Scripting.FileSystemObject")

  10. 	fso.CreateTextFile ".\systeminfo.txt",true,true

  11.    Set f = fso.OpenTextFile(".\systeminfo.txt", ForWriting, True,-1)

  12.    f.Write s

  13.    f.Close

  14. oshell.run ".\systeminfo.txt"
复制代码

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
8楼
发表于 2017-3-31 16:11 | 只看该作者
回复 5# greless


    管道符|,一般都用不上,用管道符反而加长程序执行时间

TOP

返回列表