Azərbaycan dili Bahasa Indonesia Bosanski Català Čeština Dansk Deutsch Eesti English Español Français Galego Hrvatski Italiano Latviešu Lietuvių Magyar Malti Mакедонски Nederlands Norsk Polski Português Português BR Românã Slovenčina Srpski Suomi Svenska Tiếng Việt Türkçe Ελληνικά Български Русский Українська Հայերեն ქართული ენა 中文
Subpage under development, new version coming soon!

Subject: »[news] XML Data Improvements

2010-02-02 21:34:26
Some additions I'd like to see in the XMLs, please:

transfers: add player name and surname, so you don't have to query each single player in the list just to get the name.

team-xxx data: would be great to have the league-ID, junior-league-ID and Cup-ID in there.

juniors: now with juniors playing matches, it would be great to have no. of matches played.

reports: would be nice to have a list with the reports texts. ;)

for statistics it would be nice to have the number of fans in each arena block separately in the match-xxx XML.
2010-02-02 21:48:13
this example will open a connection in VB with excel and copy the vars.xml to a sheet named XML_Import. You will need to create that sheet first and it's contents will be erased when you call this function.

btw. if someone can tell me how to make the password invisible on typing (like ****), please tell me. ;)

sub() test_connection
dim test1 as boolean

test1=log_In
end sub

Function Log_In() As Boolean

Sheets("XML_Import").Select
Cells.Select
Selection.ClearContents

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://online.sokker.org/start.php?session=xml", _
Destination:=Range("a1"))
.PostText = _
"ilogin=[""ilogin"",""Enter login""]&ipassword=[""ipassword"", ""Enter password""]"
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
'Variablen für Datum importieren
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://online.sokker.org/xml/vars.xml", _
Destination:=Range("A2"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = False
End With

Range("A1").Select
If Left$(ActiveCell.text, 2) = "OK" Then
Log_In = True
Else
Log_In = False
End If

End Function
2010-02-03 11:44:15
How do you read the password? (console or dialog)
2010-02-03 11:46:46
Thanks a lot :)
2010-02-04 13:15:20
... and now we have xml files updated!

^L^
2010-02-04 13:28:35
sum of changes? someone? :-)
2010-02-04 13:29:49
yes that would be good eh.
2010-02-04 13:31:31
player:
- height
- superdivine skill

junior:
- formation
- age
- superdivine skill
2010-02-04 13:34:10
are the junior stats of any use without a proper pid number?
2010-02-04 13:35:53
i you multiple current id by -1 then you will get proper ID.

you cannot get junior names from opponent team (yet)

2010-02-04 13:40:09
ah so this is using juniors.xml then - i have been trying player-X.xml which is not showing the correct player
2010-02-04 13:41:23
you cannot get junior names from opponent team (yet)

Are you going to include skill level of these other teams juniors?
2010-02-04 13:47:45
it is not my decision, but if will be I would not agree for that.
2010-02-04 13:49:10
and where is the talent? :-)))
2010-02-04 13:50:39
skill level would be great to see which would allow a junior scout team to be setup to ensure the best juniors are caught in the junior school and then followed through when promoted.
2010-02-04 13:52:38
and where is the talent? :-)))
omg. I completely forgot :P

btw. this changes were made by greg :) there is one thing which doesn't allow me to make any changes there :)