Discussion :

[track83]

Bonjour je cherche à récupérer 2 caractères suivant une chaine connu.

Le soucis c'est que le fichier texte dans lequel la chaine se trouve est "encodé?" et qu'il m'est impossible de me servir de la chaine suivante, afin d'extraire la partie centrale (les seules résultats que me retourne Google étant de trouver une chaine contenue entre deux autres)

Cette chaine peut être placé à n'importe quel endroit dans le fichier, du coup impossible également de compter depuis le début ou la fin, le nombre de caractère pour en isoler mes 2 caractères.

Je ne trouve nulle part un caractère permettant de remplacer un caractère inconnu au sein d'un code, comme par exemple dans les fichier batch ou l'on peut utiliser *

Comme par exemple pour déplacer tous les mp3 vers un dossier mp3 :

Code :

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

copy *.mp3 mp3/*.mp3

Existe t'il une correspondance en Vbs ? si vous avez une piste je suis tout ouïe

Ps: je ne peux également pas utiliser left ou right car ma chaine se compose d'une partie lisible suivi d'une partie encodé (ENK ACK NUL ...) suivi de ces fameux 2 caractéres.

Merci par avance

[l_autodidacte]

Salut

Si j'ai bien compris, il y a cette possibilité

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
Option Explicit
 
Const ForReading = 1
Dim fso, FD, F, fich, SrcFolder, DestFolder, Ret
 '  Définir d'abord le dossier source puis le dossier de destination
 SrcFolder = "C:\Temp" 'par exemple
 DestFolder = "C:\Temp\Work"  'par exemple
Set fso = CreateObject("Scripting.FileSystemObject")
Set FD = fso.GetFolder(SrcFolder)
    For Each F In FD.Files
       Set Fich = fso.OpenTextFile(F.Path,ForReading,False) 'Ouvrir le fichier sans le créer 
	   Ret = Fich.ReadAll ' Leture du contenu du fichier
	   If InStr(1,Ret,"Mettre ici la chaîne de recherche") > 0 Then ' La chaîne est sensible à la casse
	      Fich.Close ' Fermer le fichier pour pouvoir le déplacer
	      F.Move DestFolder & "\" & F.Name ' déplacement du fichier
	   End If
    Next	   
'  Nettoyage
Set fso = Nothing
Set FD = Nothing
Set Fich = Nothing

[track83]

Merci l'autodidacte pour ta réponse, j'ai beau essayer de comprendre le code avec mes faibles connaissances en Vbs, je pense qu'il ne s'agissait malheureusement pas de ça.

Si moi même est bien compris ton script, ça serait pour déplacer des fichiers, or ma comparaison avec le batch, n'était là que pour demander si éventuellement il n'exister pas une équivalence au sigle *, qui permet de remplacer un caractère inconnu.

Je t'avouerais que je me suis mal exprimé, après relecture de mon post et en me mettant à la place du lecteur qui ne sait pas se que je désire faire, cela prête à confusion.

En fait je cherche principalement à connaitre une série de 2 caractères, qui suivent une chaine connue qui peut se trouver n'importe ou dans le fichier.

Par exemple ci-dessous je cherche à récupérer fr ou it :

chaine chaine chaine pays-fr chaine chaine
chaine pays-it chaine chaine chaine chaine

L’inconvénient, est que les chaines l'entourant sont "encoder" et qu'il est impossible pour certaines (avec mes connaissances du moins) de les réécrire.

Encore désolé du mauvais choix de mes mots, et encore merci pour ton aide.

[ProgElecT]

Salut
La boucle Fort Each permet de parcourir tous les fichiers du dossier, a ligne 13 elle permet de vérifier si le fichier contient Mettre ici la chaîne de recherche.
Si cette condition est remplie, exécution du bloc If .... End If, ici le déplacement du fichier.
Donc pour toi la ligne 13 doit contenir 2 conditions possibles
If InStr(1,Ret,"fr") > 0 Or InStr(1,Ret,"it") > 0 Then petit risque tout de même, un contenu de fichier autre que celui voulut ne doit pas contenir cette suite de 2 caractères.

[track83]

Salut ProgElecT, merci pour ta précision, je comprend mieux maintenant.

En fait j'ai mis Fr et It dans l'exemple, mais il peut s'agir de n'importe quel pays, vn(Vietnam) uk(United Kingstom) ma(Maroc) etc.

Cela voudrait dire que je dois tester une à une les équivalences ?

Je vais déjà avancer comme cela, mais je reste persuadé qu'il doit pouvoir y avoir plus court et moins lourd.

Merci à vous pour votre aide.

[ProgElecT]

Ok

Si tu as donc un certain nombre de groupe de caractères à vérifier, je te propose de déclarer ces groupes dans un Array

Code :

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

1
2
Dim MoT, T, ExistE, Ret
MoT = Array("Fr","It","Vn","Uk","Ma")

et de boucler de cette façon dans la boucle Fort Each en remplacent la ligne 13 par ce

Code :

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

1
2
3
4
5
6
7
8
ExistE = False
For T = 0 To  Ubound(MoT)
      If Instr(1,Ret,Mot(T)) > 0 Then ExistE = True: Exit For
Next
If ExistE = True Then
        Fich.Close ' Fermer le fichier pour pouvoir le déplacer
        F.Move DestFolder & "\" & F.Name ' déplacement du fichier
'End If

Motif de l’édit:Salut l_autodidacte

[l_autodidacte]

Comme l'a précisé ProgElecT que salue par l'occasion, les 2 caractères recherchés peuvent être contenus dans un mot sans qu'ils indiquent le code d'un pays donné. De ce fait, il y a la possibilité que ces 2 caractères soient entourés(ensemble) par des espaces ou autre; chose à prendre en considération.
Concernant, le code pays, tu peux tout mettre dans un fichier, un code par ligne, puis lire le fichier pour savoir s'il existe dans les fichiers à parcourir(donc une nouvelle boucle dans For Each F In FD.Files)

EDIT : Je viens juste de voir que ProgElecT a posté une réponse pendant que je rédigeais la mienne(qui pourrait servir)

[track83]

Merci pour vos réponses, votre patience et votre soutien, j'ai ce qu'il me faut pour poursuivre, un grand merci à tous les deux.