Pourquoi la Function Replace ne donne pas le bon résultat pour ce cas d’utilisation

**ProgElecT** · 22/06/2009, 23h48

Salut

Je ne comprends pas et ne parviens pas à savoir pourquoi la Function Replace ne donne pas le bon résultat pour ce cas d’utilisation.
Sur un Form un Label(LabInfosImg) Wordwrap = True, suffisament grand pour 2 lignes, un CommonDialog(CommonDialog1) et activer la reference à Microsoft Shell Controls and Automation

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
31
32
33
34
35
36
37
38
39
40
41
Private Sub Form_Load()
CommonDialog1.ShowOpen
If Err.Number <> 0 Then Exit Sub
LabInfosImg.Caption = InformationsFichier(CommonDialog1.FileName, CommonDialog1.FileTitle)
End Sub
 
Private Function InformationsFichier(CheminFich As String, Fichier As String) As String
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim Chemin As String
Chemin = Left(CheminFich, Len(CheminFich) - Len(Fichier))
Dim objShell As Shell
Dim objFolder As Folder
Dim strFileName As FolderItem
Dim T as Integer
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Chemin)
Set strFileName = objFolder.Items.IteM(Fichier)
InformationsFichier = Fichier & vbCrLf
If objFolder.GetDetailsOf(strFileName, 1) <> "" Then
 InformationsFichier = InformationsFichier & Trim(objFolder.GetDetailsOf(strFileName, 1))
End If
If objFolder.GetDetailsOf(strFileName, 31) <> "" Then
 Dim Extrat As String
 Extrat = Trim(objFolder.GetDetailsOf(strFileName, 31))
 MsgBox Extrat '"?120 x ?90"
 'pourquoi sa ne fonctionne pas?, mystère
 'Extrat = Replace(Extrat, "?", "")
 'Extrat = Replace(Extrat, Chr(63), "")
 'Extrat = Replace(CStr(Extrat), Chr(63), "")
 'Extrat = Replace(Extrat, Chr(63), "", , , vbTextCompare)
 'Extrat = Replace(Extrat, Chr(63), "", , , vbBinaryCompare)
 ' en désespoir de cause
 Dim recompo As String
 For T = 1 To Len(Extrat)
  If Asc(Mid(Extrat, T, 1)) <> 63 Then recompo = recompo & Mid(Extrat, T, 1)
 Next T
 InformationsFichier = InformationsFichier & " - " & recompo
End If
Set objShell = Nothing: Set objFolder = Nothing: Set strFileName = Nothing
End Function

Est-ce que sur d’autres OS autres que VISTA et Windows 2K le problème est identique ?
Je rate quelque chose ?

Motif de l'edit:
Declaration de la variable T.
Erreur pour l'information des OS, VISTA et XP, sous Windows 2K GetDetailsOf(strFileName, 31) n'existe pas.

**DarkVader** · 23/06/2009, 08h58

Bonjour,
Une question :
à quoi correspond l'item 31 de GetDetailsOf ?
Dans la doc je n'ai trouvé de référence qu'aux valeurs 0-4,-1

**DarkVader** · 23/06/2009, 09h01

Désolé,
je n'avais pas vu ton édit.
Ton problème est donc résolu ?

**iclic** · 23/06/2009, 09h08

Bonjour ProgElecT,

J'ai fait un Form ,avec un Label(LabInfosImg) Wordwrap = True, , un CommonDialog(CommonDialog1) et activer la reference à Microsoft Shell Controls and Automation
et ajouté le code dans le form load, puis la fonction InformationsFichier.

Et un essai...

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
 
