FileAccessor.rb

module FileAccessor
  Tab="\t"
  New_Line="\n"

  def Read(fileName)
  	File.open(fileName,"r", :encoding => 'UTF-8') do |io|
      lines=[]
      io.each do |line|
        array = line.chomp.split(Tab)             			 		     
        lines << array
      end
      lines
    end
  end

 #  require 'win32ole'
 #  def self.ReadExcel(file_name)
 #  	excel = WIN32OLE.new("excel.application")
 #    workbook = excel.Workbooks.Open(file_name)    
	# worksheet = workbook.Worksheets(1) 
	# worksheet.Select
	# row = worksheet.usedrange.rows.count
	# column = worksheet.usedrange.columns.count
	# lines=[]
	# for i in 1..row do
	# 	array = []
 #  		for j in 1..column do
 #    	array << worksheet.usedrange.cells(i,j).Text.to_s.delete("\n").delete("\"")
 #  		end 
 #  		lines << array
	# end
	# workbook.close
	# excel.Quit
	# lines
 #  end

 require 'roo'
 def self.ReadExcel(fileName)
  xlsx = Roo::Spreadsheet.open(fileName)
  lines=[]
  xlsx.sheet(0).each_row_streaming do |row|
    row_array = []
    row.each do |column|
      col_value =  column.value.to_s
      row_array << (col_value ? col_value : "").delete("\"").gsub(/\n/,'<br>')
    end
    lines << row_array if row_array.any? { |e| e&&!e.empty? }
  end
  xlsx.close
  lines
end

def Write(fileName, data)
 return if !data

 dirName=File.dirname(fileName)  	  
 if(!File.directory?(dirName))
  Dir.mkdir(File.dirname(fileName))
end

File.open(fileName, "w", :encoding => 'UTF-8') do |io|
  data.each_with_index do |line,i|
   io.write line.join(Tab)
   if i != data.count - 1            
    io.write(New_Line)
  end
end
end
end 
require 'pathname'
def ConvertExcel(source,target)
  # Write(target,ReadExcel(File.join(Pathname.new(File.dirname(__FILE__)).realpath,source)))
  Write(target,ReadExcel(source))
end

module_function :Read
module_function :Write
module_function :ConvertExcel

def CalcDataPath
  path_name = "LLData"
  maxIntT = 0
  Dir.entries(File.join(File.dirname(__FILE__),path_name)).each do |dirNameT|
    if File.file?(dirNameT)
      next
    end 
    if /^#{path_name}(\d{6,8})$/i =~ dirNameT  
      intT= $1.to_i
      maxIntT = maxIntT > intT ? maxIntT : intT;
    end
  end
  dataPath = File.join(path_name,path_name)
  dataPath += maxIntT.to_s
  dataPath
end
module_function :CalcDataPath
end

InputHoliday = "inputHoliday.txt"
InputMainData = "inputMainData.txt"