concatener chaines d'un texteRésolu/Fermé

Question

Bonjour,
j'ai un souci pour concatener des chaines d'un texte.
Je m'explique, j'ai un fichier.txt de cette forme:
a bonjour
comment
a ca
a va
?

je voudrais effectuer une concatenation d'une ligne commencant par "a" avec la prochaine ligne qui ne commence par par "a", afin d'obtenir :

a bonjour comment
a ca
a va ?

J'ai pensé à :
# si le premier caractere de la ligne n est pas "a", on la concatene avec la precedente
while read ligne
        do
                if [ "${ligne::1}" != "a" ]
                then
                        (cat ${ligne} ${ligne+1}) > toto.txt
                fi
        done < fichier.txt

Mais ca ne fonctionne pas (je suis débutant...)

Merci de votre aide.

piopicolo · Answer

ton problème c'est que pour avoir le résultat tu dois connaitre le résultat. çà ne peut pas marcher.
je m'explique : tu veux écrire "comment çà va" avec des phrases déjà construite comprenant les mêmes mots donc c'est  inutile car tu connais ce que tu veux écrire et si tu écris à partir de phrase au hasard tu auras n'importe quoi! Bref, expliques un peu mieux ton problème et ce que tu veux résoudre!

A+

seb75 · Answer

Je n'ai pas trop compris ta réponse mais je vais tenter de me réexpliquer.

J'ai le fichier SEB.TXT suivant :

<bonjour
allez
<vous bien
<oui 
je vais bien
merci

Je souhaite obtenir (dans un fichier TOTO.TXT)

<bonjour allez
<vous bien
<oui je vais bien merci

piopicolo · Answer

Je ne comprends toujours pas ! tu connais ce que tu veux obtenir DONC il n'y a pas de problème !!! Si tu dois trier des phrases ou les mettre selon un ordre précis y a des tas de moyens.
Mais là je ne saisis pas ce que tu veux faire.
Si tu veux seulement concatener les phrases reçues sans la première lettre (a ou >) c'est pas sorcier mais si tu dois les trier avant tu dois bien connaitre ce que tu veux obtenir !

A+

seb75 · Answer

je veux concatener une chaine n'ayant pas "a" comme premier caractere avec la chaine précédente.
je sais que ce n'est pas sorcier mais je n'y arrive pas !
Merci de ton aide

piopicolo · Answer

tu mets chaque phrase reçue dans un tableau déclaré en texte. Chaque cellule du tableau doit être dimensionnée au maximum de charactères éstimés reçus (100). tu dimensionnes le tableau pour ce que tu veux recevoir et lorsqu'il est plein tu concatenes toute les cellules du tableau (ou avant)
Après tu le réinitialises à 0. 
A+

piopicolo · Answer

comme tu va concatener les lignes de caractères (100) ayant plein de blanc ou de 0. 
Avant écriture du texte final, tu fais une boucle pour enlever tous les blancs ou zéros superflus (blanc >1)

A+

seb75 · Answer

Merci, mais je voyais plus quelque chose comme ça:

${ligne1}=" "
while read ligne
do
        if [ "${ligne::1}" != "a" ] 
        then 
               (${ligne}${ligne1}) >> TOTO.TXT
               ${ligne1}=${ligne}
        else
               ${ligne}>>TOTO.TXT
        fi
done < SEB.TXT

Parce que comme je l'ai dit, je suis débutant et je ne réussirai pas à faire ce que tu m'as dis (je ne sais meme pas faire un tableau...)

Merci beaucoup pour ton idée en tout cas.

jipicy · Answer

Salut, C'est plus complexe que tu ne le crois ton affaire ;-(( Mais il y a une solution avec "sed" (voir à ce sujet SED - The Stream EDitor - Part III - Étiquettes, boucles et mémoires tampons), et en voici une adaptation à ton cas :[jp@MDK-2008 trash]$ cat plop fichier.txt [jp@MDK-2008 trash]$ cat fichier.txt

seb75 · Answer

Merci Jipicy !!
ca marche très bien, à l'exception que ca ne m'affiche pas la dernière chaine (<merci) lorsque j'ai :
<bonjour
allez
<vous bien
<oui
je vais bien
<merci

au lieu de :
<bonjour
allez
<vous bien
<oui
je vais bien
merci

jipicy · Answer

[jp@MDK-2008 trash]$ cat plop fichier.txt [jp@MDK-2008 trash]$ cat fichier.txt

seb75 · Answer

autant pour moi, 
ca marche à merveille !
Merci Jipicy

seb75 · Answer

autant pour moi, 
ca marche à merveille !
Merci Jipicy

lami20j · Answer

Salut,

C'est plus complexe que tu ne le crois ton affaire ;-(( 
En effet ;-)

Voici une solution Perl avec un test avant positif ;-)lami20j@debian:~/trash$ cat seb75
<bonjour
allez
<vous bien
<oui
je vais bien
merci
lami20j@debian:~/trash$ perl -e '$l=`cat seb75`;$l=~s/
(?=^\w)/ /mg;print $l'
<bonjour allez
<vous bien
<oui je vais bien merci

Concatener chaines d'un texte

13 réponses

Discussions similaires

Newsletters