Discussion :

[Charly910]

Bonjour,

Est ce que quelqu'un connait un outil pour transformer du javascript (issu d'une page HTML) en Delphi ?

(les Switch() .... Case sont particulièrement difficiles à transformer)

Merci

Charly

[anapurna]

salut

les switch sont l'equivalent des case en delphi
les case valeur corresponde au valeur :
ensuite les ...break sont l'equivalent des begin...end
le else bin c'est la meme chose en delphi

voila en gros la traduction de tes switch avec de temps en temps des subtilite
mais tres franchement j'en ai rarement vu

@+ Phil

[Paul TOTH]

Bonjour,

Est ce que quelqu'un connait un outil pour transformer du javascript (issu d'une page HTML) en Delphi ?

(les Switch() .... Case sont particulièrement difficiles à transformer)

Merci

Charly

un cerveau et une paire de mains

[Charly910]

Eh oui, merci à tous les deux,

Mais si jamais un logiciel peux faire le travail pour moi ...

C'est d'ailleurs le principe de l'informatique !

Cordialement

Charly

[anapurna]

salut

un editeur avec fonction remplacer devrais pour une grande parti suffir
...
tiens au hasard l'editeur de delphi

tu as un exemple de code que tu n'arrive pas a transformer ?

@+ Phil

[Charly910]

Bonjour Anapurna,

je pense y arriver, avec de l'huile de coude, mais les Switch ... case qui sont sur des chaines de caractères et non sur des entiers :

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
 
		switch (UTM_Bande)
		{case "P" : var UTM_Ajout_Y = 1500000;
			break;
		case "R" : var UTM_Ajout_Y = 3500000;
			break;
		case "S" : var UTM_Ajout_Y = 3500000;
			break;
		case "U" : var UTM_Ajout_Y = 5500000;
			break;
		case "W" : var UTM_Ajout_Y = 7500000;
			break;
		case "X" : var UTM_Ajout_Y = 9500000;
			break;
		case "M" : var UTM_Ajout_Y = 400000;
			break;
		case "K" : var UTM_Ajout_Y = 2400000;
			break;
		case "H" : var UTM_Ajout_Y = 4400000;
			break;
		case "G" : var UTM_Ajout_Y = 4400000;
			break;
		case "E" : var UTM_Ajout_Y = 6400000;
			break;
		case "C" : var UTM_Ajout_Y = 8400000;
			break;
		default : var UTM_Ajout_Y = -1;
		}

J'ai déjà lu un truc la dessus, je vais chercher dans la FAQ

A+

Charly

[Charly910]

ça y est, j'ai trouvé, il faut faire :

Code :

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

1
2
3
4
5
6
7
8
9
 
uses StrUtils;
...
case AnsiIndexStr(Str, ['Chaîne1', 'Chaîne2', 'Chaîne3']) of
  0 : // Str = 'Chaîne1'
  1 : // Str = 'Chaîne2'
  2 : // Str = 'Chaîne3'
  -1 : // Str ne vaut aucune de ces trois chaînes
end;

C'est un peu moins lisible au niveau du code et cela demande pas mal de transformation (car j'en ai beaucoup !), mais je m'y attelle !

Merci à tous

Charly

[Andnotor]

Ton switch javascript est sur un caractère et non une chaîne.
En Delphi:

Code :

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

1
2
3
4
5
6
case UpCase(Str[1]) of
  'P' : ...
  'R' : ...
  'S' : ...
  //etc.
end;

[Lung]

Code :

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

1
2
3
4
5
6
7
8
9
 
uses StrUtils;
...
case AnsiIndexStr(Str, ['Chaîne1', 'Chaîne2', 'Chaîne3']) of
  0 : // Str = 'Chaîne1'
  1 : // Str = 'Chaîne2'
  2 : // Str = 'Chaîne3'
  -1 : // Str ne vaut aucune de ces trois chaînes
end;

C'est valable dans quelle version de Delphi ?
Je suis en 6, et j'ai une erreur de syntaxe.

[Charly910]

ça marche en Delphi 7 (et c'est dans la FAQ Delphi) mais je vais tester la version de AndNotOr qui est plus pratique pour la conversion Java ==> Delphi

[Charly910]

Dans la FAQ c'est à l'adresse :

http://delphi.developpez.com/faq/?pa...e#caseofstring


Il est dit qu'il y a une autre méthode si cela ne fonctionne pas

Charly

[Lung]

Je vais voir.
Merci.