Pedro
Nombre de messages : 1558
Date d'inscription : 19/01/2014
 | | Sujet: Petit défi de programmation. Jeu 8 Juin 2017 - 20: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. | |
|
Yannick
Nombre de messages : 8611
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Jeu 8 Juin 2017 - 21: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 :  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  | |
|
Yannick
Nombre de messages : 8611
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Sam 10 Juin 2017 - 1:00 | |
| ...Et alors ?...Cela convient il ou pas ?  | |
|
Pedro
Nombre de messages : 1558
Date d'inscription : 19/01/2014
| | Sujet: Petit défi de programmation. Sam 10 Juin 2017 - 8: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.
| |
|
Yannick
Nombre de messages : 8611
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Sam 10 Juin 2017 - 12:45 | |
| Content d' avoir pu t' aider.  | |
|
Contenu sponsorisé
| | Sujet: Re: Petit défi de programmation. | |
| |
|
Calendrier