FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Button_picture
par pascal10000 Aujourd'hui à 11:41

» Pourquoi le compilateur stagne
par Minibug Aujourd'hui à 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Aujourd'hui à 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Aujourd'hui à 10:03

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Marc Aujourd'hui à 10:00

» KGF_dll - nouvelles versions
par pascal10000 Hier à 17:27

» Mah-Jong européen new-look
par Minibug Mar 12 Déc 2017 - 22:31

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Petit défi de programmation.

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 882
Date d'inscription : 19/01/2014

MessageSujet: Petit défi de programmation.   Jeu 8 Juin 2017 - 21:49

Bonsoir à tous.

Je cherche la solution la plus simple afin de transformer les lignes suivantes d'un fichier, comme suit:

Code:
abriter (v)  (*) = schützen
= (protéger) &
abriter (v)  (*) = aufnehmen
= (Sport)
= (accueillir) &

Résultat à obtenir:

Code:
abriter (v)  (*) = schützen (protéger) 
abriter (v)  (*) = aufnehmen (Sport) (accueillir)


La traduction d'un mot pouvant comporter zéro, une ou plusieurs lignes de définition, comportant le signe &.

Merci de votre aide.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 8 Juin 2017 - 22:30

Code:
dim i%,c%,a$,b$

dlist 1
file_load 1,"fichier.ext"
c%=count(1)+1

while i%<c%
   i%=i%+1
   if i%>count(1) : exit_while : end_if
   a$=item_read$(1,i%)
   if left$(a$,1) = "="
      if right$(trim$(a$),1)="&" : a$=left$(a$,len(a$)-1) : end_if
      b$=item_read$(1,i%-1)+right$(a$,len(a$)-1)
      item_delete 1,i%
      item_insert 1,i%,b$
      item_delete 1,i%-1
      i%=i%-1
   end_if
end_while

file_save 1,"fichier.ext"

message "Fini ! "
end

Edit : 

Embarassed  correction...
Code:
dim i%,c%,a$,b$

dlist 1
file_load 1,"Nouveau document texte.txt"
c%=count(1)+1

while i%<c%
   i%=i%+1
   if i%>count(1) : exit_while : end_if
   a$=trim$(item_read$(1,i%))
   if left$(a$,1) = "="
      if right$(a$,1)="&" : a$=left$(a$,len(a$)-1) : end_if
      b$=item_read$(1,i%-1)+right$(a$,len(a$)-1)
  item_delete 1,i%
  item_insert 1,i%,b$
  item_delete 1,i%-1
  i%=i%-1
   end_if
end_while

file_save 1,"Nouveau document texte.txt"

message "Fini ! "
end

tongue
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 10 Juin 2017 - 2:00

...Et alors ?...Cela convient il ou pas ?
Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Pedro Alvarez

avatar

Nombre de messages : 882
Date d'inscription : 19/01/2014

MessageSujet: Petit défi de programmation.   Sam 10 Juin 2017 - 9:15

Bonjour.

Désolé de la réponse tardive, mais mon logiciel principal vient de tourner durant une semaine complète, afin de récupérer des données sur le Net.

Oui, ta solution me convient parfaitement, et je te remercie beaucoup.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 10 Juin 2017 - 13:45

Content d' avoir pu t' aider.
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Petit défi de programmation.   

Revenir en haut Aller en bas
 
Petit défi de programmation.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Un petit bonjour / bonsoir !
» Petit Cafe Gratuit au McDo du 15 au 28 novembre
» Pour les vrais débutants en programmation
» Petit billet d'humeur
» Présentation d'un petit suisse

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: