Récupérer une partie des lignes

Version imprimable

06/06/2012, 19h55
Johngtrs

Récupérer une partie des lignes

Bonjour,

J'ai un fichier texte qui contient des chemins de dossiers menant à des tablatures et j'aimerais récupérer le groupe de musique grâce à un script VBS.

J'ai 2 cas, soit le nom du groupe est dans un nom de dossier, soit dans un nom de tablature. Exemple du premier cas (groupe Guns'n Roses):

Code:

http://localhost/domaine/Tablatures/tablatures/Guns'n Roses/Guns N' Roses - Back Off Bitch.gp3

Exemple du second cas (groupe Children of Bodom) :

Code:

http://localhost/domaine/Tablatures/Guitar Pro Tabs - My Songbook/C/Children Of Bodom - Angels Don 't Kill.gp4

Est ce que c'est possible donc de récupérer juste le nom du groupe dans un autre fichier texte ?

Merci d'avance.

John.

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Cas1, Cas2
Cas1 = "http://localhost/domaine/Tablatures/tablatures/Guns'n Roses/Guns N' Roses - Back Off Bitch.gp3"
Cas2 = "http://localhost/domaine/Tablatures/Guitar Pro Tabs - My Songbook/C/Children Of Bodom - Angels Don 't Kill.gp4"
 
 
 
Cas1 = Right(Cas1, InStr(1, StrReverse(Cas1), "/", vbTextCompare) - 1)
Cas1 = Left(Cas1, Len(Cas1) - 4)
 
 
Cas2 = Right(Cas2, InStr(1, StrReverse(Cas2), "/", vbTextCompare) - 1)
Cas2 = Left(Cas2, Len(Cas2) - 4)
 
MsgBox Cas1 & vbNewLine & Cas2

Avec Mid il doit être possible de le faire en une seule instruction.

06/06/2012, 20h17
Johngtrs

J'ai oublié de préciser un truc, j'ai 22 000 lignes de ce type dans mon fichier texte :lol:, comment puis-je faire ?

edit : il faudrait aussi juste les noms des groupes aussi si c'est possible. Je n'ai quasi aucune connaissance en vbs :oops:, alors merci beaucoup pour l'aide que tu m'apportes :ccool:

Citation:

Envoyé par Johngtrs

.....
il faudrait juste les noms des groupes
......

A quoi correspond les noms de groupes dans les 2 cas soumis ?

Code:

1
2
3
4
5
6
7
8
9
Function RecupGroupTitre(ChemNom)
RecupGroupTitre = Mid(ChemNom, InStrRev(ChemNom, "/", Len(ChemNom), vbTextCompare) + 1, Len(ChemNom) - ((InStrRev(ChemNom, "/", Len(ChemNom), vbTextCompare) + 1) + 3))
End Function
 
Dim Cas1, Cas2
Cas1 = "http://localhost/domaine/Tablatures/tablatures/Guns'n Roses/Guns N' Roses - Back Off Bitch.gp3"
Cas2 = "http://localhost/domaine/Tablatures/Guitar Pro Tabs - My Songbook/C/Children Of Bodom - Angels Don 't Kill.gp4"
 
MsgBox RecupGroupTitre(Cas1) & vbNewLine & RecupGroupTitre(Cas2)

Voilà déjà la fonction qui renvoie l'ensemble groupe/titre.

Motif de l'édit:
ensemble du

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function RecupGroupTitre(ChemNom)
RecupGroupTitre = Mid(ChemNom, InStrRev(ChemNom, "/", Len(ChemNom), vbTextCompare) + 1, Len(ChemNom) - ((InStrRev(ChemNom, "/", Len(ChemNom), vbTextCompare) + 1) + 3))
End Function
Function RecupGroup(GroupTitre)
RecupGroup = Left(GroupTitre, InStr(1, GroupTitre, " -", vbTextCompare) - 1)
End Function
Function RecupTitre(GroupTitre)
RecupTitre = Right(GroupTitre, InStr(1, GroupTitre, "- ", vbTextCompare) - 1)
End Function
 
Dim Cas1 As String, Cas2 As String
Cas1 = "http://localhost/domaine/Tablatures/tablatures/Guns'n Roses/Guns N' Roses - Back Off Bitch.gp3"
Cas2 = "http://localhost/domaine/Tablatures/Guitar Pro Tabs - My Songbook/C/Children Of Bodom - Angels Don 't Kill.gp4"
 
MsgBox "Groupe: " & RecupGroup(RecupGroupTitre(Cas1)) _
    & vbNewLine & "Titre: " & RecupTitre(RecupGroupTitre(Cas1)), vbInformation, "CAS N°1"
 
MsgBox "Groupe: " & RecupGroup(RecupGroupTitre(Cas2)) _
    & vbNewLine & "Titre: " & RecupTitre(RecupGroupTitre(Cas2)), vbInformation, "CAS N°2"

La fonction RecupGroupTitre renvoie Groupe et Titre.

La fonction RecupGroup renvoie uniquement le Groupe.
La fonction RecupTitre renvoie uniquement le Titre.

Pour le reste il me semble que ton avant-dernière discussion auto résolu :mrgreen: devrait pouvoir être utilisée.

06/06/2012, 21h54
Johngtrs

J'ai un fichier texte qui contient 22 000 lignes environs et ces lignes on tous la même structure des 2 exemples que je viens de cité. Et moi ce que je veux, c'est que dans un autre fichier texte, je puisse récupérer le nom des groupes (dans l'ordre alphabétique si possible).

Si j'obtiens le nom des groupes, alors je pourrais continuer ce que je fais, je dois insérer tout ces groupes dans ma base de données.

Donc pour l'instant, je veux juste extraire le nom des groupes des chemins et les transférer dans un autre fichier texte.

edit :

Si tu veux dans mon fichier texte j'ai 12 000 liens de ce type :

http://localhost/domaine/Tablatures/tablatures/Guns'n Roses/Guns N' Roses - Back Off Bitch.gp3

Lorsque l'on tombe sur ce type, on récupère le nom du groupe, par rapport au nom du répertoire (en rouge )

et je peux avoir aussi 10 000 de ce type :

http://localhost/domaine/Tablatures/Guitar Pro Tabs - My Songbook/C/Children Of Bodom - Angels Don 't Kill.gp4

Lorsque l'on tombe sur ce type, là il faut récupérer le nom du groupe par rapport au nom du fichier de la tablature (en rouge)

En tout cas ton script marche vraiment bien, excellent :ccool: seulement, je sais pas comment faire pour arriver à passer en paramètre toutes les lignes de mon fichiers texte
06/06/2012, 22h18
omen999

bonjour,
une seule solution : les expressions régulières :aie:
toutes les explications se trouvent dans le fichier doc du vbs
pour un exemple voir cette discussion
06/06/2012, 23h40
Johngtrs
Je n'arrive pas a modifier ta fonction RecupGroupTitre pour quelle me recup le nom du dossier et non le nom du groupe dans le fichier.
Code:

1 2 http://localhost/domaine/Tablatures/tablatures/Guns'n Roses/Guns N' Roses - Back Off Bitch.gp3
Je voudrais récupérer juste ce qui a en rouge, je suis trop nul en VB ça m’énerve -_-'
07/06/2012, 17h13
Johngtrs

Après plusieurs test j'ai réussi grâce à tes fonctions ProgElecT !

Merci infiniment !! :mouarf: