Discussion :

[RadPAT]

Salut à tous,

depuis ce week end, le challenge winter scripting games 2008 de microsoft est ouvert :

http://www.microsoft.com/technet/scr...s/default.mspx

Il y a un niveau débutant et un niveau avancé, plus un challenge "mort subite"
A vos éditeurs VBS...

A++

[ced600]

Je viens de finir l'event2 de "mort subite"

J'ai aussi débugué un fichier vbs fournis dans le zip, je ne sais pas à quoi il sert.
Enfin presque débugué, il compare la date avec un >, faut que change cela. Je crois me souvenir qu'il y a un comparetodate. Une recherche sur le forum et ce sera fait. On vera demain.

[RadPAT]

Salut Ced600,

l'epreuve 2 de la mort subite n'est pas très compliquée, par contre j'ai échoué à l'épreuve 1 c'était une sorte de QCM et mon anglais n'est pas top.
Le zip c'est le competitor pack avec des fichiers qui te seront utiles pour les épreuves que tu retrouves ici en francais (je me suis pastillé tout en anglais avant de découvrir ce lien )

http://www.microsoft.com/technet/scr...a/summary.mspx

J'ai envoyé mes scripts hier soir et mes premiers résultats sont encourageants...



A++

[ced600]

Salut Ced600,

l'epreuve 2 de la mort subite n'est pas très compliquée, par contre j'ai échoué à l'épreuve 1 c'était une sorte de QCM et mon anglais n'est pas top.
Le zip c'est le competitor pack avec des fichiers qui te seront utiles pour les épreuves que tu retrouves ici en francais (je me suis pastillé tout en anglais avant de découvrir ce lien )

http://www.microsoft.com/technet/scr...a/summary.mspx

J'ai envoyé mes scripts hier soir et mes premiers résultats sont encourageants...



A++

Perso j'ai pas le temps de tout faire, donc j'en ferais un de temps à autre

[RadPAT]

Dans ce cas, je te conseille ces 2 là :

compter les points au bowling :
http://www.microsoft.com/technet/scr.../bevent10.mspx

faire un jeu de blackjack :
http://www.microsoft.com/technet/scr.../aevent10.mspx

Bon courage.

A++

[ced600]

La première c'est pas trop compliqué, plusieurs façon de le faire, cela resemble un peu à la calculatrice polonaise que j'avais fait en c.

Par contre le blackjack est plus dure (et plus chiant).

[RadPAT]

Par contre le blackjack est plus dure (et plus chiant).

moi je l'ai fait avec un HTA, ca passe tout seul.

A++

[ced600]

Ils l'ont vraiment fait !!!!
Ils ont utilisé le redim pour l'event 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Const ForReading = 1
 
Dim arrFileLines()
i = 0
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Vertical.txt", ForReading)
 
Do Until objFile.AtEndOfStream
     Redim Preserve arrFileLines(i)
     arrFileLines(i) = objFile.ReadLine
     i = i + 1
Loop
 
objFile.Close
 
For i = 1 to 4
    For Each strLine in arrFileLines
        strCharacters = strCharacters & Mid(strLine, i, 1)
    Next
Next
 
Wscript.Echo strCharacters

Incroyable je ne pensais pas qu'ils étaient aussi barbare

Je préfère ma solution avec un dictionnaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim line
Dim result
Dim path
 
'path of the file
path = "C:\temp\vertical.txt"
 
Set Dico = CreateObject("Scripting.Dictionary")
Set FSOosf = CreateObject("Scripting.FileSystemObject")
Set Ftxt =  FSOosf.OpenTextFile(path)
 
Do While Ftxt.AtEndOfStream <> True
    line = Ftxt.ReadLine
	for i = 1 to len(line)
		if Dico.Exists(i) then
			Dico(i) = Dico(i) & Mid (line, i, 1)
		else
			Dico.Add i, Mid (line, i, 1)
		end if
	next
	i = 0
Loop
 
Ftxt.Close
Set FSOosf = nothing
Set Ftxt = nothing
 
for i = 1 to Dico.count
	result = result & Dico(i)
next
 
Wscript.Echo result

[omen999]

moi je l'ai fait avec un HTA, ca passe tout seul.

ah bon, on a le droit d'utiliser des composants tiers

[RadPAT]

ah bon, on a le droit d'utiliser des composants tiers

l'utlisation d'un HTA est même imposée sur cette epreuve :

http://www.microsoft.com/technet/scr...8/bevent8.mspx

A++