Mission UD：白血病等のがん患者を救え！213Ligands

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
┃◎ 　1:【板内チーム】リザルツ (・∀・)ランキング【@lounge】　　date 20060118 - 20060119
┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
┃◎ 1 @kikuimo　　　 4人(+0)　　 2,495(　 +3)Res.→　　 .921,939(. +1,152)Pt.→　004:306:14:18:34(+0:002:01:13:35)→
┃◎ 2 @honoka　　　 5人(+0)　　 2,012(　 +5)Res.→　　 .509,808(　 .+832)Pt.→　002:219:23:15:41(+0:001:03:46:09)→
┃◎ 3 @n 　　　. 　　 1人(+0)　　 1,447(　 +0)Res.→　　 .413,724(　 　 .+0)Pt.→　002:126:11:16:34(+0:000:00:00:00)→
┃◎ 4 @kinenbi　.　　 1人(+0)　　 1,368(　 +0)Res.→　　 .311,667(　 　 .+0)Pt.→　002:055:17:00:39(+0:000:00:00:00)→
┃◎ 5 @2ch 　　. 　　 2人(+0)　　 1,359(　 +2)Res.→　　 .294,438(　 .+337)Pt.→　002:224:04:06:41(+0:001:04:50:15)→
┃◎ 6 @joly　　　.　　 2人(+0)　　 1,168(　 +3)Res.→　　 .444,489(　 .+726)Pt.→　001:284:01:01:56(+0:000:23:40:34)→
┃◎ 7 @NULL 　 　542人(+0)　399,696(+172)Res.−　80,004,721(+57,406)Pt.−　523:112:08:07:38(+0:099:15:08:27)−

おちんちん＼(^o^)／

1/18ではなく1/19の日報のような。

妹が今日受験なんだが、昨日から熱を出してる・・・
ｶﾜｲｿｽ(´･ω･`)

(´･ω･`)

投稿日：２００６年１月２０日（金）午後４時１０分（標準時）
件名：フォーラム使用不可

メンバー各位

最近、フォーラムに問題がありました。問題は、ログファイルが
最大サイズを超えて、アパッチ・ウェブ・サーバのソフトが強制終了
したせいで、起こりました。この事をつきとめるのにしばらくかかり
ましたが、今はフォーラムは正常に動いているはずです。この問題は
フォーラムにだけ影響したものであって、Grid.orgのジョブの処理
には一切関係ありません。
--
Robby Brewer

また罰金かよ。

　　(　⌒　) 　　べ・・別にちんぽっ乙なんて言ってあげないんだから。
　　　l | /
　　∧　∧
⊂(*‘ω‘*)　　　　　　　　　　
　/　　　ﾉ∪　　　　　
　し―-J　|l| |　　　　
　　 　 　 　 　ﾍﾟｼｯ!!

　　 　　）　　ω　（_
　　　　⌒）　　　（⌒
　　　　　　⌒Ｙ⌒

雪だー　わーい

あ、やっぱり罰金だったんだ・・・
せっかくPCが復旧したからUD入れなおそうとしてたのに・・・

久しぶり過ぎて名が思い出せんな。
馬糞ウニ氏だったか？

室町牛糞

糞固定

あら今宿題もらえた。

受信を確認した。

貰えるけど、めちゃめちゃ重いね

罰金2回＆激重でやっと提出できた

UDMの2つのログの情報をつき合わせてxlsファイルにするWSHスクリプトを作ってみたんだけど
ここに貼り付けてもいいですか？　80行くらいです。

各WUにかかった時間が把握できて面白いと思います。

>>937 いいとおもうよ。もうすぐ新スレだし。

ところで、これ、UDにのらないかなぁ
http://www.asahi.com/science/news/TKY200601200375.html

それでは。

以下のスクリプトをテキストエディタに貼り付けて***.vbsなどという名で保存し、そのアイコンに UDm Logs フォルダ
をドロップすればxlsファイルができます。

Dim n(19), sum(19) 'スロット数MAX: 20

Dim Fs, xl,book, C, Inp, regEx, Lines, WULog, Matches
Dim k, I, J, Mes, slot

If Wscript.Arguments.Count<>1 Then msgbox "UDm Logs フォルダをドロップしてください。"

