Re : Re: [fr-users] récupération de mots dans un texte

Bonjour,
On sort du domaine Libreoffice, mais voila une solution en VBscript
1. créer un fichier C:\vb\lire.vbs et copier le script ci-dessous
2. créer un fichier C:\vb\texte.txt et coller le texte à traiter
3. exécuter lire.vbs pour créer la réponse texteout.txt
==============================
Const ForReading = 1, ForWriting = 2 
 
Set oFso = CreateObject ("Scripting.FileSystemObject")
 
Set flecture = oFso.OpenTextFile ("C:\vb\texte.txt", ForReading)
Set fecriture = oFso.OpenTextFile ("C:\vb\texteout.txt", ForWriting, true)
 
Do While Not flecture.AtEndOfStream
        ligne = flecture.ReadLine
        'On remplace les ponctuations collées aux noms ou prénoms par des espaces
        ligne = Replace(ligne,","," ")
        ligne = Replace(ligne,"."," ")
        ligne = Replace(ligne,":"," ")
        ligne = Replace(ligne,";"," ")
        
        tb = split(ligne," ") 
        For i = lbound(tb) to ubound(tb) 
        mot = tb(i) 
        if (mot<> "") AND (UCase(mot)=mot) then
                NOM=Mot
                
                prenom = tb(i+1) 
                model_de_prenom = Ucase(Left(prenom,1)) & LCase(Right(prenom,Len(prenom)-1))

                If model_de_prenom=prenom then
                        'wscript.echo(Nom & " " & prenom)
                        fecriture.WriteLine (Nom & " " & prenom)
                else
                        'wscript.echo(Nom)
                        fecriture.WriteLine (Nom)
                end if
        end if
        next

Loop
 
flecture.close
fecriture.close
Set oFso = nothing
wscript.echo("c'est fini, ouvrir le fichier c:\vb\texteout.txt" )

==========================================================
----- Mail d'origine -----
De: AA <alaindecorbeil@free.fr>
À: Bob <rcabane@free.fr>, cfourcroy@free.fr, Liste libOo <users@fr.libreoffice.org>, paour@free.fr
Envoyé: Mon, 28 Jan 2019 14:46:32 +0100 (CET)
Objet: Re: [fr-users] récupération de mots dans un texte

bonjour

je n'ose y penser mais pourquoi pas

dans l'absurde si cela est possible il peut y avoir aussi

DUPONT LA JOIE Jean-Philippe-André

mais une sélection à la main peut être faite pour ces cas il ne faut pas 
exagérer

un simple Ctrl c d'un fichier  Ctrl v d'un autre fichier peut être fait 
sur des exceptions




Le 28/01/2019 à 12:50, Bob a écrit :
> Ah ! Ça devient plus subtil.
> Est-ce que
> DUPONT LA JOIE Jean Philippe
> doit donner "DUPONT LA JOIE" comme patronyme et "Jean Philippe" comme 
> prénom ?
> Ou s'agit-il d'une hypothèse qui ne va pas se rencontrer ?
> > bonjour
> >
> > la réponse est pour les 4 questions
> >
> > oui
> >
> > est aussi possible : CARTIER-BRESSON tiret entre nom majuscule
> >
> > CARTIER-BRÉSON accentuation sur nom majuscule et tiret


-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy