[脚本分享][后处理下载]从CSV文件中读取数据——[配置表]的应用-第二期

destiny0515

上期回顾

让后处理修改变得简单点——[配置表]的应用-第一期

http://www.ugsnx.com/thread-287824-1-1.html

(出处: UG爱好者)

我们也许会觉得txt格式的配置表不够清爽，蜗牛是带有一点点强迫症的。

如果我们做成csv格式的呢？

这样看着会舒服很多吧 :D

那么怎么从后处理中获取数据呢？

这次分享通过运行一个脚本获取csv文件中的数据。

在表格中，设1行A列的单元格坐标为（0,0）

需要获取的值为6行C列，即（5,2）；7行C列，即（6,2）

运行脚本

输出结果正确。

以下为脚本代码部分：

1. proc readCSV { channel { header 1 } { symbol , }} {
   
2. 
   
3.        set quote 0
   
4. 
   
5.        set data [ split [ read $channel nonewline ] "\n" ]
   
6. 
   
7.        foreach line $data {
   
8. 
   
9.               set quote [ expr { $quote + [ regexp -all " $line ]}]
   
10. 
    
11.               if { [ expr { $quote % 2 }] == "0" } {
    
12. 
    
13.                      set quote 0
    
14. 
    
15.                      append row_temp $line
    
16. 
    
17.                      set row_temp [ split $row_temp , ]   
    
18. 
    
19.                      foreach section $row_temp {
    
20. 
    
21.                             set quote [ expr { $quote + [ regexp -all " $section ]}]
    
22. 
    
23.                             if { [ expr { $quote % 2 }] == "0" } {
    
24. 
    
25.                                    append cell_temp $section
    
26. 
    
27.                                    set cell_temp [ regsub {"(.*)"} $cell_temp {\1} ]
    
28. 
    
29.                                    lappend cell $cell_temp
    
30. 
    
31.                                    unset cell_temp
    
32. 
    
33.                                    set quote 0
    
34. 
    
35.                             } else {
    
36. 
    
37.                                    append cell_temp $section$symbol
    
38. 
    
39.                             }
    
40. 
    
41.                      }
    
42. 
    
43.                      lappend final [ regsub -all {""} $cell " ]
    
44. 
    
45.                      unset cell
    
46. 
    
47.                      unset row_temp
    
48. 
    
49.               } else {
    
50. 
    
51.                      append row_temp $line\n
    
52. 
    
53.               }
    
54. 
    
55.        }
    
56. 
    
57.        # generate array if needed, or return $final here
    
58. 
    
59.        set row [ llength $final ]
    
60. 
    
61.        set column [ llength [ lindex $final 0 ]]
    
62. 
    
63.        if { $header == 1 } {
    
64. 
    
65.               for { set i 0 } { $i < $row } { incr i } {         
    
66. 
    
67.                      for { set j 0 } { $j < $column } { incr j } {
    
68. 
    
69.                             set csvData([ lindex [ lindex $final 0 ] $j ],$i) [ lindex [ lindex $final $i ] $j ]
    
70. 
    
71.                      }
    
72. 
    
73.               }
    
74. 
    
75.        } else {
    
76. 
    
77.               for { set i 0 } { $i < $row } { incr i } {         
    
78. 
    
79.                      for { set j 0 } { $j < $column } { incr j } {
    
80. 
    
81.                             set csvData($i,$j) [ lindex [ lindex $final $i ] $j ]
    
82. 
    
83.                      }
    
84. 
    
85.               }
    
86. 
    
87.        }
    
88. 
    
89.        return [ array get csvData ]
    
90. 
    
91. }
    
92. 
    
93. 
    
94. 
    
95. 
    
96. 
    
97. set csv [ open [file dirname [info script]]/config.csv {RDWR} ]
    
98. 
    
99. array set csvData [ readCSV $csv 0 ]
    
100. 
     
101. puts $csvData(5,2)
     
102. 
     
103. puts $csvData(6,2)
     
104. 
     
105. close $csv

复制代码

当我们在后处理中source脚本后，调用数组$csvData便得到配置表中的值了。

得到的值该如何去利用，可以参考上一期的贴子。

以下为后处理和脚本文件

后处理和脚本文件.rar (53.04 KB, 下载次数: 279)

2020-6-28 16:09 上传

点击文件名下载附件

做一件对行业有贡献的事情。

安周

沙发拿下，希望大师继续分享！有你越来越精彩。

yongpengxin

牛哥66666666666666

topckey

感谢分享,能出个后处理程序单就好了..{:smile:}

现在外挂的那些时间和刀长都不准确{:cry:}

fswbvip*

楼主太强大了！！！！！！！！！！！！！！！！！。

cathy937156252

楼主太强大了！！！！

在想什么呢

大师666

YANQH80

感谢分享，有你越来越精彩。

雨滴17

多谢分享

yous707

楼主太强大了,感谢。