<%@ Language="VBScript" %> <%option explicit%> <% Const fname_gamedata = "D:\user\OEMReg\data\games.txt" Const fname_playerdata = "D:\user\OEMReg\data\players.txt" Const fname_titleexlog = "D:\user\OEMReg\titleexlog\wmsg2nd.log" ' UTF-8で読み込み Sub ReadGameDataFile(Title,ENDate,ENName,JPDate,JPName,BlackName1,BlackRank1,WhiteName1,WhiteRank1,BlackName2,BlackRank2,WhiteName2,WhiteRank2) Dim strWk Dim Arr Dim inStream Set inStream = CreateObject("ADODB.Stream") inStream.charset = "utf-8" inStream.type = 2 inStream.open inStream.LoadFromFile(fname_gamedata) Do While Not inStream.EOS strWk = inStream.ReadText(-2) If(IsCurrentData(strWk) = true) then Arr = Split(strWk,Chr(9)) Title = Arr(0) ENDate = Arr(3) ENName = Arr(4) JPDate = Arr(5) JPName = Arr(6) If(GetTitleExLogUserID(Title, "EuroGoTV1")="EuroGoTV1")Then call ReadTitleExLogFile(Title,"EuroGoTV1",BlackName1,BlackRank1,WhiteName1,WhiteRank1) End If If(GetTitleExLogUserID(Title, "EuroGoTV2")="EuroGoTV2")Then call ReadTitleExLogFile(Title,"EuroGoTV2",BlackName2,BlackRank2,WhiteName2,WhiteRank2) End If End If Loop inStream.Close Set inStream = Nothing End Sub Function IsCurrentData(strWk) Dim Arr Dim TimeStr Dim StartDateTime,EndDateTime Arr = Split(strWk,Chr(9)) StartDateTime = Arr(1) EndDateTime = Arr(2) TimeStr = Year(Now) & "/" TimeStr = TimeStr & Right("0" & Month(Now),2) & "/" TimeStr = TimeStr & Right("0" & Day(Now),2) & " " TimeStr = TimeStr & Right("0" & Hour(Now),2) & ":" TimeStr = TimeStr & Right("0" & Minute(Now),2) & ":" TimeStr = TimeStr & Right("0" & Second(Now),2) If (StartDateTime < TimeStr) and (TimeStr < EndDateTime) then IsCurrentData = true Else IsCurrentData = false End If End Function Function GetTitleExLogUserID(Title, RetID) Dim strWk Dim Arr GetTitleExLogUserID="" Dim inStream Set inStream = CreateObject("ADODB.Stream") inStream.charset = "utf-8" inStream.type = 2 inStream.open inStream.LoadFromFile(fname_titleexlog) Do While Not inStream.EOS strWk = inStream.ReadText(-2) Arr = Split(strWk,Chr(9)) If(Arr(1)=Title) And (Arr(0)=RetID) Then GetTitleExLogUserID = Arr(0) End If Loop inStream.Close Set inStream = Nothing End Function Sub ReadTitleExLogFile(Title,UserID,BlackName,BlackRank,WhiteName,WhiteRank) Dim strWk Dim Arr Dim inStream Set inStream = CreateObject("ADODB.Stream") inStream.charset = "utf-8" inStream.type = 2 inStream.open inStream.LoadFromFile(fname_titleexlog) Do While Not inStream.EOS strWk = inStream.ReadText(-2) If(IsSameTitleAndUserID(strWk,Title,UserID)=true) then Arr = Split(strWk,Chr(9)) BlackName = Arr(2) BlackRank = Arr(3) WhiteName = Arr(4) WhiteRank = Arr(5) End If Loop inStream.Close Set inStream = Nothing End Sub Function IsSameTitleAndUserID(strWk,Title,UserID) Dim Arr Arr = Split(strWk,Chr(9)) If(UserID = Arr(0))and(Title=Arr(1))then IsSameTitleAndUserID = true Else IsSameTitleAndUserID = false End If End Function Sub ReadPlayerDataFile(PlayerName,PlayerRank,PlayerNameEN,PlayerRankEN,PlayerNameJP,PlayerRankJP) Dim strWk Dim Arr Dim inStream Set inStream = CreateObject("ADODB.Stream") inStream.charset = "utf-8" inStream.type = 2 inStream.open inStream.LoadFromFile(fname_playerdata) Do While Not inStream.EOS strWk = inStream.ReadText(-2) If(IsSameNameAndRank(strWk,PlayerName,PlayerRank)=true) then Arr = Split(strWk,Chr(9)) PlayerNameEN = Arr(2) PlayerRankEN = Arr(3) PlayerNameJP = Arr(4) PlayerRankJP = Arr(5) End If Loop inStream.Close Set inStream = Nothing End Sub Function IsSameNameAndRank(strWk,PlayerName,PlayerRank) Dim Arr Arr = Split(strWk,Chr(9)) If(PlayerName = Arr(0))and(PlayerRank=Arr(1))then IsSameNameAndRank = true Else IsSameNameAndRank = false End If End Function %> [ PHOTO ] The 2nd World Mind Sports Games Go Competition August 13-23, 2012

Pandanet-IGS

The 2nd World Mind Sports Games Go Competition August 13-23, 2012

Photo

Opening Ceremony

Venue	Venue	Venue	Opening Ceremony	Opening Ceremony
Opening Speech	Opening Speech	Opening Ceremony	Opening Ceremony
Click on the pictures to see larger versions.

Men's Individual / Women's Individual

1st Round	1st Round	1st Round	1st Round	1st Round
1st Round	1st Round	2nd day	2nd day	2nd day
3rd day	3rd day	3rd day	3rd day	3rd day
Semi-Final	Semi-Final	Semi-Final	Semi-Final	Final
Final	Final	Commentary	Commentary	Commentary
Commentary	Award Ceremony	Award Ceremony	Award Ceremony	Award Ceremony
Award Ceremony
Click on the pictures to see larger versions.

Teams

1st day	1st day	1st day	1st day	1st day
1st day	2nd day	2nd day	2nd day	2nd day
2nd day	2nd day	2nd day	2nd day	2nd day
2nd day	2nd day	Semi-Final	Semi-Final	Semi-Final
3/4 Place	Final	Award Ceremony	Award Ceremony	Award Ceremony
Award Ceremony	Award Ceremony	Award Ceremony	Award Ceremony
Click on the pictures to see larger versions.

Pair Go

1st day	1st day	1st day	1st day	2nd day
2nd day	2nd day	2nd day	2nd day	3rd day
3rd day	Semi-Final	Semi-Final	Semi-Final	3/4 Place
Final	Final	Final	Award Ceremony	Award Ceremony
Award Ceremony	Award Ceremony
Click on the pictures to see larger versions.

Youth

1st day	1st day	1st day	1st day	2nd day
2nd day	2nd day	2nd day	3rd day	3rd day
3rd day	Semi-Final	Semi-Final	3/4 Place	Final
Final	Award Ceremony	Award Ceremony	Award Ceremony
Click on the pictures to see larger versions.

Closing Ceremony

Closing Ceremony	Closing Ceremony	Closing Ceremony	Closing Ceremony	Closing Ceremony
Closing Ceremony	Closing Ceremony	Closing Ceremony
Click on the pictures to see larger versions.

[ Go Competition Outline ]

Click here for detailed information about the software.

[ ↑This PageTop ] [ Pandanet ]