Discussion :

[chickenhands]

Bonjour!

Voici quelques lignes de code extraites du logiciel SAGE APIBATIMENT.
Il s'agit d'un script de parametrage d'édition.

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
'...

  'Imprimer l'en-tête
  ModifBloc("Logo", "+Sav, Temp")
  Imprimer Logo
  Imprimer Entête

  'Lecture des lignes du devis
  Ligne="DevisLigne" de Devis

  'Faire 2 passages dans les lignes
  ' . 1er passage : impression des lignes comprises
  ' . 2ème passage : impression des variantes
  NbPassage=1
  Faire
    Si NbPassage>2 Alors Arrêter
    Si NbPassage=2 Alors
      Si VarianteEnPied=Faux Alors
        Arrêter
      Sinon
        Si VarianteDétectée=Faux Alors Arrêter
      FinSi
    FinSi
    Pour Chaque Ligne
      Si Ligne.NonEdit=Faux Alors
        Si (NbPassage=1 Et (VarianteEnPied=Faux Ou Ligne.Variante=Faux)) ou (NbPassage=2 Et Ligne.Variante=Vrai) Alors
          Si NbPassage=1 Alors
            Si Changement(Page) Alors Imprimer "DébutCorps...FinCorps"
          Sinon
            Si Changement(Page) Alors Imprimer "DébutCorps, DébutVariantes...FinVariantes, FinCorps"
          FinSi
          Si Ligne.NumLig>0 Alors
            Typ=Ligne.Type
            NivTr=Ligne.NivTr
            Si Typ=TRANCHE Alors
              Récapitulatif=Vrai
              'Si Tranche
              Si NivTr=1 Alors
                Si Ligne.SautPage=Vrai Alors ModifBloc("DébutTranche","Sav,Temp")
                Si Changement(Ligne.IdTranche) Alors Imprimer "DébutTranche...FinTranche"
              Sinon
                'Si Sous-tranche
                Si NivTr=2 Alors
                  Si Ligne.SautPage=Vrai Alors ModifBloc("DébutSsTranche","Sav,Temp")
                  Si Changement(Ligne.IdTranche) Alors Imprimer "DébutSsTranche...FinSsTranche"
                FinSi
              FinSi
            Sinon
'...

Le code n'est pas complet bien évidemment car il fait plusieurs pages.

je cherche des tutoriels sur ce type de scripts afin de me perfectionner.

Merci d'avance pour vos réponses

[sevyc64]

Codage en français, ça pourrait être du Windev.

Je ne connais pas Windev donc je ne pourrais pas confirmer

[GrandFather]

...ou ça pourrait être un langage de script propriétaire implémenté spécifiquement dans cette suite logicielle.

Il n'y a rien à ce sujet dans la documentation ou sur le site Web de l'éditeur ?

[el_slapper]

J'ai vu, en 2000, du VB excel en français(oui, c'est horrible, ce post devrait être interdit aux moins de 16 ans). Mais je ne suis pas sur que ça corresponde. "FinSi" devrait être "Fin Si", par exemple. Et je ne suis pas sur qu'"Imprimer" colle non plus. Ca ne doit pas être ça.

[chickenhands]

j'ai bien une doc de 64 pages mais à part me dire que le mot somme additionne les champs, je vois pas.
je travaille enormement sur VBA et SQL mais ce code là me fait vraiment peur. je n'y trouve aucune logique. ca devrait etre interdit à la circulation ce genre de code.

[sevyc64]

Aucune logique ?????

Tu es sur de faire de la programmation ?

La logique semble exactement la même que dans n'importe quel langage. Tu as une boucle Do..Loop (Faire ...), des tests de conditions If..Then..Else (Si/Alors/Sinon), une boucle For Each (Pour Chaque ...)

Les mots clés sont en français sinon pour le reste ça ressemble à de la syntaxe classique

[ternel]

Trouvé sur google, après plusieurs tentatives.
En cherchant bêtement "FinSi"

Cast3M

Il y a du code qui ressemble beaucoup

[chickenhands]

Aucune logique ?????

Tu es sur de faire de la programmation ?

bien evidemment que c'est logique mais le resultat de ce script renvoie un parametrage d'edition.

[telliak]

Salut,
J'exhume quelque peu...
Je ne suis pas sûr du tout que ce code corresponde à un langage informatique, j'ai plutôt l'impression qu'il s'agit de «pseudo-code», code en langage naturel à vocabulaire restreint permettant la description précise d'un algorithme avant son codage réel.

[sevyc64]

C'est un langage de script dans le logiciel SAGE APIBATIMENT, donc langage propriétaire mais certainement inspiré d'un langage existant.

Ça ne serait pas la 1ere fois chez SAGE bien que APIBATIMENT (comme bon nombre de leur logiciel d'ailleurs) n'a pas dû être conçu au départ par SAGE (devenu SAGE suite au rachat de l'éditeur d'origine probablement).

Ça peut ressembler à un langage de pseudo-code, ça peut ressembler aussi à du Windev, difficile à dire avec cet exemple.

[xoorus]

Sinon
Si Changement(Page) Alors Imprimer "DébutCorps, DébutVariantes...FinVariantes, FinCorps"
FinSi

Cela ressemble beaucoup à du windev ..