如何在cygwin中使用awk打印Excel电子表格中的字段？

我们似乎看到越来越多关于在Excel电子表格上执行awk的问题，所以这里是关于如何做这件事情的Q/A。如何在cygwin中使用awk打印Excel电子表格中的字段？

我有一个Excel电子表格"$D/staff.xlsx"（其中"$D"是通向我的桌面）这样的信息：

Name Position 
Sue Manager 
Bill Secretary 
Pat Engineer

，我想打印位置字段为给定的名称，例如输出Secretary给出了输入Bill。

我目前可以保存为CSV从Excel获得：

$ cat "$D/staff.csv" 
Name,Position 
Sue,Manager 
Bill,Secretary 
Pat,Engineer

，然后运行：

$ awk -F, -v name="Bill" '$1==name{print $2}' "$D/staff.csv" 
Secretary

但是这是一个更大的任务的只是一小部分，所以我必须要能够自动从shell脚本执行此操作，而无需手动打开Excel以导出CSV文件。我如何从运行cygwin的Windows PC执行此操作？

来源

2016-08-06 Ed Morton

还有更好的工具来处理比简单的文本解析器更强大的转换。请参阅http://unix.stackexchange.com/questions/23726/convert-a-xlsx-ms-excel-file-to-csv-on-command-line-with-semicolon-separated以及与文件类型相关的任何其他链接从命令行转换。 –

另外，XLSX仅仅是一个zip文件，里面有xml文件。请参阅http://stackoverflow.com/questions/11082278/how-to-properly-assemble-a-valid-xlsx-file-from-its-internal-sub-components –

以下VBS和外壳脚本的组合为每一个片材在Excel电子表格的CSV文件：

$ cat xls2csv.vbs 
csv_format = 6 

Dim strFilename 
Dim objFSO 
Set objFSO = CreateObject("scripting.filesystemobject") 
strFilename = objFSO.GetAbsolutePathName(WScript.Arguments(0)) 
If objFSO.fileexists(strFilename) Then 
    Call Writefile(strFilename) 
Else 
    wscript.echo "no such file!" 
End If 
Set objFSO = Nothing 

Sub Writefile(ByVal strFilename) 
Dim objExcel 
Dim objWB 
Dim objws 

Set objExcel = CreateObject("Excel.Application") 
Set objWB = objExcel.Workbooks.Open(strFilename) 

For Each objws In objWB.Sheets 
    objws.Copy 
    objExcel.ActiveWorkbook.SaveAs objWB.Path & "\" & objws.Name & ".csv", csv_format 
    objExcel.ActiveWorkbook.Close False 
Next 

objWB.Close False 
objExcel.Quit 
Set objExcel = Nothing 
End Sub

。

$ cat xls2csv 
PATH="$HOME:$PATH" 

# the original XLS input file path components 
inXlsPath="$1" 
inXlsDir=$(dirname "$inXlsPath") 
xlsFile=$(basename "$inXlsPath") 
xlsBase="${xlsFile%.*}" 

# The tmp dir we'll copy the XLS to and run the tool on 
# to get the CSVs generated 
tmpXlsDir="/usr/tmp/${xlsBase}.$$" 
tmpXlsPath="${tmpXlsDir}/${xlsFile}" 
absXlsPath="C:/cygwin64/${tmpXlsPath}" # need an absolute path for VBS to work 

mkdir -p "$tmpXlsDir" 

trap 'rm -f "${tmpXlsDir}/${xlsFile}"; rmdir "$tmpXlsDir"; exit' 0 

cp "$inXlsPath" "$tmpXlsDir" 

cygstart "$HOME/xls2csv.vbs" "$absXlsPath" 

printf "Waiting for \"${tmpXlsDir}/~\$${xlsFile}\" to be created:\n" >&2 
while [ ! -f "${tmpXlsDir}/~\$${xlsFile}" ] 
do 
    # VBS is done when this tmp file is created and later removed 
    printf "." >&2 
    sleep 1 
done 
printf " Done.\n" >&2 

printf "Waiting for \"${tmpXlsDir}/~\$${xlsFile}\" to be removed:\n" >&2 
while [ -f "${tmpXlsDir}/~\$${xlsFile}" ] 
do 
    # VBS is done when this tmp file is removed 
    printf "." >&2 
    sleep 1 
done 
printf " Done.\n" >&2 

numFiles=0 
for file in "$tmpXlsDir"/*.csv 
do 
    numFiles=$((numFiles + 1)) 
done 

if ((numFiles >= 1)) 
then 
    outCsvDir="${inXlsDir}/${xlsBase}.csvs" 
    mkdir -p "$outCsvDir" 
    mv "$tmpXlsDir"/*.csv "$outCsvDir" 
fi

现在我们执行shell脚本，在内部调用cygstart到Excel文件是否存在命名基于Excel文件在同一目录下，运行在一个子目录中的VBS脚本来生成CSV文件（每页一个）名称（例如Excel文件staff.xlsx产生的CSV目录staff.csvs）：

$ ./xls2csv "$D/staff.xlsx" 
Waiting for "/usr/tmp/staff.2700/~$staff.xlsx" to be created: 
.. Done. 
Waiting for "/usr/tmp/staff.2700/~$staff.xlsx" to be removed: 
. Done.

只有一个片具有默认名称Sheet1在目标Excel文件"$D/staff.xlsx"这样的上述输出是一个文件：

$ cat "$D/staff.csvs/Sheet1.csv" 
Name,Position 
Sue,Manager 
Bill,Secretary 
Pat,Engineer 

$ awk -F, -v name="Bill" '$1==name{print $2}' "$D/staff.csvs/Sheet1.csv" 
Secretary

来源

2016-08-06 14:17:47

如何在cygwin中使用awk打印Excel电子表格中的字段？

回答

相关问题