Set Fs = CreateObject("Scripting.FileSystemObject")
Set xl = CreateObject("Excel.Application")
Set book = xl.Workbooks.Add
Set C = book.worksheets(1).Cells
xl.Visible = True
With book.worksheets(1)
.Columns(6).NumberFormatLocal = "[h]:mm:ss"
.Columns(7).NumberFormatLocal = "[mm]:ss"
.Columns(1).ColumnWidth = 16.25
End With
Set regEx = New RegExp
regEx.Global = True

regEx.Pattern = "([\d|/]+)\s([\d|:]+):\s(.+)\r\n"
Set Inp = Fs.OpenTextFile(wscript.arguments(0) & "\Log.txt", 1 )
Set Lines = regEx.Execute(Inp.ReadAll)
Inp.Close

regEx.Pattern = "([\d|/]*)\s([\d|:]*)\t.+\)\t(.+)\s\((.+)\s>>\s(.+)\)\t(.+)\r\n"
Set Inp = Fs.OpenTextFile(wscript.arguments(0) & "\WUs.txt", 1 )
Set WULog = regEx.Execute(Inp.ReadAll)
Inp.Close

Erase sum
Erase n
k = 1
For I = 0 To Lines.Count - 1
Mes = Lines(I).SubMatches(2)
If Left( Mes ,1) = "#" Then 'Save
slot = CutOut(Mes, "#", ": ")
sum(slot-1) = sum(slot-1) + csng(TimeValue(CutOut(Mes, "(+ ", ")" )))
n(slot-1) = n(slot-1) + 1
ElseIf Left( Mes ,2) = "==" Then
If I <> Lines.Count - 1 Then
If Left(Lines(I+1).SubMatches(2), 1) = "#" Then
I = I + 1 'UDM起動直後のsaveは無視
End If
End If
ElseIf Left( Mes ,2) = "Sl" Then 'Completed or Aborted
slot = CutOut(Mes, "#", ": WU")
C(k, 1) = DateValue( Lines(I).SubMatches(0) ) + TimeValue( Lines(I).SubMatches(1) )
C(k, 2) = slot
C(k, 3) = CutOut(Mes, "WU ", "(")
C(k, 5) = CutOut(Mes, "(", ")" )
C(k, 6) = sum(slot-1)
C(k, 8) = n(slot-1)
C(k, 7) = C(k,6)/C(k,8)

For J = 0 To WULog.Count - 1
If WULog(J).SubMatches(0)=Lines(I).SubMatches(0) And WULog(J).SubMatches(1)=Lines(I).SubMatches(1) Then
C(k, 4) = WULog(J).SubMatches(5)
C(k, 5) = WULog(J).SubMatches(2)
C(k, 9) = WULog(J).SubMatches(3)
C(k, 10) = WULog(J).SubMatches(4)
Exit For
End If
Next
k = k+1
n(slot-1) = 0
sum(slot-1) = 0
ElseIf Left( Mes ,2) = "Re" Then 'Resetting
slot=CutOut(Mes,"#",".")
n(slot-1) = 0
sum(slot-1) = 0
End If
Next

Function CutOut(str,istr,estr)
CutOut = Mid(str, InStr(str,istr)+Len(istr), InStr(str,estr)-InStr(str,istr)-Len(istr) )
End Function

誰かやってみた？
俺できないぽ・・・

ノートン先生が怒ってきたが無視して継続。
その後、オーバーフロー画面とデータの数字がでた(´･ω･｀)

ファイルが見つかりません
て言われる(´･ω･｀)

馬糞たんときいて牛歩で来ました

UD Agentのウィンドウで、いつもはPrimary task〜って表示が出てるところに
Click hereって出てるの初めて見た

あっ、バージョンアップしたんだ。
でも３０分で２０％＠ペンM１，７３って・・・

軟らかいな

>>943
どの行でオーバーフローですか？

ところでドロップしなかったときのエラー処理で
×If Wscript.Arguments.Count<>1 Then msgbox "UDm Logs フォルダをドロップしてください。"
○If Wscript.Arguments.Count<>1 Then msgbox "UDm Logs フォルダをドロップしてください。":Wscript.Quit
でしたね。

>>937
534件処理するとなぜかエラーでとまる
行:37
文字:1
エラー:型が一致しません。: 'TimeValue'
コード:800A000D
ソース: Microsoft VBScript 実行時エラー

あと、処理中にエクセルクリック、未知の実行時エラーで止まるね

しかし、このスクリプトのおかげでUDMのログが20Mになってるのに気がついたよ

ファイルが見つからないらしい。

試したけど、どこがどうなってるとかはわからない

行:54
文字:1
エラー:オーバーフローしますた。
コード:800A0006
ソース: Microsoft VBScript 実行時エラー

(ノ∀｀)参考までにﾊﾘｺ

国別：2006/01/21
Name　　　　　Members　　　　　　CPU Time　　　　　　　　　　 Points　　　　　　　　　　　　　 Results
---------------------------------------------------------------------------------------
Global　　1,301,747(+ 80)　451,986:082:23:58:36　 63,600,083,137(+ 22,704,076)　352,903,885(+ 55,134)
USA　　　　131,571(+ . 3)　129,292:285:01:25:14　 19,163,696,349(+ . 5,940,052)　106,228,741(+ 12,011)
UK.　　 　 　 61,329(+ . 1).　 37,307:346:21:02:24. 　 4,786,686,345(+ . 1,767,529).　 28,892,248(+ . 4,754)
　　　　　　　　　 　 　 　 　 　 　 (+ 8:314:05:13:30)
Japan.　　　 45,127(+ 14).　 35,675:356:17:36:48. 　 5,643,390,951(+ . 3,994,299).　 28,577,768(+ 13,228)
　　　　　　　　　　　　　　　　　 (+ 19:202:18:55:30)
---------------------------------------------------------------------------------------
JapanとU.K.のリザルトの差は314,480(-8,474)　およそ38日後。

国籍がANONYMOUS（匿名）のままの人はいませんか？今一度確認しましょう。
http://ud-team2ch.net/index.php?MembersPage#content_1_6

くにぽーつ

>>949
気が向いたらでいいですから、37行の
sum(slot-1) = sum(slot-1) + csng(TimeValue(CutOut(Mes, "(+ ", ")" )))
を
If IsDate(CutOut(Mes, "(+ ", ")" )) then
sum(slot-1) = sum(slot-1) + csng(TimeValue(CutOut(Mes, "(+ ", ")" )))
Else
msgbox Lines(I)
End If
に変えて何が表示されるか教えてください。

> あと、処理中にエクセルクリック、未知の実行時エラーで止まるね

の件はエクセルのバージョンによってはそうなるようです。

>>954
2004/06/08 17:56:51: #1: Save (+ 2 days & 19:00:34)
ってでた

>>951
54行って
C(k, 7) = C(k,6)/C(k,8)
でしょうか？　だったらそれを（気が向いたらでいいですから）
If C(k,8) <> 0 Then
C(k, 7) = C(k,6)/C(k,8)
Else
C(k, 7) = 0
End If
に変えてみてください。データが１個も取れずにアボートされたスロットがあるのが原因かな？

スクリプト:　C:Douments and Settings\...***.vbs
行:22
文字:1
エラー:ファイルが見つかりません
コード:800A0035
ソース: Microsoft VBScript 実行時エラー

>>955
なるほど。ログのその直前の数行を教えてくれるとありがたいです。

>>957
UDMのログを２つともとる設定になっていますか？

>>959
1つです(ノ∀｀)

