[AIDE] Génération de l'aide Panoramic en format html

Il n'y a aucun conflit avec les variables locales. J'ai enfermé ta procédure dans une autre, nommée test(), dans laquelle je déclare et utilise également la variable t$. Chaque procédure crée une variable t$ bien distincte, et ça se voit dans les messages:

Code:

dim tmp_str$, d$, c$
c$ = chr$(10)

file_open_write 1,"Test.txt"
file_writeln 1,"abcde"
file_writeln 1,"abcd"
file_writeln 1,"abc"
file_writeln 1,"ab"
file_writeln 1,"a"
file_writeln 1,""
file_close 1

file_open_read 1,"Test.txt"
' HTML_SetParagraphe()
test()
message "Résultat:"+c$+tmp_str$
end

sub test()
  dim_local t$
  t$ = "dans test"
  message "avant Set_Paragraphe(): "+t$
  HTML_SetParagraphe()
  message "après Set_Paragraphe(): "+t$
end_sub


SUB HTML_SetParagraphe()
  DIM_LOCAL t$
  message "dans Set_Paragraphe(): "+t$
  FILE_READLN 1,t$
  WHILE LEN(t$)>1
    tmp_str$= tmp_str$+"<p>"+t$+"</p>"+c$
    FILE_READLN 1,t$
    IF t$="E"
      MESSAGE "t$="+d$+t$+d$+"  LEN(t$)="+STR$(LEN(t$))
      STOP
    END_IF
  END_WHILE
  MESSAGE "Fin Proc"
  STOP
END_SUB

@Klaus

Eclaircissement :
1) dans ton code, la ligne 35 : if t$ = "E" ne sera pas vérifié puisque dans le ‘fichier.txt’ il n’y a pas de ‘E’
2) la variable d$ n’est affectée nulle part
Mais peut-être que ceci n’a aucune influence sur le déroulement du programme

J'ai bien compris ce que disais Klaus...
@Papydall : Klaus a montré juste un exemple...
Dans mon Prog, le fichier que je viens lire comporte bien un caractère "E" tout seul sur une ligne (cf "pano_editor.txt" dans test.bas)

Concernant la variable d$, j'ai juste mis un extrait de code, cette variable globale est déclarée et initialisée en tout début de programme...
mais le plus simple Papydall cela serait que tu récupères mon fichier test.bas sur mydrive pour te faire une idée...
Sur le forum je ne met que des extraits car cela serait trop fastidieux de récupérer tout le code (il manque un bouton 'select all' )

Et control-A, ça ne ferait pas l'affaire ?

@Nardo26

J’ai téléchargé sur ton WebDav le fichier ‘TEST.BAS.
Le l’ai lançais : message d’erreur sur les 2 lignes 275 et 280
275 FILE_LOAD LST_INDEX1,PATH$+"styles\index.txt"
280 FILE_LOAD LST_INDEX2,"styles\index.txt"

J’ai mis ces 2 lignes en REM et je relançais : le programme s’est déroulé jusqu'à la fin sans problème.
Il a généré les fichiers .HTML dans le répertoire ‘fichiers’ ainsi que le fichier ‘index.html’

Ok Papydall,

As-tu essayer de mettre la variable DEBUG à 1 (en début de programme) et de relancer ?
Cette variable permet de basculer entre le code qui se trouve dans un bloc ELSE et l'appel à la procédure qui normalement devrait faire la même chose...
voir en ligne 400 du programme test.bas

concernant les lignes 275 et 280, as-tu également récupéré le répertoire style sur mon webdav ?
normalement, si le répertoire style est présent sur ton disque, tu ne devrais pas rencontrer de message d'erreur...



J'ai beau chercher, je ne vois toujours pas où se trouve mon erreur... je me demande si ce n'est pas le même genre de pb que rencontre cosmos...

Klaus a écrit:

Et control-A, ça ne ferait pas l'affaire ?

Sur le forum ? si je m'amuse à faire ça, je récupère toute ce qui est affiché dans la page (les menu, les pseudo,etc...)

J'ai trouvé.

Regarde cet extrait de ton code:

Code:

   
    ' Section 4 : Action
    IF (t$="4" AND Langue$="F") OR (t$="E" AND Langue$="A")
      tmp_str$="<h2>Action</h2>"+c$
      IF DEBUG = 1
        HTML_SetParagraphe()
      ELSE
        FILE_READLN 1,t$
        WHILE LEN(t$)>1
          tmp_str$=tmp_str$+"<p>"+t$+"</p>"
          FILE_READLN 1,t$
        END_WHILE
      END_IF
      ITEM_ADD SECTION+4,STR$(COUNT(SECTION))+"|"+tmp_str$
      FinBloc=1
    END_IF
   
    ' Section 5 : Syntaxe 
    IF (t$="5" AND Langue$="F") OR (t$="G" AND Langue$="A")
      tmp_str$="<h2>Syntaxe</h2>"+c$
      IF L

Juste après le commentaire ' Section 5: Syntaxe, tu utilises la variable t$ pour la comparer à "5", et ainsi de suite. Or, tu avais déclaré t$ en dim_local pensant que cela ne servait que localement, pour lire. Mais en réalité, tu t'en sers après ! Donc, retire simplement le dim_local t$, et ça doit marcher !

Nardo26

