IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

VBScript Discussion :

Identifier un paragraphe précis dans un fichier TXT


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 7
    Par défaut Identifier un paragraphe précis dans un fichier TXT
    Bonjour

    Je ne suis pas un grand spécialiste de vbs et je me heurte actuellement à un petit problème.
    Mon souhait est le suivant :
    Dans un fichier TXT je voudrais récupérer l'ensemble des lignes qui sont comprises entre deux "identificateurs" de type String (par exemple):

    Premier identificateur

    Texte a récupérer
    Texte a récupérer
    Texte a récupérer
    Texte a récupérer
    Texte a récupérer
    Texte a récupérer
    Texte a récupérer

    Second identificateur



    Je tiens à préciser que le nombre de ligne correspondant au "texte à récupérer" peut varier.

    J'étais parti dans l'idée de récupérer le numéro de ligne des deux identificateurs et d'écrire les lignes comprise entre les deux......mais je n'y suis pas arrivé.....je sèche !

    Si quelqu'un a une idée, une fonction vers laquelle m'orienter ou un exemple de ce qui pourrait être fait, ce serait cool !

    Merci d'avance.


    Cordialement

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    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
    Option Explicit
    Const ForWriting = 2, ForReading = 1
    Dim fso, f, Ret, Ident1, Ident2, I, ra, WS
    Ident1="Début"  ' Identificateur début de la recherche
    Ident2="Fin"    ' Identificateur fin de la recherche
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile("Fichier1.txt", ForReading,False)
    I = 0
    ra = Split(f.readall, VbCrLf)
    Do
    	ra(i) = LTrim(ra(i))  ' On doit supprimer les espaces avant
    	If Ucase(ra(i))=Ucase(Ident2) Then Exit Do
    	If UCase(ra(i)) = UCase(Ident1) Then
    	   Do
    	      i = i + 1
    	      Ret = Ret & ra(i) & VbNewLine
    	  Loop Until UCase(Ident2) = UCase(ra(i))
    	  Ret = Mid(Ret ,1 , Len(Ret) - Len(Ident2 + vbNewLine))
           End If
           I = I + 1
    Loop Until  UCase(Ident2) = UCase(ra(i)) OR I >= UBound(ra) 
    f.Close
     
    If Ret <> "" Then
     Set f = fso.OpenTextFile("Result.txt", ForWriting,True)   
     f.Write Ret
     f.Close
    End If
    Set WS = CreateObject("WScript.Shell")
    WS.Run "Result.txt", 1, True
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut

    Testez ce
    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
    Option Explicit
    Dim Titre,Data
    Titre = "Extraction des données entre deux identificateurs"
    Data = "Premier identificateur"&_
    "Texte a récupérer 1" & VbCrLF &_
    "Texte a récupérer 2" & VbCrLF &_
    "Texte a récupérer 3" & VbCrLF &_
    "Texte a récupérer 4" & VbCrLF &_
    "Texte a récupérer 5" & VbCrLF &_
    "Texte a récupérer 6" & VbCrLF &_
    "Texte a récupérer 7" & VbCrLF &_
    "Second identificateur"
    MsgBox Between_Ands(Data,"Premier identificateur","Second identificateur"),64,Titre
    '**********************************************************************************************
    Function Between_Ands(ByVal Full_String, ByVal First_Delimiter, ByVal Second_Delimiter)
    Dim Pos,Pos2
    Pos = InStr(Full_String, First_Delimiter)
    Pos2 = InStr(Full_String, Second_Delimiter)
    If Pos = 0 Or Pos2 = 0 Then
        Between_Ands = "Missing Delimiter"
        Exit Function
    End If
    Between_Ands = Mid(Full_String, Pos + Len(First_Delimiter), Pos2 - (Pos + Len(First_Delimiter)))
    End Function
    '***********************************************************************************************

Discussions similaires

  1. Lire un paragraphe précis dans un fichier
    Par pra3t0r dans le forum Langage
    Réponses: 1
    Dernier message: 09/02/2012, 09h48
  2. Ouvrir et écrire dans un fichier .txt en T-SQL
    Par joul's dans le forum MS SQL Server
    Réponses: 11
    Dernier message: 27/10/2008, 21h04
  3. Ecrire à un endroit précis dans un fichier txt
    Par fraid49 dans le forum Général Python
    Réponses: 2
    Dernier message: 02/10/2008, 09h53
  4. Réponses: 10
    Dernier message: 05/10/2004, 11h28
  5. [langage] tabulation dans un fichier txt
    Par TigreRouge dans le forum Langage
    Réponses: 2
    Dernier message: 16/08/2004, 17h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo