Comment effacer un tableau en mémoire ?

Comment effacer un tableau en mémoire ? - VB/VBA/VBS - Programmation

Marsh Posté le 14-02-2003 à 00:50:59    

Bonjour,
 
J'avais récuperé cette fonction (qui en passant marche très bien) sur ce forum.
 
Le problème est que je suis suceptible de l'utiliser plusieures fois sans pour autant quiter le fichier entre chaque utilisation.
 
Hors, quand je la relance, il garde en mémoire le résultat de la recherche précédente.
 
Comment effacer "ResultatRecherche" ?
 
Merci d'avance.
 
 

Code :
  1. '----------------------------------------
  2. '----- Déclarations propres aux API------
  3. '----------------------------------------
  4. ' --- Les constantes ---
  5. Private Const MAX_PATH = 260
  6. Private Const INVALID_HANDLE_VALUE = -1
  7. Private Const FILE_ATTRIBUTE_READONLY = &H1
  8. Private Const FILE_ATTRIBUTE_HIDDEN = &H2
  9. Private Const FILE_ATTRIBUTE_SYSTEM = &H4
  10. Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
  11. Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
  12. Private Const FILE_ATTRIBUTE_NORMAL = &H80
  13. Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
  14. Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
  15. ' --- Les API ---
  16. Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
  17. Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
  18. Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
  19. ' --- Les types ---
  20. Private Type FILETIME
  21.    dwLowDateTime As Long
  22.    dwHighDateTime As Long
  23. End Type
  24. Private Type WIN32_FIND_DATA
  25.    dwFileAttributes As Long
  26.    ftCreationTime As FILETIME
  27.    ftLastAccessTime As FILETIME
  28.    ftLastWriteTime As FILETIME
  29.    nFileSizeHigh As Long
  30.    nFileSizeLow As Long
  31.    dwReserved0 As Long
  32.    dwReserved1 As Long
  33.    cFileName As String * MAX_PATH
  34.    cAlternate As String * 14
  35. End Type
  36. '----------------------------------------------
  37. '----- Déclarations propres à la fonction -----
  38. '----------------------------------------------
  39. Private Type ListeFichier
  40.    Fichiers() As WIN32_FIND_DATA
  41.    Chemin() As String * MAX_PATH
  42.    Nombre As Long
  43. End Type
  44. '
  45. '--------------------------------------------------------
  46. '--- La fonction Rechercher :                         ---
  47. '--- Cette fonction recherche tous les fichiers dans  ---
  48. '--- le répertoire spécifié et ses sous-repertoires   ---
  49. '--- Elle retourne le nombre d'occurences trouvées    ---
  50. '--------------------------------------------------------
  51. Private Function Rechercher(Chemin As String, FichierR As String, ResultatRecherche As ListeFichier) As Long
  52.     ' --- Déclaration des variables ---
  53.     Dim lpFindFileData As WIN32_FIND_DATA
  54.     Dim hFindFile As Long
  55.     Dim lgRep As Long
  56.     Dim CheminRep As String
  57.     Dim n As Integer
  58.     ' --- Recherche tous les fichiers demandés dans le répertoire Chemin ---
  59.     hFindFile = FindFirstFile(Chemin & FichierR, lpFindFileData)
  60.     If hFindFile <> INVALID_HANDLE_VALUE Then
  61.         Do
  62.             ' Mémorise
  63.             ResultatRecherche.Nombre = ResultatRecherche.Nombre + 1
  64.             ReDim Preserve ResultatRecherche.Chemin(1 To ResultatRecherche.Nombre)
  65.             ReDim Preserve ResultatRecherche.Fichiers(1 To ResultatRecherche.Nombre)
  66.             ResultatRecherche.Chemin(ResultatRecherche.Nombre) = Chemin
  67.             ResultatRecherche.Fichiers(ResultatRecherche.Nombre) = lpFindFileData
  68.             ' Initialise lpFindFileData (Variable texte uniquement)
  69.             lpFindFileData.cAlternate = String$(14, 0)
  70.             lpFindFileData.cFileName = String$(MAX_PATH, 0)
  71.         Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
  72.     End If
  73.     FindClose hFindFile
  74.     ' --- Recherche dans les sous-répertoires ---
  75.     hFindFile = FindFirstFile(Chemin & "*.*", lpFindFileData)
  76.     If (hFindFile <> INVALID_HANDLE_VALUE) Then
  77.         Do
  78.         ' Si c'est un répertoire on continu le recherche
  79.         If (lpFindFileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
  80.             ' Extraction du nom du répertoire
  81.             CheminRep = Mid$(lpFindFileData.cFileName, 1, InStr(1, lpFindFileData.cFileName, Chr$(0)) - 1)
  82.             ' Attention dans les sous-répertoire aux répertoires . et .. (Retour répertoire parent)
  83.             If (CheminRep <> "." ) And (CheminRep <> ".." ) Then
  84.                 CheminRep = Chemin & CheminRep & "\"
  85.                 Rechercher = Rechercher(CheminRep, FichierR, ResultatRecherche)
  86.             End If
  87.         End If
  88.         Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
  89.     End If
  90.     FindClose hFindFile
  91.     ' --- Retourne le nombre d'occurrences trouvées ---
  92.     Rechercher = ResultatRecherche.Nombre
  93. End Function


Message édité par fifiz le 14-02-2003 à 00:51:33
Reply

Marsh Posté le 14-02-2003 à 00:50:59   

Reply

Marsh Posté le 14-02-2003 à 01:13:09    


cette fonction,je la connais bien,je sais ou tu l'as chopé, tu utilise un tableau dynamique, ces cette variable que tu dois faire "sauter";, seulement à cette heure là, j'ai un peu de mal me souvenir....
 
 
regarde dans l'aide MSN à tableau dynamique tu trouveras je pense la réponse. A 1h15 du matin, je suis HS...Escuse moi, sinon, s'il n'y a rien de nouveau je te le dirais demain.


Message édité par cvb le 14-02-2003 à 14:04:14
Reply

Marsh Posté le 14-02-2003 à 14:07:39    

voilà, l'aide MSN
 
 

Code :
  1. ReDim, instruction
  2. Instruction utilisée auniveau procédure pour réattribuer de l'espace de stockage auxvariables de tableaux dynamiques.
  3. Syntaxe
  4. ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .
  5. La syntaxe de l'instruction ReDim comprend les éléments suivants :
  6. Élément Description
  7. Preserve Facultatif.Mot clé utilisé pour conserver les données d'untableau préexistant dont vous modifiez la taille de la dernière dimension.
  8. varname Nom de la variable. Respecte les conventions standard d'affectation de noms aux variables.
  9. subscripts Dimensions d'une variable tableau. Vous pouvez déclarer jusqu'à 60 dimensions. La syntaxe de l'argument subscripts est la suivante :
  10. [lower To] upper [,[lower To] upper] . . .
  11. La limite inférieure d'un tableau qui n'est pas explicitement fixée dans l'argument lower est déterminée par l'instruction Option Base. Cette limite a la valeur zéro en l'absence d'instruction Option Base.
  12. type Facultatif.Type de données de la variable. Elle peut être de typeByte,Boolean,Integer,Long,Currency,Single,Double,Decimal (non pris en charge actuellement),Date,String (pour les chaînes de longueur variable), String * length (pour les chaînes de longueur fixe),Object,Variant, untype défini par l'utilisateur ou untype objet. Utilisez une clause As type distincte pour chaque variable à définir. Pour une variable de type Variant contenant un tableau, l'argument type décrit le type des éléments du tableau, mais ne permet pas de passer du type Variant à un autre.
  13. Remarques
  14. L'instruction ReDim permet de dimensionner et de redimensionner un tableau dynamique ayant déjà été déclaré de manière formelle par le biais d'une instruction Private, Public ou Dim suivie de parenthèses vides (sans indices de dimension).
  15. Vous pouvez utiliser l'instruction ReDim à plusieurs reprises pour modifier le nombre d'éléments et de dimensions d'un tableau. Cependant, vous ne pouvez changer a posteriori le type d'un tableau à l'aide de l'instruction ReDim, sauf si ce tableau est contenu dans une variable de type Variant. Dans ce cas, le type des éléments est modifiable en utilisant une clause As type, sauf si vous utilisez le mot clé Preserve. Aucun changement de type de données n'est alors possible.
  16. Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau. Vous ne pouvez en aucun cas modifier le nombre de dimensions. Par exemple, si votre tableau n'a qu'une dimension, vous pouvez la modifier puisqu'il s'agit de la dernière et seule dimension. Toutefois, si le tableau compte plusieurs dimensions, seule la taille de la dernière dimension est modifiable si vous souhaitez préserver le contenu du tableau. L'exemple suivant montre comment augmenter la taille de la dernière dimension d'un tableau dynamique sans effacer les données qu'il contient :
  17. ReDim X(10, 10, 10)
  18. . . .
  19. ReDim Preserve X(10, 10, 15)
  20. De même, le mot clé Preserve ne permet de redimensionner un tableau qu'en modifiant la limite supérieure ; toute modification de la limite inférieure provoque une erreur.
  21. Si vous réduisez la taille d'un tableau, les données contenues dans les éléments supprimés sont perdues. Si vous transmettez par référence un tableau à une procédure, ce dernier ne peut être redimensionné au sein de la procédure.
  22. Lors de l'initialisation des variables, une variable numérique prend pour valeur initiale 0, une chaîne de longueur variable prend pour valeur initiale une chaîne de longueur nulle ("" ), et une chaîne de longueur fixe est remplie de zéros. Les variables de type Variant ont la valeurEmpty à l'initialisation. Chaque élément d'une variable de type défini par l'utilisateur est initialisé comme s'il s'agissait d'une variable distincte. Une variable qui fait référence à un objet ne peut être utilisée avant d'avoir été associée à un objet existant avec l'instruction Set. Tant qu'elle n'est pas associée à un objet, lavariable objet déclarée a la valeur spéciale Nothing, indiquant qu'elle ne fait référence à aucune instance spécifique d'un objet.
  23. Attention   L'instruction ReDim a un effet déclaratif si la variable déclarée n'existe pas auniveau module ou auniveau procédure. Si une autre variable portant le même nom est créée ultérieurement, même avec uneportée plus importante, l'instruction ReDim fait référence à cette dernière et n'engendre pas systématiquement d'erreur de compilation, même si Option Explicit est activé. Pour éviter tout conflit de ce type, l'instruction ReDim ne doit pas être utilisée dans un but déclaratif, mais uniquement pour redimensionner des tableaux.
  24. Note   Pour redimensionner un tableau contenu dans une variable de type Variant, il vous faut au préalable déclarer explicitement cette variable.


^
pour résumer ces la variable "varname", dans l'explication ci-dessus que tu dois remettre à 0.

Reply

Marsh Posté le 14-02-2003 à 14:21:21    

trucmuch = nothing '(à tester)
sionon un redim à 0


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 14-02-2003 à 17:22:52    

Je verrais plus un "erase tableau" dans ce merveilleux code :D

Reply

Marsh Posté le 14-02-2003 à 19:04:57    

Merci de vos réponses je teste ça ce soir.  :jap:  
 
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed