Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on Aug 21st, 2012  |  syntax: None  |  size: 1.19 KB  |  hits: 20  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. # coding: utf-8
  2. require 'sinatra'
  3. require "sinatra/reloader" #if development?
  4. require 'slim'
  5. require 'csv'
  6.  
  7. CSV_PATH = "/Volumes/NO NAME/TANITA/GRAPHV1/DATA/DATA1.CSV"
  8. #CSV_PATH = "DATA1.CSV"
  9.  
  10.  
  11. get '/' do
  12.   rows = CSV.parse(File.read(CSV_PATH))
  13.  
  14.   @weights = "Date,体重,筋肉\\n"
  15.   @percents = "Date,体脂肪\\n"
  16.   @calperday = "Date,基礎代謝\\n"
  17.   rows.each do |row|
  18.     # ["{0", "16", "~0", "2", "~1", "2", "~2", "3", "~3", "2", "MO", "BC-569", "DT", "2012/03/31", "Ti", "02:53:19", "Bt", "0", "GE", "1", "AG", "28", "Hm", "168.0", "Wk", "55.0", "MI", "19.5", "FW", "12.3", "mW", "45.7", "sW", "-2", "bW", "2.5", "IF", "1.0", "rB", "1345", "rA", "18", "ww", "59.6", "CS", "E7"]
  19.     _0,      _16,   _0,  _2,  _1,   _2,   _2,  _3,  _3,   _2,  _MO,  _BC,      _DT,    date,        _Ti,     time,   _Bt,  _0,   _GE, _1,  _AG,   age,  _Hm,  height, _Wk,  weight,  _MI,  bmi,   _FW,   taisi, _mW,  kin,   _sW,   _2,   _bW,  kotsu,  _IF,  naisi, _rB,  taisha, _rA, age2, _ww,  suibun,  _CS,  _7 = row
  20.  
  21.     date.gsub!('/', '-')
  22.     @weights << "#{date},#{weight},#{kin}\\n"
  23.     @percents << "#{date},#{taisi}\\n"
  24.     @calperday << "#{date},#{taisha}\\n"
  25.   end
  26.  
  27.   slim :index
  28. end
  29.  
  30. get '/screen.css' do
  31.   sass :screen
  32. end