Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  • Quoi de neuf ?
  • Forum
    • Actions
      • Marquer les forums comme lus
      • Bugs & Suggestions
    • Réseau social
      • Groupes
      • FAQ forum
      • Liste des utilisateurs
      • Voir l'équipe du site
    • Blogs
    • Agenda
    • Règles
  • Blogs
  • Projets
  • Recherche avancée
  • Index du forumDri black white Court Nike T shirt Blanc fit 103
  • Logiciels
  • Microsoft Office
  • Word
  • black 103 Blanc shirt Nike T Court Dri white fit
  • VBA Word
  • [WD-2003] recherche de mots entre crochets

+ Répondre à la discussion

Discussion: recherche de mots entre crochets

  • Outils de la discussion
    • Afficher une version imprimable
    • S'abonner à cette discussion…
  • Affichage
    • Choisir le mode hybride
    • Choisir le mode arborescent
  1. Unique Femme Taille Acvip Bonnet Jaune xf0qOZZA
    02/02/2011, 10h21 #1
    moht66
    Futur Membre du Club
    Assistant de recherche
    Inscrit en
    février 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe :
    Localisation : Belgique

    Informations professionnelles :
    Activité : Assistant de recherche

    Informations forums :
    Inscription : février 2011
    Messages : 8
    Points : 8
    Points
    8

    recherche de mots entre crochets

    Olive Boucle Ab Lc2 Réglable Army Original 130 Ceinture Plastique Us Cm n6r7Z6qxv
    Bonjour à tous,

    je suis occupé à créer un code dans Visual Studio (sur lequel je débute depuis 1 semaine) afin de vérifier des références biblio citées au sein d'un texte word2003.
    J'ai plus ou moins créé un code qui devrait fonctionner mais je n'arrive pas à savoir comment stocker la référence contenue entre [...], à savoir l'auteur et la date : [auteur, date]. J'arrive à faire identifier le premier [ mais pas celui de la fin...or les longueurs des références varient fortement...

    Quelqu'un aurait-il un idée de comment stocker ces références entre crochets??

    Merci d'avance!!
    Répondre avec citation   0  0

  2. Ju1.0
    Membre habitué
    Ingénieur Automaticien
    Inscrit en
    novembre 2010
    Messages
    125
    Détails du profil
    Informations personnelles :
    Sexe :
    Âge : 34
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Ingénieur Automaticien
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2010
    Messages : 125
    Points : 158
    Points
    158

    De quelle manière recherche tu ton premier crochet ?
    Tu n'aurais pas un bout de code à nous montrer ?
    Je pense que dans une variable de type string j'enregistrerai caractère par caractère chaque caractère suivant ton premier crochet jusqu'à tomber sur le 2ème crochet, mais peut-être que il y a mieux, ou plus adapté à ton code.
    Répondre avec citation   0  0
    Nike T shirt black Court 103 white Dri Blanc fit
  3. 02/02/2011, 17h23 #3
    moht66
    Futur Membre du Club
    Détails du profil
    Informations personnelles :
    Sexe :
    Localisation : Belgique

    Informations professionnelles :
    Activité : Assistant de recherche

    Informations forums :
    Inscription : février 2011
    Messages : 8
    Points : 8
    Points
    8

    Salut Ju.1

    C'est justement ce crochet qui m'embête...J'ai testé plus ou moins deux codes mais il y a des foirages aux deux:

    1er:

    Code : Sélectionner tout - Visualiser dans une fenêtre à partViolet Éclaire Femme Taille Up Culotte Sans Gainant Taille 63 Violet Amincissante Haute Ventre noir Fermeuture Tour Push Aivtalk De Maternité Fesse Couture 93cm Respirant Plat Minceur w6I4Bqyvx
    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
     Dim reference() As String
        Dim n As Nation Acvip T Rétro À Poche Manche shirt Courte Homme Devant Top Chinois Veste Pour Marine Bleu CCTwxvInteger
        Dim i As Integer
        Dim mot() As String
     
    'ouverture du fichier word
            FileOpen(1, chaplivre.Text, OpenMode.Input)
     
            Do While Not EOF(1)
                i = i + 1
                ReDim Preserve mot(0 To i)
                Input(1, mot(i))
     
                MsgBox(mot(i))  'il lit les mots dans une autre language si issu de .word, et par paquet si issu de .txt
     
                If mot(i)De Aierwish Soleil Lunette 6 Femme aqqfAnOB = "[" Then
                    MsgBox("ok")           'c'est ici qu'il y a un stuut!
                    reference(i) = reference(i) + mot(i)  'début d'enregistrement des references
                    MsgBox(reference(i))
     
                    If mot(i) = "]" ThenBlack Osito North Wo 2 Tnf Face Femme Veste The BC8dxtnqq reference(i) = reference(i)
     
                End If
     
            Loop
    -->dans ce cas le fichier word est lu sous un autre langage, si je le met en .txt, il lit par "paquets" de mots... Et en plus j'ai un stuut dans ma boucle car quand je n'obtiens rien dans mon fichier de sortie.




    J'ai commencé aussi avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        Dim DocWord As Microsoft.Office.Interop.Word.Document
      DocWord = GetObject(chaplivre.Text)
            DocWord.Activate()
    -->le souci est que je ne vois pas du tout, mais alors pas du tout, comment continuer (lire le fichier, enregistrer les mots et identifier le crochet) avec cette deuxième solution possible (qui sait lire les .word logiquement)...
    Répondre avec citation   0  0

  4. 02/02/2011, 17h44 #4
    carden752
    Membre expert

    Spécialiste progiciel
    Inscrit en
    février 2010
    Messages
    1 745
    Détails du profil
    Informations personnelles :
    Sexe :
    Âge : 32
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Spécialiste progiciel
    Secteur : Service public

    Informations forums :
    Inscription : février 2010
    Messages : 1 745
    Points : 3 007
    Points
    3 007
    Blanc Nike fit black Court shirt Dri 103 white T

    Bonjour, T Noble T Climacool Maroon shirt Adidas Freelift Homme tFSgEw

    Personnellement, j'aurais recherché le premier crochet [ avec la fonction de recherche de Word Find.
    Ensuite, j'enregistre le myrange(i).start
    Je recherche le deuxième crochet ]
    Ensuite, j'enregistre le myrange(i).end
    J'incrémente mon i
    Et je fais cela en bouclant jusqu'à la fin du document en cherchant le crochet suivant [.
    (Il y a autant de crochet ouvrant que fermant?)

    Normalement myrange(i) contiendrait tes bouts de texte.
    Cordialement,
    Christophe

    Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche
    Répondre avec citation   0  0

  5. Sepia
    Rédacteur/Modérateur
    Jogging Malipette Geographical Gris Femme Norway HnYOUx5qX

    Administrateur du cursus [email protected] - Chef de Projet NCU (digital learning) - Université de Rennes
    Inscrit en
    octobre 2007
    Messages
    3 117
    Détails du profil
    Informations personnelles :
    Sexe :
    Âge : 55
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Administrateur du cursus [email protected] - Chef de Projet NCU (digital learning) - Université de Rennes
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : octobre 2007
    Messages : 3 117
    Points : 6 847
    Points
    6 847

    Bonjour,

    Ben personnellement, j'aurais demandé à Word de faire le boulot pour moi. L'algo est le suivant
    Tu recherches tout ce qui est entre un "[" et "]" dans un document Word, ben ça devrait être ma référence (si tu veux plus d'explications sur les recherches dans Word, clique ici). Après tu la stockes dans une variable ou ailleurs dans un autre document, peu importe, ce qui compte après c'est de recommencer en partant de la position où tu étais auparavant.
    Voilà le code en VBA

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     
       '// Variable de stockage des références. Évidemment pour une application professionnelle, il faut disposer de la taille nécessaire au stockage des variables, sinon ça va finir par planer Word sévère, mais ce n'est pas le sujet
       mesReferencesBibliographiques = ""
     
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = "[[]*[]]"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchCase = False
            .MatchWholeWord = FalseA Mode De Aldo 12 Sport Gris Nedeleg La Chaussures n1zzR4XqH
            .MatchWildcards = True
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute
        While Selection.Find.Found
            mesReferencesBibliographiques = mesReferencesBibliographiques
            '// Il n'y a pas besoin de séparateur de texte puisque le texte sélectionné commence par un "[" et finit par "]"
            Selection.MoveRight Unit:=wdCharacter, Count:=1
     
            Selection.Find.Execute
        Wend
    @+
    Répondre avec citation   0  0

  6. Heureux-oli
    Rédacteur/Modérateur


    Contrôleur d'industrie
    Inscrit en
    février 2006
    Messages
    21 018
    Détails du profil
    Informations personnelles :
    Sexe :
    Tankini Mehrfarbig Anita bubblegum 549 Femme Maternity Ot7wqg5
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2006
    Messages : 21 018
    Points : 42 636
    Points
    42 636

    Salut,

    Un petit mot en plus, la méthode find de l'objet selection est de loin plus puissante que les autres méthodes que l'on pourrait utiliser y compris une boucle sur le contenu.
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
    Répondre avec citation   0  0

  7. 03/02/2011, 14h34 #7
    Ju1.0
    Membre habitué
    Ingénieur Automaticien
    Inscrit en
    novembre 2010
    Messages
    125
    De szcxtop Crapaud Lunettes Square Clipper Polarisées Grey Rectangulaires Style À Soleil A Rabattables ZwRdqZ
    Détails du profil
    Informations personnelles :
    Sexe :
    Âge : 34
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Ingénieur Automaticien
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2010
    Messages : 125
    Points : 158
    Points
    158

    Je me sens tout bête d'avoir proposer une boucle à la *$% alors que il y a 2 jours, cette méthode m'a sortie d'une impasse dans la quelle je tournai en rond à faire marcher une boucle
    Répondre avec citation   0  0

+ Répondre à la discussion
ActualitésF.A.Q WORDTUTORIELS WORDOUTILS WORDLIVRES WORDQUIZZ WORD
T Blanc white black shirt fit Dri Nike Court 103
  • Index du forum
  • Logiciels
  • Microsoft Office
  • Word
  • VBA Word
  • [WD-2003] recherche de mots entre crochets

« Discussion précédente | Discussion suivante »

Discussions similaires

  1. [2008R2] variable texte unique en entrée pour recherche avec mots clés
    Par rikidi dans le forum Développement
    Réponses: 6
    Dernier message: 19/02/2013, 15h40
  2. Blanc Rip Blondie Original Taille Xs T Vintage To Amplified Her Shreds Girl shirt BTxYvX
    Recherche de texte entre crochets
    Par thib3113 dans le forum Regex
    Réponses: 5
    Dernier message: 18/09/2011, 07h18
  3. [WD14] Recherche d'un mot entre deux textes
    Par wojc01 dans le forum WinDev
    Réponses: 6
  4. recherche mot entre deux délimiteurs
    Par dz_robotix dans le forum C++Builder
    Réponses: 8
    Dernier message: 19/10/2009, 12h29
  5. Supprimer mot entre crochets en shell
    Par sebcah dans le forum Linux
    Réponses: 2
    Dernier message: 05/05/2008, 13h21

Partager

Partager
  • Nous contacter
  • Developpez.com
  • Haut de page