2007-08-21 :-)
_ 朝ったー
0500 起床。チャリったー。
最近サイクルコンピュータ[ 2007-01-21 ]を使ってなかったのだけど久しぶりに使ってみました。やまざきさんから「チャリの回転数 130 速度 30 km/h 」と教えてもらったので[ 2007-08-18 ]計測します。フロントギア 2 リアギア 4 でがんばると 回転数 130 速度 30 km/h でした。でも慣れない回転数だったのでけっこう疲れました。往路 5 km くらい走って力尽きて復路は 100 回転 25 km/h くらいでした (´ω`;)
_ 仕事
0830 出勤。warning を「うぉーにんぐ」を読ませる部活動。
_ 第11回あすなろBLOGセミナー 仕事に活かす3つのハックス— 人生を3倍に楽しむ時間活用術—
本セミナーは、佐々木正悟・大橋悦夫による以下3冊の出版記念セミナーです。
1.『ブレインハックス』(佐々木正悟)
2.『チームハックス』(大橋悦夫・佐々木正悟)
3.『そろそろ本気で継続力をモノにする!』(大橋悦夫)
申し込みどね。
とっととチームハックス読まないと!
_ [VBScript][Ruby]検索した文字列を空白区切りで分割して印字する
VBScript
Option Explicit Function retrtext( ptn , str ) Dim regEx Dim retVal Set regEx = New RegExp regEx.Pattern = ptn regEx.IgnoreCase = True regEx.Global = True retVal = regEx.Test( str ) If retVal Then retrtext = True else retrtext = false End If Set regEx = Nothing End Function Function replacetext( str, ptn, repl ) Dim regEx Set regEx = New RegExp regEx.Pattern = ptn regEx.IgnoreCase = True regEx.Global = True replacetext = regEx.Replace( str, repl ) end Function Sub Main Dim objFSO Dim objFile dim sline dim i Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\test.txt") Do While objFile.AtEndOfStream <> True sline = objFile.ReadLine if retrtext( "^黒髪ロング", sline ) = True then sline = replacetext( sline, " +", "," ) sline = Split( sline, ",", -1, vbTextCompare ) For i = 0 To UBound( sline ) WScript.Echo sline( i ) Next end if Loop objFile.Close Set objFile = Nothing Set objFSO = Nothing End Sub Main
たとえばこんなテキスト。
「お前」はやめて パンネロたーん 0 0 0 0 0 0 0 0 0 0 0 ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- 黒髪ロング 13 960 295 3730 25156 17331 0 0 0 0 47485
実行。
>cscript //nologo test.vbs 黒髪ロング 13 960 295 3730 25156 17331 0 0 0 0 47485
同じことを Rubyでやってみます。
ARGF.each {|line| if /^黒髪ロング/ =~ line line.split( " " ).each {|v| puts v } end }
$ ruby -KS t.rb test.txt 黒髪ロング 13 960 295 3730 25156 17331 0 0 0 0 47485
短い!
_ [さぁぶ][飯][ローストチキン]飯
ローストチキン( ref. FF page 電子レンジでローストチキン(投稿) 鶏 まるごと )
さぁぶさんの手料理を食べる会[ 2007-02-12 ] [ 2007-05-03 ]のときに頂いたローストチキンです。電子レンジで作れるよということで作り方( が書いてあるページ )を教えてもらったので挑戦してみました。手順は上記ページの通りです。
丸鳥。近所の肉屋に注文して買ってきました。
塩、コショウ、パプリカを塗りたくります。電子レンジでプニプニします。
出来上がり。
切って、ソースをかけて食べるます( ref. ちゃんと作れるイタリアン pp.96-97 )。ちょいとしょっぱいです ( ̄ω ̄;)