windows批处理

某同学让帮忙研究，写个脚本bat  根据剪切板保存的到文件中

//vbs网上参考内容好少

@echo off
setlocal enabledelayedexpansion
set ms=mshta vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(clipboardData.getData("text"))(close)
for /f "tokens=1*" %%i in ('!ms!') do (
  if %%i=="设备型号:" set "a=%%j"
  if %%i=="地区信息:" set "b=%%j"
  if %%i=="<a href="https://www.baidu.com/s?wd=%E5%BA%8F%E5%88%97%E5%8F%B7&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1d9nH04rARLrjbsuyfYuhNW0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3En1m4nHnkPHcYPHmYPHfLPW0Y" target="_blank" class="baidu-highlight">序列号</a>:" set "c=%%j"
  if "%%i"=="<a href="https://www.baidu.com/s?wd=IMEI&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1d9nH04rARLrjbsuyfYuhNW0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3En1m4nHnkPHcYPHmYPHfLPW0Y" target="_blank" class="baidu-highlight">IMEI</a>:" set "d=%%j"
)
>C:\Users\hanjianxiang\Desktop\mine\work\windows\copy2wirte\TEST.TXT echo %a%%b%:%c%:%d%
pause

//操作剪切板
set ms=mshta vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(clipboardData.getData("text"))(close)
//逐行读取,拼接
for /f "delims= " %%i in ('!ms!') do (
  set "a=!a!%%i"
)
//保存到指定的文件中
>>C:\Users\hanjianxiang\Desktop\mine\work\windows\copy2wirte\T.TXT echo %a%

详见
for使用
/f  循环读入
delims= 分隔符
tokens=1* 后面接数字，表示提取的列数


2016年2月22日18:03:24  //TODO
bug 居然无法复制空格