Discussion :

[delavega]

Bonsoir,

J'aimerai effectuer un tri entre deux tableaux et placer dans un troisième tableau les résultats en commun.

J'ai tenté de rechercher des exemples sur le forum mais je n'ai pas réussi à trouver celui qui me permettrait d'effectuer cette procédure.

En vous remerciant par avance,

Denis

[delavega]

Une âme charitable svp, une semaine que je suis dessus, je n'y arrive pas

Voici mon code :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
<%
 
dim creneaux(5) ' les creneaux voyants
dim rdv(2) ' les rendez vous clients
dim dispo(100) ' c ici que l'on placera les crénaux encore disponibles
 
x = 1 ' compteur pour le tableau final
 
' les creneaux horaires
 
creneaux(1) = "10h00-10h30"
creneaux(2) = "10h30-11h00"
creneaux(3) = "11h00-11h30"
creneaux(4) = "11h30-12h00"
creneaux(5) = "12h00-12h30"
 
' les rendez vous
 
rdv(1) = "10h30-11h00"
rdv(2) = "12h00-12h30"
 
response.write "Le rendez vous pris en compte est 10h30-11h00" & "<BR>"
response.write "Le rendez vous pris en compte est 12h00-12h30" & "<BR><BR>"
 
for i = 1 to UBound(creneaux) ' a partir du début du tableau jusuq'à la fin de celui ci
 
	for y = 1 to UBound(rdv)
 
	if creneaux(i) <> rdv(y) then ' si la valeur du creneau en cours (i) n'est pas égal au rendez vous
 
		for g = 1 to x ' a partir du début des records dispo jusqu'à la fin actuelle
 
			if dispo(g) <> creneaux(i) then ' si les records précédents du tableau dispo ne sont pas égaux au nouveau créneau à insérer 
			dispo(x) = creneaux(i) ' on place la valeur de ce creneaux non concerné par un rendez vous dans le tableau final
			x = x + 1
			end if
 
		next ' fin de la boucle
 
	end if
 
	next
 
next ' fin de la boucle
 
' test d'affichage du tableau final
 
compteur = 1 ' compteur pour affichage final
 
for i = 1 to x
if dispo(i) <> "" then
response.write compteur & " - " & dispo(i) & "<BR>"
compteur = compteur + 1
end if
next
 
%> 
 
Je suis vraiment curieux de voir où est mon erreur svp.
 
Merci d'avance.
 
Denis