请教高难度 shell脚本 搞定加微信发红包奖励

xin2v

来源:新京报 网址:http://www.mxy4grjo.cn/a/www.wenjiao.ozhou.com.cn/

　　北京市经济和信息化局赴北汽集团开展调研工作 你将有机会建立国际人脉，获得更广阔的就业机会。其中改革比较多就是托福写作，可以用2个关键字抓住改革的关键字1：短：改革之前要求在30分钟内完成至少300字的独立写作，而现在只要求100字，当然时间也缩短到10分钟。

播报:

cfwyy

1. gawk 'BEGIN{FS=OFS="|"}$22 ~"Citizen"{$23="\"US\""} $4~ "\"\""{$23="\"DKK_US\""} $22 ~"OTH|Resident|Citizen|\"\""{print $0}' A.txt
   

复制代码

试试看。

wh7211

回复 1# xin2v

1. awk 'BEGIN{FS=OFS="|"}{if($22~"OTH|Resident"){NF=NF}else if($22~"Citizen|Dual_Citizen"){$23="\042US\042"}else if($22~"\042\042"){$23="\042DKK_US\042"}else{next}}1' A

复制代码

本友会机友会摄友会

楼主文本多少行，列？

本友会机友会摄友会

1 这个不难。
2
======================================================
问：为何不建议大家使用txt，csv保存数据？
答：
好的沙发是宝贝，断腿沙发和它差不多，却是垃圾。
整理好的数据是宝贝，杂乱堆放在txt，log中的未处理数据，却是垃圾。
csv中用单双引号，数据没有相关的类型绑定，没有精度绑定。

如果说raw是，干净的裸数据。

txt不是干净的裸数据，txt是字符串，它含有杂乱格式，空格，tab，分隔符。
大多数情况下，字段顺序也都未整理。

excel就是，干净的裸数据，加富类型。
excel中的数据也不是最好的，也需要整理。



======================================================
问：excel有何好处？
答：
1 excel可以合并单元格。
2 支持图表，公式。
3 单元格内支持单双引号，单元格内的数据有，类型，有精度。
4 有图形软件，操作简单。
等。

3 win + excel + powershell ，测试通过，结果正常。

1. 
   
2. $输入文件 = 'a:\pscode\0\excel\temp209\b.xlsx'
   
3. 
   
4. 
   
5. 
   
6. #region main
   
7. $excel对象 = New-Object -comobject Excel.Application
   
8. $SheetName = "sheet1"
   
9. $Excel工作簿 = $excel对象.Workbooks.Open($输入文件)
   
10. $Excel工作表 = $Excel工作簿.Worksheets.Item($SheetName)
    
11. $excel对象.Visible = $true
    
12. $列 = 23
    
13. $列2 = 24
    
14. 
    
15. $行 = 1
    
16. $最大行 = $Excel工作表.UsedRange.rows.count
    
17. write-host $最大行
    
18. 
    
19. for ($i = $行;$i -le $最大行;$i++)
    
20. {
    
21.         $单元格 = $($Excel工作表.Cells.Item($i,$列).Value2).ToString()
    
22.         switch ($单元格)
    
23.         {
    
24.                 'OTH' {break}
    
25.                 'Resident' {break}
    
26.                 'Citizen' {$Excel工作表.Cells.Item($i,$列2).Value2 = "US";break}
    
27.                 'Dual_Citizen' {$Excel工作表.Cells.Item($i,$列2).Value2 = "US";break}
    
28.                 '' {$Excel工作表.Cells.Item($i,$列2).Value2 = "DKK_US";break}
    
29.                 default {[void]$Excel工作表.Cells.Item($i,$列).EntireRow.Delete() }
    
30.         }
    
31. }
    
32. [void]$Excel工作表.Cells.Item($i,$列).EntireColumn.Delete()
    
33. 
    
34. 
    
35. 
    
36. 
    
37. $Excel工作簿.save()
    
38. #endregion main
    
39. 
    
40. 
    
41. 
    
42. 
    
43. 
    
44. #region  扫尾
    
45. Start-Sleep 2
    
46. $Excel工作簿.close()
    
47. Remove-Item  "$home\documents\resume.xlw" -ErrorAction:SilentlyContinue
    
48. Start-Sleep 2
    
49. $excel对象.Quit()
    
50. 
    
51. 
    
52. Start-Sleep 2
    
53. [System.Runtime.InteropServices.Marshal]::ReleaseComObject($Excel工作簿)
    
54. [System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel对象)
    
55. [System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel对象)
    
56. Start-Sleep 2
    
57. [System.GC]::Collect()
    
58. [System.GC]::WaitForPendingFinalizers()
    
59. 
    
60. Remove-Item  "$home\documents\resume.xlw" -ErrorAction:SilentlyContinue
    
61. Write-Host "------------end-------------"
    
62. Write-Host "---脚本运行完毕后，输入exit命令退出powershell窗口。或点击右上角的x，关闭powershell窗口，后台excel.exe即可自动退出。---"
    
63. exit 0
    
64. #endregion  扫尾
    
65. 
    

复制代码

不知道为啥，最近处理行列表格数据的需求，多起来了。
我打算安利一波 ps + excel 处理表数据。

大家记住，ps （或py）+ excel 是高级的数据处理！

雷锋28网xin2v

本友会机友会摄友会 发表于 2018-12-11 12:28
1 这个不难。
2
======================================================

大哥 是LINUX 服务器啊

xin2v

回复 2# cfwyy

如果需求变了原来是
如果22列的值 不为空 也不是上面 四个值 其删除改行
现在是不删除  该如何处理 ？

xin2v

wh7211 发表于 2018-12-10 12:23
回复 1# xin2v

如果需求变了原来是
如果22列的值 不为空 也不是上面 四个值 其删除改行
现在是不删除  该如何处理 ？

xin2v

awk 'BEGIN{FS=OFS="|"}{if($4~"OTH|Resident"){NF=NF}else if($4~"Citizen|Dual_Citizen"){$5="\042US\042"}else if($4~"\042\042"){$5="\042DKK_US\042"}}1' A

想通了 谢谢

RG_INPUT