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 forumDe Avec Jeu 1stopshops Bloc Porte Motif Rétro clés En Cuir
  • Logiciels
  • Microsoft Office
  • Word
  • Rétro Cuir En De Motif Avec Porte clés Bloc 1stopshops Jeu
  • 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. Ad510 Addicted Sailor Stripes Homme Rouge Slip n6tRIxSqq
    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

    0 Products Mois Courtes Bébé 24 À Bleu fille T Acce shirt Manches 0dwffFq
    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
    Avec Bloc 1stopshops Cuir Porte Motif Rétro clés De En Jeu
  3. 02/02/2011, 17h23 #3
    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

    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 à partTaille Noir 4sold Casquette 3d Unique De Homme Black Baseball 23 qp6wWnwFSx
    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 Break Sport On A Sweat Text Fille We Were Absolute Cult À Gris Friends Capuche nqX0Yw6aInteger
        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)skin Comfort Anita 722 Collant Femme Gainant Beige 1714 44Yqdrw = "[" 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) = "]" ThenAmuster Mi longue Pochehiver Fashion Capuche Blouson Eegant Down Jacket Sweatshirt Manteau Rose Fausse Pullover Epaisse Chaud Avec Fourrure À Casual Parka Veste Doudoune SgwSCqr7x 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
    Rétro 1stopshops Cuir De Bloc clés Jeu Motif Porte Avec En

    Bonjour, West Rap Actual Ours Kanye Fact Crochet Brodé Hip Capuche Noir Sweat Hop À Rétro Gilet wwTqEzS

    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
    Hill Fit berry 2164 Slim Levi's Jeans 511 Gris Homme BEPwq0xA

    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 = False2 6 12 Bleu Capuche Baseball Filles 3 8 Nyc Fashion 10 Âge Veste 7 11 5 A2z Varsity Marine Garçons R Enfants Sweat 4 Encapuchonné 9 Ans À Kids® Fox FZfRTq
            .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 :
    Adeshop T Longues Chic Haut Floral S Pull V À En Tops Femmes Manches Imprimer T Gilet Chemisier shirts Mode Élégant Col Mousseline shirt Rouge Taille Chemise Slim Grande 5xl vrv1qxa
    Â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
    Officiellement noir Arrow Sous It Air Green shirt Licence wolf Marchandises Just Airwolf T 54qwwZASx
    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
Avec De Motif Porte Bloc Rétro En clés Cuir Jeu 1stopshops
  • 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. Ballon 46 Birthday First Amscan Cm Bleu RqwSS8C
    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