add example/autofit.rb

Author: cxn03651

examples/autofit.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+
+#
+# An example of using simulated autofit to automatically adjust the width of
+# worksheet columns based on the data in the cells.
+#
+# Copyright 2000-2023, John McNamara, jmcnamara@cpan.org
+#
+# SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
+#
+# convert to Ruby by Hideo NAKAMURA, nakamura.hideo@gmail.com
+#
+require 'write_xlsx'
+
+workbook   = WriteXLSX.new('autofit.xlsx')
+worksheet  = workbook.add_worksheet
+
+# Write some worksheet data to demonstrate autofitting.
+worksheet.write(0, 0, "Foo")
+worksheet.write(1, 0, "Food")
+worksheet.write(2, 0, "Foody")
+worksheet.write(3, 0, "Froody")
+
+worksheet.write(0, 1, 12345)
+worksheet.write(1, 1, 12345678)
+worksheet.write(2, 1, 12345)
+
+worksheet.write(0, 2, "Some longer text")
+
+worksheet.write(0, 3, 'http://www.google.com')
+worksheet.write(1, 3, 'https://github.com')
+
+# Autofit the worksheet
+worksheet.autofit
+
+workbook.close

test/perl_output/autofit.xlsx

@@ -343,6 +343,34 @@ def autofilter_data
 EOS
   end
 
+  def test_autofit
+    @xlsx = 'autofit.xlsx'
+    workbook = WriteXLSX.new(@io)
+    worksheet  = workbook.add_worksheet
+
+    # Write some worksheet data to demonstrate autofitting.
+    worksheet.write(0, 0, "Foo")
+    worksheet.write(1, 0, "Food")
+    worksheet.write(2, 0, "Foody")
+    worksheet.write(3, 0, "Froody")
+
+    worksheet.write(0, 1, 12345)
+    worksheet.write(1, 1, 12345678)
+    worksheet.write(2, 1, 12345)
+
+    worksheet.write(0, 2, "Some longer text")
+
+    worksheet.write(0, 3, 'http://www.google.com')
+    worksheet.write(1, 3, 'https://github.com')
+
+    # Autofit the worksheet
+    worksheet.autofit
+
+    workbook.close
+    store_to_tempfile
+    compare_xlsx(File.join(@perl_output, @xlsx), @tempfile.path)
+  end
+
   def test_background
     @xlsx     = 'background.xlsx'
     workbook  = WriteXLSX.new(@io)