Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
健康診断 BMI測定の感想
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=141#CommentId1017
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
葉月
 (社会人)
投稿日時
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