Charger 8 col x 10000 lignes de Single d'un fichier txt dans un tableau(8,10000Résolu

Question

Bonjour &#224; tous, 

Je cherche &#224; optimiser le chargement d'un fichier txt de valeur de type  :
0.0002   0.2233   0.3233   0.3233   0.3233   0.3233   0.3233   0.3233
0.0002   0.2233   0.3233   0.3233   0.3233   0.3233   0.3233   0.3233   
 ... fois 10000 lignes
je veux charger ces valeurs dans un tableau de Single de type tab(8,10000)

J'ai beaucoup regard&#233; les sources disponibles mais je n'ai  rien trouv&#233; qui me permette de r&#233;cup&#233;rer directement des nombres mais que des string.
 Je pr&#233;cise que j'utilise ceci pour le chargement du fichier ce qui est tres rapide mais qui impose un traitement tr&#232;s long derri&#232;re  :

[=code:
 fichTxt = "C:/TestCurve/electrodesSignaux.txt"
 Open fichTxt For Input As #1
 tableau = Input(LOF(1), #1)
 Close #1]
Pour l'instant je fais un d&#233;coupage par ligne avec d&#233;tection de fin de ligne 
puis par mot "0.1212" puis remplacement du point en virgule puis conversion avec Csng()
Malheureusement cela met 3 min de traitement ce qui est beaucoup trop long !!!

D&#233;butant en VB,  je cherche des id&#233;es pour optimiser cette fonctionnalit&#233;  

Merci &#224; tous ceux qui voudront bien me filer un coup de pouce !

Renfield · Accepted Answer

En VB, ton traitement sera long, de toutes façon...

j'ai cet algo, qui tourne pas trop mal...

(attention, aucun test ne controle le fichier)

Private Sub Form_Load()
Dim iFile As Integer
Dim Buffer As String
Dim Output() As Single
Dim LineCount As Long
Dim Items() As String
Dim i As Integer
    iFile = FreeFile
    Open "H:\a.txt" For Input As iFile
    Do Until EOF(iFile)
        Line Input #iFile, Buffer
        LineCount = LineCount + 1
    Loop
    Close iFile
    
    iFile = FreeFile
    Open "H:\a.txt" For Input As iFile
    ReDim Output(7, LineCount - 1)
    LineCount = 0
    Do Until EOF(iFile)
        Line Input #iFile, Buffer
        Items = Split(Buffer, "   ", 8)
        For i = 0 To 7
            Output(i, LineCount) = CSng(Items(i))
        Next i
        LineCount = LineCount + 1
    Loop
    Close iFile

    MsgBox Output(5, 3)
End Sub

le_gwilherm · Answer

Ok Merci &#224; toi !!
Maintenant &#231;a prend 2 secondes, mais il faut quand m&#234;me que je remplace les "." en "," des Items mais ce n'&#233;tait pas ce qui prenait le plus de temps .

Bravo Vbfrance et &#224; bient&#244;t !!

Renfield · Answer

utilises la fonction Val plutot que CSng, et pas besoin de remplacer les . en ,



&#224; noter que ce remplacement des . en , n'est pas syst&#233;matique, et d&#233;pend des parametres regionnaux de ta machine


Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

j'ai bien lu ?? tu passes deux trois minutes &#224; deux secondes !!



ces temps me semble assez lointains... et m&#234;me avec des milliers de
lignes, je n'atteignait pas 2 secondes, quel est la vitesse de ton ordi
??

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

salut, autre solution, pas forcément meilleur..... mais apparemment rapide : Option Explicit ' Const lNbLignes As Long = 20 '10000 Dim aTxt(1 To 8, 1 To lNbLignes) As Single ' ' Private Sub Form_Load() Const fichTxt As String = "C:/TestCurve/electrodesSignaux.txt" Dim sTableau As String Open fichTxt For Input As #1 sTableau = Input (LOF(1), #1) Close #1 sTableau = Replace(sTableau, ".", ",") Dim aLines() As String aLines = Split (sTableau, vbCrLf) Dim aCellules() As String Dim i As Long, j As Long For i = 1 To lNbLignes aCellules = Split (aLines(i - 1), " ") For j = 1 To 8 aTxt(j, i) = CSng(aCellules(j - 1)) Next j DoEvents Next i Erase aCellules Erase aLines End Sub Coloration syntaxique automatique [AFCK] ps : j'aurais plûtot fait 10000*8 et non l'inverse... va savoir pourquoi.... PCPT [AFCK]

le_gwilherm · Answer

c 'est pas un foudre de guerre mais je crois que j'avais surtout un probleme d'algorythmie et que je mettait cela sur le dos du pauvre VB 

En effet la fonction val est tr&#232;s efficace et fonctionne chez moi !!

Merci encore et &#224; bient&#244;t

Renfield · Answer

pas mal, ton code, pcpt, tu limites les accès au fichier, ce qui est souvent critique (quelle que soit la techno)...

pour milles lignes, on a environ 70ko de fichier, ce qui n'est pas franchement énorme, en mémoire...

PCPT · Answer

Rey -> tu peux t'expliquer stp?

Charger 8 col x 10000 lignes de Single d'un fichier txt dans un tableau(8,10000

8 réponses

Discussions similaires