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

TOP

结束
  1. <# :
  2. cls&echo off&cd /d "%~dp0"&rem 编码ANSI
  3. powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
  4. pause
  5. exit
  6. #>
  7. $csvfile=".\..\记录.csv";
  8. $txtfile=".\文档\文件.txt";
  9. $ip='null';
  10. $wmi=Get-WmiObject -Class Win32_NetworkAdapterConfiguration|?{($_.IPEnabled -eq $true) -and ($_.Description -notmatch 'Virtual')};
  11. if($wmi.IPAddress -ne $null){
  12.     $ip=$wmi.IPAddress[0];
  13. }
  14. $filename='null';
  15. $author='null';
  16. $version='null';
  17. $enc=[Text.Encoding]::GetEncoding('GB2312');
  18. if(test-path -literal $txtfile){
  19.     $text=[IO.File]::ReadAllText($txtfile, $enc);
  20.     $m=[regex]::match($text, '@名称@=([^\r\n]+)');
  21.     if($m.Success){$filename=$m.groups[1].value;}
  22.     $m=[regex]::match($text, '@作者@=([^\r\n]+)');
  23.     if($m.Success){$author=$m.groups[1].value;}
  24.     $m=[regex]::match($text, '@版本@=([^\r\n]+)');
  25.     if($m.Success){$version=$m.groups[1].value;}
  26. }else{write-host ('"'+$txtfile+'" 未找到');}
  27. $parentfolder=(get-item -literal ".").Name;
  28. $endtime=(get-date).ToString('yyyy-MM-dd HH:mm:ss');
  29. $enc=[Text.Encoding]::GetEncoding('UTF-8');
  30. if(-not (test-path -literal $csvfile)){
  31.     write-host ('"'+$txtfile+'" 未找到');
  32.     exit;
  33. }else{
  34.     $oldtext=[IO.File]::ReadAllLines($csvfile, $enc);
  35.     $isexist=$false;
  36.     for($i=0;$i -lt $oldtext.count;$i++){
  37.         $brr=$oldtext[$i].trim('"') -split '","';
  38.         if($brr[2] -eq $parentfolder){
  39.             $isexist=$true;
  40.             $brr[0]=$env:USERNAME;
  41.             $brr[1]=$ip;
  42.             $brr[3]=$filename;
  43.             $brr[4]=$author;
  44.             $brr[5]=$version;
  45.             $brr[7]=$endtime;
  46.             $brr[8]="已完成";
  47.             $brr[9]=([int]$brr[9]+1).ToString();
  48.             $oldtext[$i]='"'+($brr -join '","')+'"';
  49.             break;
  50.         }
  51.     }
  52.     if($isexist){
  53.         [IO.File]::WriteAllLines($csvfile, $oldtext, $enc);
  54.     }else{
  55.         write-host '未开始';
  56.     }
  57. }
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

开始
  1. <# :
  2. cls&echo off&cd /d "%~dp0"&rem 编码ANSI
  3. powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
  4. pause
  5. exit
  6. #>
  7. $csvfile=".\..\记录.csv";
  8. $txtfile=".\文档\文件.txt";
  9. $ip='null';
  10. $wmi=Get-WmiObject -Class Win32_NetworkAdapterConfiguration|?{($_.IPEnabled -eq $true) -and ($_.Description -notmatch 'Virtual')};
  11. if($wmi.IPAddress -ne $null){
  12.     $ip=$wmi.IPAddress[0];
  13. }
  14. $filename='null';
  15. $author='null';
  16. $version='null';
  17. $enc=[Text.Encoding]::GetEncoding('GB2312');
  18. if(test-path -literal $txtfile){
  19.     $text=[IO.File]::ReadAllText($txtfile, $enc);
  20.     $m=[regex]::match($text, '@名称@=([^\r\n]+)');
  21.     if($m.Success){$filename=$m.groups[1].value;}
  22.     $m=[regex]::match($text, '@作者@=([^\r\n]+)');
  23.     if($m.Success){$author=$m.groups[1].value;}
  24.     $m=[regex]::match($text, '@版本@=([^\r\n]+)');
  25.     if($m.Success){$version=$m.groups[1].value;}
  26. }else{write-host ('"'+$txtfile+'" 未找到');}
  27. $parentfolder=(get-item -literal ".").Name;
  28. $starttime=(get-date).ToString('yyyy-MM-dd HH:mm:ss');
  29. $arr=@(
  30.     $($env:USERNAME);
  31.     $ip,
  32.     $parentfolder,
  33.     $filename,
  34.     $author,
  35.     $version,
  36.     $starttime,
  37.     "",
  38.     "制作中",
  39.     "0"
  40. );
  41. $enc=[Text.Encoding]::GetEncoding('UTF-8');
  42. $title='"本机当前用户名","本机IP地址","编号","名称","版本","作者","开始时间","结束时间","当前状态","制作次数"';
  43. if(-not (test-path -literal $csvfile)){
  44.     $line='"'+($arr -join '","')+'"';
  45.     $newtext=$title+"`r`n"+$line;
  46.     [IO.File]::WriteAllText($csvfile, $newtext, $enc);
  47. }else{
  48.     $oldtext=[IO.File]::ReadAllLines($csvfile, $enc);
  49.     $isexist=$false;
  50.     for($i=0;$i -lt $oldtext.count;$i++){
  51.         $brr=$oldtext[$i].trim('"') -split '","';
  52.         if($brr[2] -eq $parentfolder){
  53.             $isexist=$true;
  54.             $arr[9]=([int]$brr[9]+1).ToString();
  55.             $oldtext[$i]='"'+($arr -join '","')+'"';
  56.         }
  57.     }
  58.     if($isexist){
  59.         [IO.File]::WriteAllLines($csvfile, $oldtext, $enc);
  60.     }else{
  61.         $line='"'+($arr -join '","')+'"';
  62.         $newtext=($oldtext -join "`r`n")+"`r`n"+$line;
  63.         [IO.File]::WriteAllText($csvfile, $newtext, $enc);
  64.     }
  65. }
复制代码
1

评分人数

    • 5i365: 感谢分享技术 + 1
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表