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. '----------------------------------------
  5. ' --- Les constantes ---
  6. Private Const MAX_PATH = 260
  7. Private Const INVALID_HANDLE_VALUE = -1
  8. Private Const FILE_ATTRIBUTE_READONLY = &H1
  9. Private Const FILE_ATTRIBUTE_HIDDEN = &H2
  10. Private Const FILE_ATTRIBUTE_SYSTEM = &H4
  11. Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
  12. Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
  13. Private Const FILE_ATTRIBUTE_NORMAL = &H80
  14. Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
  15. Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
  17. ' --- Les API ---
  18. Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
  19. Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
  20. Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
  22. ' --- Les types ---
  23. Private Type FILETIME
  24.    dwLowDateTime As Long
  25.    dwHighDateTime As Long
  26. End Type
  28. Private Type WIN32_FIND_DATA
  29.    dwFileAttributes As Long
  30.    ftCreationTime As FILETIME
  31.    ftLastAccessTime As FILETIME
  32.    ftLastWriteTime As FILETIME
  33.    nFileSizeHigh As Long
  34.    nFileSizeLow As Long
  35.    dwReserved0 As Long
  36.    dwReserved1 As Long
  37.    cFileName As String * MAX_PATH
  38.    cAlternate As String * 14
  39. End Type
  42. '----------------------------------------------
  43. '----- Déclarations propres à la fonction -----
  44. '----------------------------------------------
  45. Private Type ListeFichier
  46.    Fichiers() As WIN32_FIND_DATA
  47.    Chemin() As String * MAX_PATH
  48.    Nombre As Long
  49. End Type
  50. '
  52. '--------------------------------------------------------
  53. '--- La fonction Rechercher :                         ---
  54. '--- Cette fonction recherche tous les fichiers dans  ---
  55. '--- le répertoire spécifié et ses sous-repertoires   ---
  56. '--- Elle retourne le nombre d'occurences trouvées    ---
  57. '--------------------------------------------------------
  59. Private Function Rechercher(Chemin As String, FichierR As String, ResultatRecherche As ListeFichier) As Long
  61.     ' --- Déclaration des variables ---
  62.     Dim lpFindFileData As WIN32_FIND_DATA
  63.     Dim hFindFile As Long
  64.     Dim lgRep As Long
  65.     Dim CheminRep As String
  66.     Dim n As Integer
  68.     ' --- Recherche tous les fichiers demandés dans le répertoire Chemin ---
  69.     hFindFile = FindFirstFile(Chemin & FichierR, lpFindFileData)
  70.     If hFindFile <> INVALID_HANDLE_VALUE Then
  71.         Do
  72.             ' Mémorise
  73.             ResultatRecherche.Nombre = ResultatRecherche.Nombre + 1
  74.             ReDim Preserve ResultatRecherche.Chemin(1 To ResultatRecherche.Nombre)
  75.             ReDim Preserve ResultatRecherche.Fichiers(1 To ResultatRecherche.Nombre)
  76.             ResultatRecherche.Chemin(ResultatRecherche.Nombre) = Chemin
  77.             ResultatRecherche.Fichiers(ResultatRecherche.Nombre) = lpFindFileData
  78.             ' Initialise lpFindFileData (Variable texte uniquement)
  79.             lpFindFileData.cAlternate = String$(14, 0)
  80.             lpFindFileData.cFileName = String$(MAX_PATH, 0)
  81.         Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
  82.     End If
  83.     FindClose hFindFile
  85.     ' --- Recherche dans les sous-répertoires ---
  86.     hFindFile = FindFirstFile(Chemin & "*.*", lpFindFileData)
  87.     If (hFindFile <> INVALID_HANDLE_VALUE) Then
  88.         Do
  89.         ' Si c'est un répertoire on continu le recherche
  90.         If (lpFindFileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
  91.             ' Extraction du nom du répertoire
  92.             CheminRep = Mid$(lpFindFileData.cFileName, 1, InStr(1, lpFindFileData.cFileName, Chr$(0)) - 1)
  93.             ' Attention dans les sous-répertoire aux répertoires . et .. (Retour répertoire parent)
  94.             If (CheminRep <> "." ) And (CheminRep <> ".." ) Then
  95.                 CheminRep = Chemin & CheminRep & "\"
  96.                 Rechercher = Rechercher(CheminRep, FichierR, ResultatRecherche)
  97.             End If
  98.         End If
  99.         Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
  100.     End If
  101.     FindClose hFindFile
  103.     ' --- Retourne le nombre d'occurrences trouvées ---
  104.     Rechercher = ResultatRecherche.Nombre
  106. 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
  3. Instruction utilisée auniveau procédure pour réattribuer de l'espace de stockage auxvariables de tableaux dynamiques.
  5. Syntaxe
  7. ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .
  9. La syntaxe de l'instruction ReDim comprend les éléments suivants :
  11. Élément Description
  12. Preserve Facultatif.Mot clé utilisé pour conserver les données d'untableau préexistant dont vous modifiez la taille de la dernière dimension.
  13. varname Nom de la variable. Respecte les conventions standard d'affectation de noms aux variables.
  14. subscripts Dimensions d'une variable tableau. Vous pouvez déclarer jusqu'à 60 dimensions. La syntaxe de l'argument subscripts est la suivante :
  15. [lower To] upper [,[lower To] upper] . . .
  17. 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.
  19. 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.
  22. Remarques
  24. 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).
  26. 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.
  28. 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 :
  30. ReDim X(10, 10, 10)
  31. . . .
  32. ReDim Preserve X(10, 10, 15)
  34. 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.
  36. 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.
  38. 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.
  40. 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.
  42. 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