ricardoo27-writeexcel 0.6.12.1

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitattributes

@@ -0,0 +1 @@
+*.rb    diff=ruby

data/README.rdoc

@@ -0,0 +1,136 @@
+= writeexcel
+
+Write to a cross-platform Excel binary file.
+
+== Description
+
+This library is converted from Spreadsheet::WriteExcel module of Perl.
+http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.37/
+
+Some examples written in perl was successfully converted to Ruby. But
+this library written in Ruby has many bugs, I think.
+
+Original description is below:
+
+    The Spreadsheet::WriteExcel module can be used to create a cross-
+    platform Excel binary file. Multiple worksheets can be added to a
+    workbook and formatting can be applied to cells. Text, numbers,
+    formulas, hyperlinks, images and charts can be written to the cells.
+
+    TThe Excel file produced by this module is compatible with 97,
+    2000, 2002, 2003 and 2007.
+
+    The module will work on the majority of Windows, UNIX and
+    Macintosh platforms. Generated files are also compatible with the
+    spreadsheet applications Gnumeric and OpenOffice.org.
+
+    This module cannot be used to read an Excel file.
+
+== Usage
+
+See rdoc's WriteExcel class document or Reference http://writeexcel.web.fc2.com/ .
+You must save source file in UTF8 and run ruby with -Ku option or set $KCODE='u'.
+
+Example Code:
+
+    require 'writeexcel'
+
+    # Create a new Excel Workbook
+    workbook = WriteExcel.new('ruby.xls')
+
+    # Add worksheet(s)
+    worksheet  = workbook.add_worksheet
+    worksheet2 = workbook.add_worksheet
+
+    # Add and define a format
+    format = workbook.add_format
+    format.set_bold
+    format.set_color('red')
+    format.set_align('right')
+
+    # write a formatted and unformatted string.
+    worksheet.write(1, 1, 'Hi Excel.', format)  # cell B2
+    worksheet.write(2, 1, 'Hi Excel.')          # cell B3
+
+    # write a number and formula using A1 notation
+    worksheet.write('B4', 3.14159)
+    worksheet.write('B5', '=SIN(B4/4)')
+
+    # write to file
+    workbook.close
+
+== Difference with Perl module
+
+* WriteExcel.new()
+  * accept default format parameter such as new('foo.xls', :font => 'Roman', :size => 12)
+* Unary minus is supported, but it will be stored as '-1*'. ex) '=-1' -> '=-1*1', '=-SIN(PI()/2)' => '=-1*SIN(PI()/2)'
+* Worksheet.write(row, col, token, format)
+  * if token.kind_of?(Numeric) then call write_number, if token.kind_of?(String) then not call write_number().
+* Worksheet.keep_leading_zeros()
+  * ignore. if write 0001, use string such as write(1,2, '0001')
+* and ......
+
+== Caution
+
+You must save source file in UTF8 and run ruby with -Ku option or set $KCODE='u'
+when use urf8 string data.
+
+== Recent Changes
+v0.6.12
+* Bug fix issue 17. Worksheet#store_formula shouldn't be private
+
+v0.6.11
+* Bug fix issue 15. Worksheet#write_comment on the same row overwrite other comments.
+
+v0.6.10
+* Bug fix. method missing split_string_setup() in shared_string_table.rb. see https://github.com/cxn03651/writeexcel/pull/13
+
+v0.6.9
+* Bug fix. When sheetname is cell's A1 notation such as 'D1', Worksheet#autofilter causes exception.
+
+v0.6.8
+* Bug fix. Worksheet#protect doesn't work well.
+
+v0.6.7
+* Bug fix. Worksheet#set_first_sheet doesn't work well.
+* Bug fix. Worksheet#hide_zero doesn't work well.
+* Bug fix. Worksheet#set_column - col width doesn't set to zero when pass hidden 1.
+'
+v0.6.6
+* add private method to avoid warning: private attribute?
+
+v0.6.5
+* Bug fix. if workbook already has worksheet of utf8 name, Workbook#add_worksheet, Workbook#add_chart, Workbook#add_chart_ext raise exception when add new worksheet of utf8 name.
+
+v0.6.4
+* Bug fix. endless loop when inserted image size > 8224bytes.
+
+v0.6.3
+* Bug fix. endless loop when inserted image size > 8224.
+
+v0.6.1
+* Bug fix. to avoid output stack trace for debug when defined $debug such as Rails 2.3.8 development console.
+
+v0.6.0
+* Bug fix. to avoid destroy to_json method when using with Rails 3
+
+== Author
+
+Original was written in Perl by John McNamara (jmcnamara@cpan.org).
+
+Convert to ruby by Hideo Nakamura (cxn03651@msj.biglobe.ne.jp)
+Copyright (c) 2009-2010 Hideo NAKAMURA. See LICENSE for details.
+
+== License
+
+same as Ruby.
+
+== Note on Patches/Pull Requests
+
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.

data/Rakefile

@@ -0,0 +1,52 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "writeexcel"
+    gem.summary = %Q{Write to a cross-platform Excel binary file.}
+    gem.description = %Q{Multiple worksheets can be added to a workbook and formatting can be applied to cells. Text, numbers, formulas, hyperlinks and images can be written to the cells.}
+    gem.email = "cxn03651@msj.biglobe.ne.jp"
+    gem.homepage = "http://wiki.github.com/cxn03651/writeexcel/"
+    gem.authors = ["Hideo NAKAMURA"]
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "writeexcel #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.6.12

data/charts/chartex.rb

@@ -0,0 +1,316 @@
+#!/usr/bin/ruby -w
+# -*- coding: utf-8 -*-
+
+#######################################################################
+#
+# chartex - A utility to extract charts from an Excel file for
+# insertion into a WriteExcel file.
+#
+# reverse('ｩ'), September 2007, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+# Documentation after __END__
+#
+
+require 'writeexcel'
+
+class Chartex
+  attr_reader :file
+
+  def initialize(file = nil)
+    @file       = file
+    @sheetnames = Array.new
+    @exrefs     = Array.new
+    @buf        = StringIO.new
+  end
+
+  def set_file(file)
+    @file = file
+  end
+
+  def get_workbook(file = nil)
+    file ||= @file
+    ole = OLEStorageLite.new(file)
+    book97 = 'Workbook'.unpack('C*').pack('v*')
+    workbook = ole.getPpsSearch([book97], 1, 1)[0]
+    @buf.write(workbook.data)
+    @buf.rewind
+    workbook
+  end
+end
+
+# main
+
+if $0 == __FILE__
+
+end
+
+=begin
+my $man         = 0;
+my $help        = 0;
+my $in_chart    = 0;
+my $chart_name  = 'chart';
+my $chart_index = 1;
+my $sheet_index = -1;
+my @sheetnames;
+my @exrefs;
+my $depth_count = 0;
+my $max_font    = 0;
+
+#
+# Do the Getopt and Pod::Usage routines.
+#
+GetOptions(
+            'help|?'    => \$help,
+            'man'       => \$man,
+            'chart=s'   => \$chart_name,
+          ) or pod2usage(2);
+
+pod2usage(1) if $help;
+pod2usage(-verbose => 2) if $man;
+
+
+# From the Pod::Usage pod:
+# If no arguments were given, then allow STDIN to be used only
+# if it's not connected to a terminal (otherwise print usage)
+pod2usage() if @ARGV == 0 && -t STDIN;
+
+
+
+
+# Check that the file can be opened because OLE::Storage_Lite won't tell us.
+# Possible race condition here. Could fix with latest OLE::Storage_Lite. TODO.
+#
+my $file = $ARGV[0];
+
+open  TMP, $file or die "Couldn't open $file. $!\n";
+close TMP;
+
+my $ole      = OLE::Storage_Lite->new($file);
+my $book97   = pack 'v*', unpack 'C*', 'Workbook';
+my $workbook = ($ole->getPpsSearch([$book97], 1, 1))[0];
+
+die "Couldn't find Excel97 data in file $file.\n" unless $workbook;
+
+
+# Write the data to a file so that we can access it with read().
+my $tmpfile = IO::File->new_tmpfile();
+binmode $tmpfile;
+
+my $biff = $workbook->{Data};
+print {$tmpfile} $biff;
+seek $tmpfile, 0, 0;
+
+
+
+my $header;
+my $data;
+
+# Read the file record by record and look for a chart BOF record.
+#
+while (read $tmpfile, $header, 4) {
+
+    my ($record, $length) = unpack "vv", $header;
+    next unless $record;
+
+    read $tmpfile, $data, $length;
+
+    # BOUNDSHEET
+    if ($record == 0x0085) {
+        push @sheetnames, substr $data, 8;
+    }
+
+    # EXTERNSHEET
+    if ($record == 0x0017) {
+        my $count = unpack 'v', $data;
+
+        for my $i (1 .. $count) {
+            my @tmp = unpack 'vvv', substr($data, 2 +6*($i-1));
+            push @exrefs, [@tmp];
+        }
+
+    }
+
+    # BOF
+    if ($record == 0x0809) {
+        my $type = unpack 'xx v', $data;
+
+        if ($type == 0x0020) {
+            my $filename = sprintf "%s%02d.bin", $chart_name, $chart_index;
+            open    CHART, ">$filename" or die "Couldn't open $filename: $!";
+            binmode CHART;
+
+            my $sheet_name = $sheetnames[$sheet_index];
+            $sheet_name .= ' embedded' if $depth_count;
+
+            printf "\nExtracting \%s\ to %s", $sheet_name, $filename;
+            $in_chart = 1;
+            $chart_index++;
+        }
+        $depth_count++;
+    }
+
+
+    # FBI, Chart fonts
+    if ($record == 0x1060) {
+
+        my $index = substr $data, 8, 2, '';
+           $index = unpack 'v', $index;
+
+        # Ignore the inbuilt fonts.
+        if ($index >= 5) {
+            $max_font = $index if $index > $max_font;
+
+            # Shift index past S::WE fonts
+            $index += 2;
+        }
+
+        $data .= pack 'v', $index;
+    }
+
+    # FONTX, Chart fonts
+    if ($record == 0x1026) {
+
+        my $index = unpack 'v', $data;
+
+        # Ignore the inbuilt fonts.
+        if ($index >= 5) {
+            $max_font = $index if $index > $max_font;
+
+            # Shift index past S::WE fonts
+            $index += 2;
+        }
+
+        $data = pack 'v', $index;
+    }
+
+
+
+    if ($in_chart) {
+        print CHART $header, $data;
+    }
+
+
+    # EOF
+    if ($record == 0x000A) {
+            $in_chart = 0;
+            $depth_count--;
+            $sheet_index++ if $depth_count == 0;
+;
+    }
+}
+
+
+if ($chart_index > 1) {
+    print "\n\n";
+    print "Add the following near the start of your program\n";
+    print "and change the variable names if required.\n\n";
+}
+else {
+    print "\nNo charts found in workbook\n";
+}
+
+for my $aref (@exrefs) {
+    my $sheet1 = $sheetnames[$aref->[1]];
+    my $sheet2 = $sheetnames[$aref->[2]];
+
+    my $range;
+
+    if ($sheet1 ne $sheet2) {
+        $range = $sheet1 . ":" .  $sheet2;
+    }
+    else {
+        $range = $sheet1;
+    }
+
+    $range = "'$range'" if $range =~ /[^\w:]/;
+
+    print "    \$worksheet->store_formula('=$range!A1');\n";
+}
+
+print "\n";
+
+for my $i (5 .. $max_font) {
+
+    printf "    my \$chart_font_%d = \$workbook->add_format(font_only => 1);\n",
+                $i -4;
+
+}
+
+
+
+
+
+__END__
+
+
+=head1 NAME
+
+chartex - A utility to extract charts from an Excel file for insertion into a Spreadsheet::WriteExcel file.
+
+=head1 DESCRIPTION
+
+This program is used for extracting one or more charts from an Excel file in binary format. The charts can then be included in a C<Spreadsheet::WriteExcel> file.
+
+See the C<add_chart_ext()> section of the  Spreadsheet::WriteExcel documentation for more details.
+
+
+=head1 SYNOPSIS
+
+chartex [--chartname --help --man] file.xls
+
+    Options:
+        --chartname -c  The root name for the extracted charts,
+                        defaults to "chart".
+
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<--chartname or -c>
+
+This sets the root name for the extracted charts, defaults to "chart". For example:
+
+    $ chartex file.xls
+
+    Extracting "Chart1" to chart01.bin
+
+
+    $ chartex -c mychart file.xls
+
+    Extracting "Chart1" to mychart01.bin
+
+=item B<--help or -h>
+
+Print a brief help message and exits.
+
+
+=item B<--man or -m>
+
+Prints the manual page and exits.
+
+=back
+
+
+=head1 AUTHOR
+
+John McNamara jmcnamara@cpan.org
+
+
+=head1 VERSION
+
+Version 0.02.
+
+
+=head1 COPYRIGHT
+
+ｩ MMV, John McNamara.
+
+All Rights Reserved. This program is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
+
+
+=cut
+=end