【已完成】【100元】bat通过txt和其他，新增或修改csv文件

zaqmlp

开始

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

复制代码

zaqmlp

回复 15# linfeng_321


    如果这样，那么只要修改开始不就行了

linfeng_321

回复 17# zaqmlp


    这样也行，费用过去了