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 <alaindecorb...@free.fr>
À: Bob <rcab...@free.fr>, cfourc...@free.fr, Liste libOo
<users@fr.libreoffice.org>, pa...@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+unsubscr...@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