>>958
整形しないで張ります
エクセルデータ
2004/6/4 17:222CompletedSPOX-TCFm271252030:39:5300:21116186 KB33 KB
2004/6/5 0:251CompletedHSP9071701926:56:5407:045924 KB6 KB
2004/6/5 1:502CompletedSPOX-TCFm271239660:48:5800:25118190 KB34 KB
2004/6/5 11:081CompletedHSP9071640429:11:5809:415726 KB7 KB
2004/6/5 18:022CompletedSPOX-TCFm271180636:50:2102:1118867 KB18 KB
2004/6/8 21:591CompletedHSP9071658988:28:0909:355326 KB6 KB
2004/6/8 23:212CompletedSPOX-TCFm271278620:43:1000:22119172 KB34 KB
WUsのログ
2004/06/04 17:22:21WU Completed(slot #2)7125203 (186 KB >> 33 KB)SPOX-TCFm2
2004/06/05 0:25:00WU Completed(slot #1)7170192 (24 KB >> 6 KB)HSP90
2004/06/05 1:50:45WU Completed(slot #2)7123966 (190 KB >> 34 KB)SPOX-TCFm2
2004/06/05 11:08:44WU Completed(slot #1)7164042 (26 KB >> 7 KB)HSP90
2004/06/05 18:02:53WU Completed(slot #2)7118063 (67 KB >> 18 KB)SPOX-TCFm2
2004/06/08 21:59:30WU Completed(slot #1)7165898 (26 KB >> 6 KB)HSP90
2004/06/08 23:21:11WU Completed(slot #2)7127862 (172 KB >> 34 KB)SPOX-TCFm2
Logのログ
2004/06/05 22:32:46: #1: Save (+ 0:00:37)
2004/06/05 22:39:27: #1: Save (+ 0:06:41)
2004/06/05 22:51:28: #1: Save (+ 0:12:01)
2004/06/05 22:56:18: #1: Save (+ 0:04:50)
2004/06/08 17:56:51: #1: Save (+ 2 days & 19:00:34)
2004/06/08 17:56:51: It's time to do a backup...
2004/06/08 17:56:52: done.
その後も同様のメッセージが出ることあり

>>961

> 2004/06/05 22:56:18: #1: Save (+ 0:04:50)
> 2004/06/08 17:56:51: #1: Save (+ 2 days & 19:00:34)

この３日間はUDMは動いていてUDはとまった状態なんでしょうか？
それともUDM起動時のログ、たとえば
2006/01/20 21:20:27: == UD Monitor v4.45 ==
が記録されないことがあるということなんでしょうかね。
これの直後のsaveは無視するようになっていますが。

>>962
んー
その期間に何があったのかってのは、もうわからないなぁ
一時期PCが妙に不安定な時期があったから、その時かもわからんね

>>963
不安定だったということであれば変更した５行のうち
Else
msgbox Lines(I)
の２行を消せばよいかと。

>>964
ん、了解した

2006/01/21
Name 　　 　　 　Members　　　　　　 Results 　　 　　　　　　　Points 　　 　　　 　　CPU Time　 　 　　P/R
---------------------------------------------------------------------------------------
Team 2ch.　　　56,934(+. 12). 24,590,840(+12,166) 5,010,377,992(+3,668,178). 31,116:189:00:23:05　301.51
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 　 　 　 　 　 (17:321:12:03:40)
Easynews 　 　 17,124(+ 　0). 18,507,698(+. 1,631) 4,483,237,916(+　822,243). 26,188:306:02:41:05　504.13
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 　 　 　 　 　 (03:319:01:52:59)
Intel 　 　 　　　　1,554(+ 　0) 　2,897,064(+. 　127) 　388,639,522(+. 　73,307) 　2,781:298:01:05:46　577.22
Vulture..　　　　　3,662(+ 　0) 　2,404,755(+. 　281) 　425,342,963(+　120,417) 　2,995:127:08:05:11　428.53
AMD Zone. 　 　 2,577(+ 　0) 　2,234,877(+. 　181) 　363,439,072(+. 　59,357) 　2,384:290:03:36:19　327.94
DSLReports..　　1,607(+ 　0) 　2,217,174(+. 　766) 　483,243,668(+　281,664) 　2,723:127:04:12:06　367.71
DutchPower..　　3,455(+ 　1) 　2,145,179(+. 　782) 　452,927,199(+　179,217) 　2,809:135:06:24:46　229.18
Hungary　　　　　2,110(+ 　0) 　1,517,796(+. 　205) 　245,160,154(+. 　79,009) 　2,032:061:22:39:28　385.41
TECHSIDE 　　　2,797(- 　1) 　1,461,402(+. 　110) 　208,216,351(+. 　56,204) 　1,712:206:10:02:47　510.95
IBM Internal..　　1,682(+ 　0) 　1,429,136(+. 　162) 　340,447,208(+　115,586) 　1,794:035:19:33:39　713.49
---------------------------------------------------------------------------------------
2006/01/20のデータは>>901

にぽつ

>>966
乙です！

組別日報乙