找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 15854|回复: 1

已解决 20元求助程序

  [复制链接]
发表于 2019-12-18 12:14:01 | 显示全部楼层 |阅读模式
本帖最后由 ws1870 于 2019-12-18 17:54 编辑

1首先将样本实例.txt文件转换成16进制文件

转换后生成新文件,文件命名为为”当前日期-16.txt”文件保留

2读取文件 当前日期-16.txt,截取前2位数字,转换成10进制,生成新文件,命名为 当前日期-10-2.txt,文件保留

数据量为几百万条
qq2017427822
发表于 2019-12-18 15:44:27 | 显示全部楼层
  1. @echo off
  2. set info=互助互利,支付宝扫码头像,感谢赞助
  3. rem 有问题,可加QQ956535081及时沟通
  4. title %info%
  5. cd /d "%~dp0"
  6. powershell -NoProfile -ExecutionPolicy bypass ^
  7.     $f1='样本实例.txt';^
  8.     $d=(get-date).toString('yyyyMMdd');^
  9.     $text=[IO.File]::ReadAllLines($f1,[Text.Encoding]::Default);^
  10.     [System.Collections.ArrayList]$a=@();^
  11.     [System.Collections.ArrayList]$b=@();^
  12.     for($i=0;$i -lt $text.length;$i++){^
  13.         $line=[Convert]::ToString($text[$i], 16);^
  14.         [void]$a.add($line);^
  15.         [void]$b.add([Convert]::ToInt32($line.substring(0,2),16));^
  16.     };^
  17.     [IO.File]::WriteAllLines($d+'-16.txt', $a, [Text.Encoding]::Default);^
  18.     [IO.File]::WriteAllLines($d+'-10-2.txt', $b, [Text.Encoding]::Default);
  19. echo;%info%
  20. pause
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 04:04 , Processed in 0.016116 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表