FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Logiciel de planétarium.
Et pourquoi ?...[RESOLU] Emptypar Pedro Aujourd'hui à 8:08

» Un autre pense-bête...
Et pourquoi ?...[RESOLU] Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
Et pourquoi ?...[RESOLU] Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
Et pourquoi ?...[RESOLU] Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
Et pourquoi ?...[RESOLU] Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
Et pourquoi ?...[RESOLU] Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
Et pourquoi ?...[RESOLU] Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
Et pourquoi ?...[RESOLU] Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
Et pourquoi ?...[RESOLU] Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
Et pourquoi ?...[RESOLU] Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
Et pourquoi ?...[RESOLU] Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
Et pourquoi ?...[RESOLU] Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
Et pourquoi ?...[RESOLU] Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
Et pourquoi ?...[RESOLU] Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
Et pourquoi ?...[RESOLU] Emptypar leclode Ven 20 Sep 2024 - 19:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier
Le Deal du moment :
Smartphone Xiaomi 14 – 512 Go- 6,36″ 5G ...
Voir le deal
599 €

 

 Et pourquoi ?...[RESOLU]

Aller en bas 
AuteurMessage
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Et pourquoi ?...[RESOLU] Empty
MessageSujet: Et pourquoi ?...[RESOLU]   Et pourquoi ?...[RESOLU] EmptyMar 11 Fév 2014 - 1:37

J' ai fait ce code :
Code:
memo 1
width 1,250
height 1,300
item_add 1,"   la vie est belle et courte"
item_add 1,"   la vie est dure"

memo 2
width 2,250
height 2,300
left 2,260

Color_text()
end

Sub Color_text()
   dim_local x%,L$,y%,c$,pos_dep%,pos_fin%,mot$,count_doc%,nb_car%,c%
   for x%=1 to count(1)

      L$=item_read$(1,x%)
      c%=len(L$)
      count_doc%=count_doc%+len(L$)
      pos_dep%=1
      pos_fin%=0
      for y%=1 to len(L$)
         c$=left$(L$,1)
         mot$=""
         if len(L$)>1 : L$=right$(L$,len(L$)-1):end_if
         if c$=chr$(32)
            pos_fin%=y%
            if pos_fin%-pos_dep% >0
               select_text 1,(count_doc%-c%)+pos_dep%,(pos_fin%-pos_dep%)
               mot$=select_read$(1)
               item_add 2,str$(pos_dep%)+"/"+str$(pos_fin%)+"/"+mot$+"/"+str$(pos_fin%-pos_dep%)
            end_if
            pos_dep%=pos_fin%+1
         else
            if y%=c%
               pos_fin%=y%+1
               if pos_fin%-pos_dep% >0
                  select_text 1,(count_doc%-c%)+pos_dep%,(pos_fin%-pos_dep%)
                  mot$=select_read$(1)
                  item_add 2,str$(pos_dep%)+"/"+str$(pos_fin%)+"/"+mot$+"/"+str$(pos_fin%-pos_dep%)
               end_if
            end_if
         end_if
      next y%
      item_add 2,"---------------------------------------------------"
   next x%
End_sub

et je ne comprends pas pourquoi cela donne ceci :

Et pourquoi ?...[RESOLU] Captur45

Quelqu' un voit il pourquoi ma ligne 2 n' est pas traitée comme la ligne 1 ?... scratch


Edit : qu' elle bêta !   Embarassed  je n' avais pas rajouté les deux caractères de saut de ligne dans le compte du nombre de caractères...
Revenir en haut Aller en bas
 
Et pourquoi ?...[RESOLU]
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu] Pourquoi item_add n'ajoute pas un caractère?
» pouvez-vous me dire pourquoi ce code plante. (Résolu)
» pourquoi ces erreurs ?
» PANORAMIC et informatique de gestion (les tableaux)
» Heu...et pourquoi ?...

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: