Discussion :

[HoB]

Bonjour à tous,

je cherche une fonction qui permet de couper un tableau pour obtenir plusieurs sous tableaux de la meme taille.
j'ai trouvé la fonction Array.copy(sourceArray As Array, sourceIndex As Integer, destinationArray As Array, destinationIndex As Integer, length As Integer) qui prend length elements du tableauSourceArray à partir de l'index SourceIndex et les copie dans le tableau DestinationArray à l'index destinationIndex, mais le problèmem c'est que ca fonctionne en vb.net et pas en vb6.
vous ne connaitriez pas un equivalent ? ou un algo assez optimisé pour le faire ?

je dois faire un programme qui scinde des fichier de donnée en plusieurs partie et comme ces fichiers contiennent des millions d'enregistrements ca m'arrangerais d'avoir une fonction qui soit plus optimisé qu'une boucle de recopie

merci d'avance pour vos reponse

[DarkVader]

Bonjour à tous,
.../...
je dois faire un programme qui scinde des fichier de donnée en plusieurs partie et comme ces fichiers contiennent des millions d'enregistrements ca m'arrangerais d'avoir une fonction qui soit plus optimisé qu'une boucle de recopie
.../..

En tout état de cause pour un résultat véritablement optimisé,
je ne vois pas le faire en VB (... ni même en VB.net)

[ProgElecT]

qui prend length elements du tableauSourceArray à partir de l'index SourceIndex et les copie dans le tableau DestinationArray à l'index destinationIndex

moi j'ai bien une petite idée , mais (ce fameux mais) tout depend de ce que contient ton tableau, peux-tu nous mettre 2 ou 3 elements (pas plus) de ce tableau, ou du fichier de donnée ?
Sans boucle For ... Next, j'ai un bout de source pense-bête qui pourrai eventuellement être utilisé.

[Delbeke]

Peut être l'algo de tronçonnage des séquences ADN?

[HoB]

Bonjour à tous,

deja merci pour vos reponse.

en fait mon fichier de donnée contient une liste de ROW_ID db2, donc ca donne un truc dans ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
 
ROW_ID         
---------------
1-2U2DVW       
1-2U2DVY       
1-2U2DW0       
1-2U2DW2       
1-2U2DW4       
1-2U2DW6

cette liste me permettra ensuite d'acceder aux enregistrements correspondants dans la base dans un second traitement : dans ce second traitement je me connecte a notre progiciel pour migrer toutes les données client. c'est pour pouvoir parraleliser le second traitement qui est tres long que j'ai besoin de scinder mon fichier.

j'etais parti sur du VB pour faire ca parce que pour le second traitement je suis obligé de faire un code VB pour me connecter au progiciel, j'ai pas la DLL qu'il faut pour pouvoir me connecter avec un autre langage. mais pour la partie ou je scinde mon fichier de donnée, eventuellement je peux passer par du C, c'est vrai que ca serait peu etre plus rapide. lke probleme est que j'ai pas les droits pour installer un compilo C sur mon poste et que je sais pas quand on pourra venir m'en installer un.

Pour en revenir à mon programme, Pour l'instant ce que je fais c'est que j'ouvre mon fichier en Binaire et que je recupère toutes les données en une fois dans un tableau avec un Get et un split.
ensuite je comptais scinder mon tableau en plusieurs sous partie (c'est ma question) et recréer pour chacun de ces sous tableau un fichier de donnée avec un join et un put.

[Delbeke]

Si tes donnees sont toutes de la même taille (d'après l'exemple 8 octets), il est possible d'ouvrir ton fichier en mode Random avec une longeur d'enregistrement qui serait un multiple de la taille de la donnée

Quelque chosse comme çà

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
Private Sub Command1_Click()
  Dim hFichIn As Integer
  Dim hFichOut As Integer
  Dim TailleDonnée As Integer
  Dim NbDonnées As Integer
  Dim Buffer As String
  Dim NumFichier As Integer
  Dim MonFichier As String
 
  MonFichier = App.Path & "\MesDonnes.txt"
  TailleDonnée = 8
  NbDonnées = 4000
  Buffer = String(TailleDonnée * NbDonnées, 0) 'taille maxi 32767
  NumFichier = 1
  hFichIn = FreeFile
  Open MonFichier For Random As #hFichIn Len = Len(Buffer)
    Do While Not EOF(hFichIn)
      hFichOut = FreeFile
      Get #hFichIn, NumFichier, Buffer
      Open App.Path & "\Split" & NumFichier For Output As #hFichOut
        Print #hFichOut, Buffer
      Close #hFichOut
      NumFichier = NumFichier + 1
    Loop
  Close #hFichIn
End Sub

Ou même avec une ouverture en mode binaire

[HoB]

merci pour ta réponse.
en fait mes données varient entre 6 et 15 caracteres.

je ne suis pas sur de comprendre le Open MonFichier For Random As #hFichIn Len = Len(Buffer) :
ca ouvre le fichier de donnée et permet de récupérer des bloc de la taille du buffer ? et tant que l'on récupére un bloc de cette taille on ecrit un nouveau fichier avec le buffer, c'est bien cela ?

[Delbeke]

c'etait çà l'idée, a jetter à la poublelle puisque tes données n'ont pas de taille fixe.

[zazaraignée]

Code HoB :

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

(...) je dois faire un programme qui scinde des fichier de donnée en plusieurs partie (...)

Dans quel format, le fichier de données ? Texte ? Binaire ? Excel ? Table d'une base de données ?

[Delbeke]

Bonjour zaza, il est une coutume en france de monter un canular le premier avril de chaque année. On appelle çà un poisson d'avril. Je pense que c'est le cas ici