J’ai récupéré le dossier ‘Styles’, j’ai laissé DEBUG = 0, j’ai exécuté : le programme s’est déroulé jusqu'à la fin sans problème.
Les fichiers .htm sont générés.
Tout semble correct.
Un clic sur index.htm ouvre le navigateur.
Quand je clique sur une des catégories (partie à droite de la fenêtre) tout se passe bien avec :
Mozilla Firefox
Chrome
Internet Explorer
SAUF AVEC OPERA çA NE MARCHE PAS !

Remarque :
Voici mon répertoire :
D:\Panoramic\Forum\Nardo26\TEST\index.htm
Lorsque je colle cette adresse dans le navigateur OPERA, la page s’affiche comme pour les autres navigateurs (liste à gauche et catégories à droite)
Si je clique sur catégorie, l’affichage (la droite de la fenêtre) disparait et l’adresse affichée devient :
D:/Panoramic/Forum/Nardo26/TEST/Fichier%5....
Les .... représente le nom de la catégorie

Ok maintenant met DEBUG à 1 et relance le test : tu n'auras pas la même chose
Après regarde vers la ligne 400 et essaye d'expliquer pourquoi il ya une difference...

Nardo, tu as vu mon post ci-dessus ? Tu as l'explication...

Non je n'avais pas vu ton explication
Mais ce n'est pas la solution.
Si tu regardes de plus près tu as, en gros ceci (en pseudo-code) :

Code:

SUB MakeHTML()
DIM_LOCAL t$
REPEAT
  READLN 1,t$
  ...
  IF ...
    HTML_Paragraphe()
  ELSE
    ....
  END_IF
UNTIL EOF(1)
...
END_SUB
...
SUB HTML_Paragraphe()
  DIM_LOCAL t$
  ...
END_SUB

Avec DEBUG = 1, seule la catégorie DIRECTIVE est présente, les autres non.
Avec DEBUG = 0, ça marche mais seulement, il ya un problème avec OPERA (mon navigateur préféré !)

Comment expliquer que OPERA, contrairement aux autres navigateurs, ajoute à l’adresse ‘Fichier%5’ ? puis il ne retrouve plus sa base !

Si, c'est bien l'explication. Tu as défini t$ localement dans la procédure HTML_SetParagraphe(), mais également dans la procédure MakeHTML(Projet$). La variable définié dans MakeHTML est locale à cette procédure et visible nulle par ailleurs, même pas dans une procédure appelée par elle-même !

Une solutions:

tu retires ces 2 déclarations de t$ des lignes dim_local et tu les places en dim au début du programme. C'est ce que j'ai fait, et ça marche.

Tu ne peux même pas le passer en paramètre à HTML-SetParagraphe car cette procédure modifie la variable. Seule une variable globale permet de faire ce que tu veux.

Je l'ai fait ainsi, et tout marche impeccable.

Sorry,

Au risque d’être un peu..... heu .... je vous pose la question : quel est le problème ?
Chez moi, sans rien modifier, le programme fonctionne.

Devrait-il fonctionner autrement ?

Voici une copie d’écran
C'est la même pour Internet Explorer,Firefox et chrome

]

Mais avec OPERA, non.
Il ajoute 'Fichier%5' à l'adresse et du coup ça ne fonctionne pas!

]

Papydall, le problème était de passer la valeur de la variable DEBUG à 1, au début du programme. Ceci provoque l'utilisation d'une procédure encapsulant une boucle de lecture dans le fichier, à l'aide d'une variable t$. Et tout le problème est dans la déclaration de la variable t$.

Bonjour,
Problème résolu: Non pas du fait que t$ était une variable locale mais parce que le FILE_POSITION(1) __ cherchez pas, elle n'existe pas cette commande ! __ n'était pas positionné là où je m'y attendais...

Tu avais raison Klaus, mais c'est dans mon raisonnement qu'il y avait l'erreur.

@PapyDall :
Je vais jeter un coup d'oeil à ton problème sous Opera. En fait ce n'est pas %5 mais %5C (ce qui correspond à caractère '\')
Font pas comme tous le monde ces gens là : sous windows, les séparateurs de répertoire sont codés avec un backslash et opéra utilise le slash... je dis pas que le pb vient de là, il faut que je vérifie dès que j'en ai l'occaz...

@PapyDall : C'était bien ça. Les autres navigateurs, convertissent les '\' en '/' automatiquement, sauf Opera...

C'est corrigé, tu vas pouvoir l'utiliser avec Opera ! (Récupère le dernier fichier MakeHLP.bas)

Salut Nardo26

Bravo, ça marche !
Une toute petite remarque :
ligne 12

Code:

DIM DEBUG    : DEBUG = 0

n’a plus sa raison d’être, isn’t it ?

Yes, but...
je me le garde en réserve au cas où...

De toute manière, j'avais l'intention de partir de cette base pour faire évoluer le programme vers un convertisseur de BBcode -> html
La plupart des gens sur le forum "maitrise" les balises bbcode et je me suis dis que c'était peut être une bonne idée pour réaliser des docs...

C'est à cette occaz que je suis tombé sur le pb de "=" en paramètre, en voulant faire un StrReplace(t$,"[i]","<span class='italique'>")

Pour l'instant ce projet est en "stand-by", je préfère attendre l'arrivée des fonctions...

Et tu as raison. En tout cas le projet parait sympa

@ Nardo26,

Tu es sur un vrai utilitaire,
NE LAISSES PAS TOMBER !