...
Stop  ' ici avant la condition
If objFolder.GetDetailsOf(strFileName, 31) <> "" Then  '31
 Dim Extrat As String
 Extrat = Trim(objFolder.GetDetailsOf(strFileName, 31))
 Stop ' ici pour vérifier le passage dans la condition et
        ' voir la valeur de la variable Extrat 
 Extrat = "?120 x ?90"  'changer la valeur pour être sûr d'avoir des '?
 Stop ' ici voir la valeur de la variable Extrat  et c'est bien ?120 x ?90
 
 
 Extrat = Replace(Extrat, "?", "")
 Stop ' ici pour vérifier après le 'Replace et
        ' j'ai bien comme valeur : "120 x 90"  (sans les '? )
        'moi ,ça fonctionne
...

Avec VB6 ma petite entreprise
et OS Windows XP familial pack 2

PS:le label me donne le nom du fichier et le nombre d'octets
Extrat avant le changement de valeur me donne la date et l'heure de création ( pour certains fichiers: par exemple *.doc et *.jpg )

A+

**ProgElecT** · 23/06/2009, 12h42

Merci de vos réponses

Déjà, je n’ai pas précisé quel type de fichier je récupère par le CommonDialog, il s’agit d’images et le objFolder.GetDetailsOf(strFileName, 31) correspond aux dimensions (hauteur et largeur en pixels).
Le truc que je ne comprend pas est que si (comme le signal iclic) je mes la donnée "?90 x 100?" dans la variable Extrat, le Replace pour éliminer les ? fonctionne, c’est le type renvoyé par GetDetailsOf(strFileName, 31) qui doit poser problème.
Avant la decouverte du problème, dans la fonction, je faisai comme çà

Code :

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

1
2
3
4
 InformationsFichier = Fichier & vbCrLf _
    & Trim(objFolder.GetDetailsOf(strFileName, 1)) _
    & " - " _
    & Replace(Trim(objFolder.GetDetailsOf(strFileName, 31)), "?", "", , , vbTextCompare)

pensant que je savais utiliser correctement la fonction Replace

Pour DarkVader, résolut OUI, mais pas avec Replace

Ce n’est pas très grave car je me débrouille autrement, mais je suis curieux de savoir si ce phénomène ce produit sur d’autres systèmes (hors mis le type d’OS).

**ThierryAIM** · 23/06/2009, 13h15

Moi, c'est le 31 qui ne fonctionne pas

(XP SP2)
J'ai essayé avec des gif, jpg, bmp : nada
Par contre 27 (taille horizontale) et 28 (taille verticale) marchent bien

[Edit]

Integer ValueProperty

0 Name
1 Size
2 Type
3 Date Modified
4 Date Created
5 Date Accessed
6 Attributes
7 Status
8 Owner
10 Title
11 Subject
12 Category
13 Pages
14 Comment
15 Copyright
16 Artist
17 Album Title
18 Year
19 Track Number
20 Genre
21 Duration
22 Bit Rate
23 Protected
24 Camera Model
25 Date Picture Taken
26 Dimensions
27 Horizontal Image Size
28 Vertical Image Size
29 Episode Name
30 Program Description
32 Audio Sample Size
33 Audio Sample Rate
34 Channels
35 Company
36 Description
37 File Version
38 Product Name
39 Product Version
40 Keywords

**DarkVader** · 23/06/2009, 13h34

Pour l'image, avec

Sur un Form un Label(LabInfosImg)

j'avais compris 8)

Sinon, avec XP SP1, comme pour Thierry: retour vide, même avec un bmp
par contre avec -1, la description retourne bien la taille.

Edit:

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
Private Sub Form_Load()
    CommonDialog1.ShowOpen
    If Err.Number <> 0 Then Exit Sub
    InformationsFichier CommonDialog1.FileName, CommonDialog1.FileTitle
End Sub
 
Private Function InformationsFichier(CheminFich As String, Fichier As String) As String
'necessite d'activer reference Microsoft Shell Controls and Automation
    Dim Chemin As String, ret As String, i As Long
 
    Chemin = Left(CheminFich, Len(CheminFich) - Len(Fichier))
    Dim objShell As Shell
    Dim objFolder As Folder
    Dim strFileName As FolderItem
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace(Chemin)
    Set strFileName = objFolder.Items.Item(Fichier)
 
    For i = 1 To 50
        ret = objFolder.GetDetailsOf(strFileName, i)
         Me.Print i, ret
    Next
    Set objShell = Nothing: Set objFolder = Nothing: Set strFileName = Nothing
End Function

donnerait plutôt les items 26/27/28

**ProgElecT** · 23/06/2009, 17h51

En fait Shell.Application et ces objets ne réagit pas toujours de la même façon d’une plate forme à une autre.
Mon besoin faisant parti d’un programme d’imagerie, avec GDI+, je me suis décidé à déclencher une récupération par cette DLL.
La fonction que j’ai soumis été une routine que j’utilise depuis un certain temps, mais pour la première fois sous VISTA.
Sujet clos pour ma part, merci à tous les intervenants.