Discussion :

[pingos]

Bonjour,
j'ai un vieux programme à déchiffrer et je voulais avoir confirmation que c'est bien du Visual Foxpro. Les fichiers ont l'extensions .prg et sont de la forme :

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
 
IF EOF()
   I=1
ELSE
   GO BOTTOM
   I=RECNO()
ENDIF 
DO WHILE I<100
   APPEND BLANK
   REPLACE QUANTITE WITH 1 
   I=I+1
ENDDO
REPLACE ALL NUM WITH RECNO()
GO TOP
BROWSE FIELD QUANTITE,CODE,INSERTION,NUM,DGNATION
GO TOP
DO WHILE .NOT. EOF()
   IF INSERTION<1
      SKIP
      LOOP
   ELSE
      CCODE=CODE
      CNUM=NUM
      CQ=QUANTITE
      CDEG=DGNATION
      CINSER=INSERTION
      REPLACE CODE WITH SPACE(15)
      LOCATE FOR NUM=CINSER
      INSERT BLANK BEFORE
      REPLACE CODE WITH CCODE
      REPLACE QUANTITE WITH CQ
      REPLACE DGNATION WITH CDEG
      LOCATE FOR NUM=CNUM
      SKIP
      LOOP
  ENDIF
ENDDO  
DELETE ALL FOR LEN(TRIM(CODE))<1

Et si jamais c'est du visual FoxPro où est-ce que je pourrais trouver de la documentation ?

[Dolhmen]

Je te confirme, c'est bien du fox pro.
Tu peux trouver de la doc sur le site de microsoft http://www.microsoft.com/france/vfoxpro/