Shell Programming and Scripting

source //Osascript_ForExcel_Shapes/Kernel/filelist_array
for $i in "${filelist_array[@]}"
        
osascript <<EOD
tell application "Microsoft Excel"
    activate
    set theWorkbookFile to "Macintosh HD:Osascript_ForExcel_Shapes:Working:"$i".xlsx"s
end tell
EOD

declare -a filelist_array  
filelist_array=(
"R18-310805_Market_Summer_Customer_Campaign_QR_0328"
"R18_223497_Summer_Insiders_Q_0314"
)

for i in "${filelist_array[@]}"
do
cat <<EOD
tell application "Microsoft Excel"
    activate
    set theWorkbookFile to "Macintosh HD:Osascript_ForExcel_Shapes:Working:"$i".xlsx"s
end tell
EOD
done > outputfile

while read FILENAME
do
...
done < inputfile > outputfile

while true
 do
    cp /Osascript_ForExcel_Shapes/Kernel/Standing_filelist_array /Osascript_ForExcel_Shapes/Kernel/filelist_array
    ls /Osascript_ForExcel_Shapes/ExcelThumbs >> /Osascript_ForExcel_Shapes/Kernel/filelist_array
    sed -i '' -e s'/^/\"/g' /Osascript_ForExcel_Shapes/Kernel/filelist_array
    sed -i '' -e s'/\"declare/\declare/g' /Osascript_ForExcel_Shapes/Kernel/filelist_array
    sed -i '' -e s'/\"filelist/\filelist/g' /Osascript_ForExcel_Shapes/Kernel/filelist_array
    sed -i '' -e s'/\.xlsx/\"/g' /Osascript_ForExcel_Shapes/Kernel/filelist_array
    awk '1; END {print ")"}' /Osascript_ForExcel_Shapes/Kernel/filelist_array > tmp && mv tmp /Osascript_ForExcel_Shapes/Kernel/filelist_array
    source //Osascript_ForExcel_Shapes/Kernel/filelist_array
        for i in "${filelist_array[@]}"
            do
            mv /Osascript_ForExcel_Shapes/ExcelThumbs/"$i".xlsx /Osascript_ForExcel_Shapes/Working/                
done

osascript <<EOD
 tell application "Microsoft Excel"
    activate
    set theWorkbookFile to "Macintosh HD:Osascript_ForExcel_Shapes:Working:FILENAME.xlsx"
    open theWorkbookFile #open the xls file
    set theWorksheetname to name of worksheet 1 of active workbook
    set theWorksheet to worksheet 1 of active workbook
        
    tell application "Microsoft Excel" to set display alerts to false
    set targetFolder to ("Macintosh HD:Osascript_ForExcel_Shapes:Working:")
    save the active workbook as text Mac file format in ((targetFolder as text) & "FILENAME.txt") with overwrite
    close the active workbook without saving    
end tell
EOD

data1
data2
data3
data4
data5

while read LINE
do
...
done < inputfile

cp /Osascript_ForExcel_Shapes/Kernel/Standing_filelist_array /Osascript_ForExcel_Shapes/Kernel/filelist_array
ls /Osascript_ForExcel_Shapes/ExcelThumbs >> /Osascript_ForExcel_Shapes/Kernel/filelist_array
while read i
do
        mv /Osascript_ForExcel_Shapes/ExcelThumbs/"$i".xlsx /Osascript_ForExcel_Shapes/Working/
done < /Osascript_ForExcel_Shapes/Kernel/filelist_array

#!/usr/bin/perl

use Spreadsheet::WriteExcel;

my ($in,$out)=(shift,shift); # commandline arguments

(defined($in) && defined($out)) or die "Usage:  flattoxls input out.xls";

open(FH,"<".$in) or die "Cannot open file: $!\n";
my $book = Spreadsheet::WriteExcel->new($out);
my $sheet = $book->add_worksheet();
my ($row,$col) = (0,0);
while (<FH>){
        chomp;                  # Remove newline character
        @list = split /\t/,$_;  # Split on tabs
        # Loop over row and add, cell by cell
        foreach my $c (@list){ $sheet->write($row, $col++, $c); }
        $row++; $col=0; # Next row, column 0
}

close(FH);      # Close input file
$book->close(); # Finish writing excel file
exit(0);        # Return success

perl flattoxls.pl inputfile output.xls

2tLINE 488906_001_Winter_NY_Produce_End_Cap_Bunker_ATL_Agri-Growers_36x19.5_E_F
3tLINE 488906_002_Winter_NY_Produce_End_Cap_Bunker_ATL_Agri-Growers_36x19.5_E_F
4tLINE 488906_003_Winter_NY_Produce_End_Cap_Bunker_ATL_Scotia-Gold_36x19.5_E_F

osascript <<EOD
tell application "Microsoft Excel"
    activate    
    make new hyperlink of cell "B$ROW-NUMBER" at active sheet with properties {address:"http://switchauto.tigroup.ca/SCL_Preflight_Report_Page/$SKUNAME_report.html"}
    set theLeft to left position of cell "A$ROW-NUMBER"
    set theTop to top of cell "A$ROW-NUMBER"
    set currentWorkbook to workbook 1
    tell currentWorkbook
        tell worksheet 1
            set pictureShape to make new shape at the beginning with properties {height:"72", width:"72", left position:0, top:theTop, placement:placement move}
            user picture pictureShape picture file "Macintosh HD:Library:WebServer:Documents:FilesForExcel:Jpeg:$SKU-NAME_02.jpeg"
        end tell
EOD