投稿者 葉月  (社会人) 投稿日時 2008/11/26 05:54:39
BMIプログラムを作成した時はいらなかったですが、今は欲しいですね(笑)
 自前で作る……時間を考えるとWiiフィット買った方が安上がりかも知れません。
 私は試したことありませんが、VBの機能でグラフを実装するのもありですね。

>>>食事の品目を入力すればカロリー計算してくれるようなソフト(or 付加機能)も良いですねぇ。
>>>開発作業の殆どがデータ入力になる予感…。 
 面白い試みだと思ったのでカロリーの一覧が載っているサイトを探した所、
テーブルデータを使って書いているページがいくつか見つかりました。
 下記はhtmlソースの抜擢です。

 <th class="exth">料理名</th><th class="exth_2">カロリー(kcal)</th>
 <td>ざるそば</td><td class="right">282</td>
 <td>肉じゃが</td><td class="right">302</td>
 <td>ほうれん草のおひたし</td><td class="right">29</td>

 ざっくり検証したところ.NETもGroup系のメソッドがあり、正規表現でいけそうです。
 抜き出したデータをCSV形式で保存すれば自動化できると思います。
 今回は処理の部分は省略しています。
 ただ、マックのサイトなんかは独自の方式を使っており自動化できないので、
細かく作ったらデータ入力が大変になりそうです。

■サンプルコード
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strReg As String = "<td>ざるそば</td><td class=""right"">282</td>"
        'Dim strReg As String = "<title>検証<title>"
        Dim regex As Regex = New Regex("(^<td>.+?</td>)(<td.+?>[0-9]+?</td>)+$")

        If regex.IsMatch(strReg) Then
            '処理
            Console.WriteLine("OK")
        End If
    End Sub
End Class