découper un texte pour en faire plusieurs enregistrements

**moulinmax** · 14/12/2008, 21h13

Bonsoir,

J'ai créé une (très modeste) G.E.D., celle-ci est fondée sur le bulletin des arrêts de la cour de cassation.

Ma table est constituée de trois colonnes : "date + RG", "abstract", "résumé"

Pour l'instant, je me contente de faire de longs "copier/coller" pour alimenter ma table.

Ce bulletin reprend les différents arrêts "intéressants", chaque arrêt se trouvant dans un long fichier .doc, chaque arrêt étant sous cette forme :

N°1933

ARCHITECTE ENTREPRENEUR
Article 1792 du Code civil - Construction d'ouvrage accessoire empiétant sur le fonds d'autrui - Démolition - Responsabilité de l'architecte.

Doit être déclaré responsable et tenu à garantir le maître de l'ouvrage de toute condamnation l'architecte chargé d'une mission complète de maîtrise d'oeuvre ayant autorisé l'implantation d'un ouvrage accessoire (soutènement par clouage) empiétant sur la propriété voisine sans le consentement du propriétaire du fonds servant et conduisant à la démolition de cet élément, laquelle rend l'ouvrage principal impropre à sa destination.

CA Saint-Denis (ch. civile), 23 mai 2008 - RG n° 07/00052

M. Creze, Pt. - Mme Pony et M. Fievet, conseillers.

Je vais utiliser les balises "code" pour vous préciser chaque champ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
N° 1933 ARCHITECTE ENTREPRENEUR
Article 1792 du Code civil - Construction d'ouvrage accessoire empiétant sur le fonds d'autrui - Démolition - Responsabilité de l'architecte.
 
C'est ce que je dois avoir dans le champ "abstract"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Doit être déclaré responsable et tenu à garantir le maître de l'ouvrage de toute condamnation l'architecte chargé d'une mission complète de maîtrise d'oeuvre ayant autorisé l'implantation d'un ouvrage accessoire (soutènement par clouage) empiétant sur la propriété voisine sans le consentement du propriétaire du fonds servant et conduisant à la démolition de cet élément, laquelle rend l'ouvrage principal impropre à sa destination.
 
C'est ce que je dois avoir dans le champ "résumé"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
CA Saint-Denis (ch. civile), 23 mai 2008 - RG n° 07/00052
 
C'est ce que je dois avoir dans le champ "DATE+RG"

Quelqu'un aurait-il une idée pour automatiser ce que je fais en "copier/coller".

L'idée c'est qu'à chaque fois que l'on trouve "N°" dans le texte de départ (.doc) jusqu'au prochain "N°", on découpe ce qu'il y a entre ces deux "signets" pour créer un enregistrement et remplir la table.

Pour votre information, si cela peut aider, l'abstract et le n° sont en gras dans le texte d'origine.

Si quelqu'un a une idée ...

**pc75** · 15/12/2008, 08h19

Bonjour,

Si les arrêtés sont toujours structurés de la même manière, tu peux peut-être t'en sortir avec les fonctions InStr(), et Mid().

Peut-être en fonction du nombre de retour chariot ?

**Heureux-oli** · 15/12/2008, 09h16

Salut,

Aurais-tu un document complet sous la main que l'on puisse réellement se rendre compte de sa structure.
Il est fort possible que l'on puisse automatiser un maximum l'opération, y compris la recherche des fichiers.

**moulinmax** · 15/12/2008, 21h01

Merci à vous deux.

Voici l'url de la source que je copie dans mon document word pour, ensuite, faire un copier/coller dans ma base :

http://www.courdecassation.fr/public...ets_12018.html

**Heureux-oli** · 15/12/2008, 21h04

Salut,

C'est moins compliqué que tu ne le penses !

Si tu copie sous format HTML, tu as des signets, des titres.

Le signet se trouve en début d'article !

**moulinmax** · 16/12/2008, 09h09

Merci.

Je n'y avais pas pensé

Il y a des balises h4, h5, br ...

Je vois bien comment ajouter un enregistrement à une table (je le fais dans le cadre d'une table qui liste un répertoire pour exporter des fichiers jpg dans un doc) ...

Comment fais-je pour scruter mon fichier .txt ...

Je suppose que le vba doit indiquer que chaque enregistrement (i.e. chaque arrêt pour moi) est compris entre les balises "/div" et "div" et que les parties qui m'intéressent sont rangées de la manière suivante :

abstract : compris dans les balises h4 et h5

date + rg : contenu dans les balises p sur un critère de recherche dans le texte compris dans cette balise avec les lettres "RG" et "/"

contenu : contenu dans les balises p sur un critère de recherche dans le texte compris dans cette balise excluant les lettres "RG" et "/"

De plus, je dois faire une boucle sur un critère du type ... "tant qu'il y a une balise h4 (ou h5) avec un "N°" on boucle"

Ensuite, n'ayant pas besoin de la dernière ligne concernant le nom des magistrats ... j'exclus le texte où il y un "Pt."

C'est en théorie ... mais en pratique je fais comment ...

Merci encore ...

**moulinmax** · 17/12/2008, 12h51

Bonjour, j'ai modifié le code d'arkham et cela fonctionne (youpi) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
                If lBegin Then
                    ' Si contient "RG n°" alors c'est la fin de l'arrêt avec la date
                    If InStr(1, lElt.outertext, "Civ.", vbTextCompare) <> 0 Then
                        ' Date + RG
                        lDATE_RG = lElt.outertext
                        ' Fin de l'arrêt
                        lBegin = False
                        lEnd = True
                    End If
 
                    If InStr(1, lElt.outertext, "Com.", vbTextCompare) <> 0 Then
                         ' Date + RG
                        lDATE_RG = lElt.outertext
                        ' Fin de l'arrêt
                        lBegin = False
                        lEnd = True
                    End If
                    If InStr(1, lElt.outertext, "RG n°", vbTextCompare) <> 0 Then
                         ' Date + RG
                        lDATE_RG = lElt.outertext
                        ' Fin de l'arrêt
                        lBegin = False
                        lEnd = True
 
                    Else
                        ' Sinon c'est une partie du résumé
                        lresume = lresume & IIf(lresume = "", "", vbCrLf) & lElt.outertext
                    End If
 
                End If

Par contre, il reste un problème celui de l'abstract ...

En effet, quand j'ai un abstract "papier" comme celui-ci :

1° AIDE JURIDIQUE
Aide juridictionnelle. - Demande. - Cassation. - Pourvoi. - Délai. - Interruption. - Condition.
2° CASSATION
Pourvoi. - Pourvoi incident. - Recevabilité. - Irrecevabilité du pourvoi principal. - Portée.

Je n'enregistre dans ma base que

1° AIDE JURIDIQUE

Alors que je voudrai enregistrer l'ensemble ...