[VB]Recherche d'une chaine de caractère dans un fichier

**Empty_body** · 15/02/2006, 10h37

Bonjour,
J'ai un fichier qui reprend le listing d'autre fichier de tous genre... La liste est continue et sans réel séparateur, mon but serai de retrouver tous les fichiers de la liste dont l'extension serait .doc par exemple... Quelqu'un sait me dire comment faire???

**Empty_body** · 15/02/2006, 11h36

Est-il possible de rechercher dans une ligne du fichier une chaine de type "?:\*.doc" et de la récupérer??? J'ai tenté avec Split mais ça cloche au niveau du ? et de *... Quelqu'un connaitrait une autre fonction ou un moyen de paramètrer celle-ci, qu'elle corresponde plus à mes besoins???
Merci...

**Empty_body** · 15/02/2006, 12h07

Est il possible de récupérer, dans une chaine de caractère, un morceau de cette chaîne, allant du caractère n° X au caractère n° Y???
Par exemple, les caractère entre le n° 4 et le n° 20???

**jmfmarques** · 15/02/2006, 12h08

Regardes (aide en ligne) Right, Left, Instr, Mid et Len...

**Empty_body** · 15/02/2006, 12h09

Je vais faire ça, merci...

**AlainTech** · 15/02/2006, 12h42

Voir aussi les Expressions régulières (Regular expressions).

**Empty_body** · 15/02/2006, 13h32

Comme suggéré par AlainTech, voici le code que j'ai fait, il permet de récupérer dans un fichier toutes les chaînes de caractères ressemblant à ceci :

?:\*.pst

Dans un fichier .txt, il fonctionne sans problème, la où ça m'ennuie, c'est que le fichier que je lis n'est pas un .txt mais un .dat et que là, ça cloche... Comment puis-je m'y prendre???
Dim monTab() As String
Dim depart As Integer, fin As Integer, nbcaractere As Integer
Dim chaine As String

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
fichier = "C:\Documents and Settings\monpc\NTUSER.dat"
Open fichier For Input As #1
While Not EOF(1)
Line Input #1, ligne
fin = InStr(ligne, ".pst")
depart = InStr(chaine, ":\")
If (depart > 0) Then
If (fin > 0) Then
    fin = fin + 3
    chaine = Left(ligne, fin)
    depart = depart - 2
    nbcaractère = Len(chaine)
    depart = nbcaractère - depart
    chaine = Right(chaine, depart)
    MsgBox chaine
End If
End If
Wend
Close #1

**Empty_body** · 15/02/2006, 13h46

Lorsque j'essaie un msgbox pour afficher toutes les lignes du fichier, il n'y en a qu'une qui ressort et elle est couverte de rectangles vides. Je ne comprends pas pourquoi car lorsque j'ouvre le fichier avec notepad, je sais y retrouver les chaînes qui m'intéressent...

**jmfmarques** · 15/02/2006, 13h48

un fichier .dat n'est pas un fichier de texte.
ouvre ton fichier à l'aide du bloc-notes et tu comprendras...

**Empty_body** · 15/02/2006, 13h57

En l'ouvrant avec le bloc note, j'ai constaté que la première ligne, celle qui m'est ressortie par la msgbox est identique à peu de chose près... Les caractères spéciaux sont juste remplacé par les rectangles. Ensuite dans le fichier, je vois 3 lignes blanches, puis le code reprend... Est-ce que ces 3 lignes posent problèmes??? Si oui, y a-t-il moyen de passer outre???

**jmfmarques** · 15/02/2006, 13h59

un fichier .dat n'est pas structuré comme un fichier .txt (notamment pour les alinéas) et le line input conduira à la lecture d'une ligne interminable.

**Empty_body** · 15/02/2006, 14h02

J'igorais cet aspect de la chose... Est-ce qu'il existe une technique pour lire les .dat???

**ouskel'n'or** · 15/02/2006, 14h04

Pour retrouver une chaîne dans une autre, tu as like... si tu es sûr de la casse...

A tout hasard

A+

**Empty_body** · 15/02/2006, 14h07

ouskel'n'or, merci pour l'idée du like... Mais la recherche tourne au poil dans un fichier txt... Le seul problème qui persiste est le fait que ce soit un fichier .dat...

**jmfmarques** · 15/02/2006, 14h10

Une question (pardonne-moi de te la poser) : pourquoi veux-tu lire un .dat ? (c'est pour mon information personnelle)

Une réponse à ta question maintenant : lu liras, comme je te l'ai dit plus haut, des lignes interminables. (quand je dis "des", je le dis au sens des lignes séparées par un chr(13), qui peut être là par le hasard des choses ou... ne pas être là)

**AlainTech** · 15/02/2006, 14h12

La structure du fichier n'est pas liée à son extension.

Mais...
Par définition, un fichier .txt est censé contenir du texte alors qu'un fichier .dat contient... des data.
C'est-à-dire, n'importe quoi.
Un programmeur peut très bien choisir de ne mettre que du texte dans un fichier qu'il nomme en .dat.

**jmfmarques** · 15/02/2006, 14h15

Certes, mais je suppose bien volontiers que le fichier .dat qu'il veut lire est un fichier de datas... habituel

**Empty_body** · 15/02/2006, 14h19

Je suis entrain de faire un petit programme qui liste certaines informations sur les utilissateurs partageant une même machine, comme par exemple, qui a des personal folders sous outlook et sur quelle partitio. Pour l'utilisateur en session, rien de plus simple, il suffit d'aller lire dans une clé de registre dans hkey_current_user... Là où ça cloche, c'est pour les autres utilisateurs. J'avais une solution qui était de monter tous les utilisateurs dans hkey_users http://www.developpez.net/forums/viewtopic.php?t=457097 mais je ne suis pas assez doué pour manipuler correctement les clés de registre. Je me suis donc intéressé au fichier ntuser.dat utilisé au cours de la procédure et aux infos qu'il contient. Je me suis dit que si je pouvais les récupérer comme ça, ça me permettrait de contourner la difficulté. Mais bon, si tu m'assures que je ne pourrai jamais lire un fichier .dat...