□ Scripts for TClock □

>>567　Samuraize Part4より　抜粋

972 ：966（251） ：03/03/01 14:09 ID:g25+C3jy

progtime = FindFromText(progpos, progtext, vbTab & vbTab, vbLf, "")
↓
progtime = FindFromText(progpos, progtext, vbTab & vbTab, vbLf, "")
If InStr(progtime, "<br>") = 3 Then
progtime = Left(progtime, 2)
Else
progtime = Left(progtime, 5)
End If

つまり５行追加ね