Clonk
Messages postés278Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention29 août 2006
-
3 août 2004 à 15:07
Clonk
Messages postés278Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention29 août 2006
-
4 août 2004 à 14:07
Bonjour,
J'ai un problème d'optimisation de code (ouais, C relou, je sais!)
Voilà, je dois lire 2 fichiers texte sous VB 6.0 (et pas VBA) et les copier les lignes sosu excel (avec toutes les contraintes que cela implique)
Le problème, c'est que ça prends un temps monstre dès qu'on dépasse les 5 megs!!!
Si quelqu'un a une version plus rapide, ou s'il voit pourquoi, chez moi ça prends ouat's mille années, il serait sympa de se manifester ^^
RecMAX = 32000
i = 0
numFeuill = 1
nbCarac = 0
currentY = 2
ColWidth = 0
Export = ""
DateFile = Now
DateFile = Replace(DateFile, "/", "-")
DateFile = Replace(DateFile, ":", "-")
DateFile = Replace(DateFile, " ", "-")
NomFichier = App.Path & "\Resultats_" & DateFile & ".xls"
FrmStart.MousePointer = vbHourglass
FileNumber = FreeFile
OpenedFile = App.Path & "\final.txt"
UnknownData = App.Path & "\unknown.txt"
If fso.FileExists(OpenedFile) Then
FrmExc.ProgressBar1.Min = 0
FrmExc.ProgressBar1.Max = FileLen(OpenedFile) + FileLen(UnknownData)
FrmExc.ProgressBar1.Value = 0
Open OpenedFile For Input As #FileNumber
Set Exc = CreateObject("excel.application")
Set Wb = Exc.Workbooks.Add
Set Ws = Wb.Worksheets(1)
With Exc
.Visible = False
End With
nbSheets = Exc.Sheets.Count
While Not EOF(1)
Line Input #1, buff
buff = Replace(buff, vbCrLf, "")
If buff <> "" Then
nbCarac = nbCarac + Len(buff)
tmp = limit
limit = getSeparator(buff) If limit "0" Then limit tmp
MyTest = Split(buff, limit)
i = i + 1
j = 0
currentX = 2
For j = 0 To UBound(MyTest)
Ws.Cells(currentY, currentX).Characters.Caption = MyTest(j)
currentX = currentX + 1
Next j
Ws.Range(Ws.Cells(currentY, 2), Ws.Cells(currentY, (UBound(MyTest) + 2))).Borders.Weight = xlThin
If Len(buff) >= ColWidth Then
ColWidth = Len(buff)
Ws.Columns.AutoFit
End If
If currentY < 32000 Then
currentY = currentY + 1
Else
currentY = 2
numFeuill = numFeuill + 1
If numFeuill > nbSheets Then
Set Ws = Wb.Worksheets.Add
Else
Set Ws = Wb.Worksheets(numFeuill)
End If
End If
End If
FrmExc.LblAvanc.Caption = Round(((nbCarac / FrmExc.ProgressBar1.Max) * 100), 2) & "% effectués"
FrmExc.ProgressBar1.Value = nbCarac
DoEvents
Wend
Close #FileNumber
'----------------------------------------------------------------
'- 2 -
'----------------------------------------------------------------
Previoussize = nbCarac
nbCarac = 0
numFeuill = numFeuill + 1
If numFeuill > nbSheets Then
Set Ws = Wb.Worksheets.Add
Else
Set Ws = Wb.Worksheets(numFeuill)
End If
ColWidth = 0
currentY = 2
Ws.Range(Ws.Cells(currentY, 2), Ws.Cells(currentY, 10)).MergeCells = True
Ws.Range(Ws.Cells(currentY, 2), Ws.Cells(currentY, 10)).Font.Bold = True
Ws.Range(Ws.Cells(currentY, 2), Ws.Cells(currentY, 10)).Font.Size = 12
Ws.Range(Ws.Cells(currentY, 2), Ws.Cells(currentY, 10)).HorizontalAlignment = xlCenter
Ws.Range(Ws.Cells(currentY, 2), Ws.Cells(currentY, 10)).Borders.Weight = xlMedium
Ws.Cells(currentY, 2) = "Données appartenant à des catégories inconnues :"
currentY = currentY + 1
Open UnknownData For Input As #FileNumber
While Not EOF(1)
If i >= RecMAX Then
Close #FileNumber
FileNumber = FreeFile
Open App.Path & "\unknown.txt" For Input As #FileNumber
Seek #FileNumber, nbCarac
i = 0
End If
Line Input #1, buff
buff = Replace(buff, vbCrLf, "")
nbCarac = nbCarac + Len(buff)
tmp = limit
limit = getSeparator(buff) If limit "0" Then limit tmp
If buff <> "" Then
MyTest = Split(buff, limit)
i = i + 1
j = 0
currentX = 2
For j = 0 To UBound(MyTest)
Ws.Cells(currentY, currentX).Characters.Caption = MyTest(j)
'Ws.Cells(currentY, currentX) = MyTest(j)
currentX = currentX + 1
Next j
Ws.Range(Ws.Cells(currentY, 2), Ws.Cells(currentY, (UBound(MyTest) + 2))).Borders.Weight = xlThin
If Len(buff) >= ColWidth Then
ColWidth = Len(buff)
Ws.Columns.AutoFit
End If
If currentY < 32000 Then
currentY = currentY + 1
Else
currentY = 2
numFeuill = numFeuill + 1
If numFeuill > nbSheets Then
Set Ws = Wb.Worksheets.Add
Else
Set Ws = Wb.Worksheets(numFeuill)
End If
End If
End If
FrmExc.LblAvanc.Caption = Round((((nbCarac + Previoussize) / FrmExc.ProgressBar1.Max) * 100), 2) & "% effectués"
FrmExc.ProgressBar1.Value = nbCarac + Previoussize
DoEvents
Wend
Clonk
Messages postés278Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention29 août 2006 3 août 2004 à 16:11
bah jme doutais que ça prendrait du temps, mais C enervant quand avec C++, il te met 4 à 5 fois moins de temps (facile) avec 2 à 3 fois plus de traitements (facile).
Mais faire un export sous Excel en C++, ça me broute ;)
Satirik
Messages postés44Date d'inscriptionmardi 2 juillet 2002StatutMembreDernière intervention 3 août 2004 3 août 2004 à 20:42
les fichier textes on quelles formes ? (pas envie de me taper tout le code pour me faire une idee) et j'imagine que c'est des fichier texte figé (c'est pas toi qui defini comment ils sont enregistrés)
La Machine
Vous n’avez pas trouvé la réponse que vous recherchez ?
Clonk
Messages postés278Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention29 août 2006 3 août 2004 à 23:15
Ouais, C ptete plus simple en expliquant :
C des fichiers texte ou le format est ainsi:
val1|val2|val3|etc...
je les lis ligne par ligne et le séparateur est le pipe...
donc je fais un split de chaque ligne.
EN plus, je dois vérigfier la taille, parce que Excel plante à 32000 et des brouettes d'enregistrements.
Voilà et je dois faire ça 2 fois avec une mise en page vite fait (mettre des bordures quoi)
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012 4 août 2004 à 09:35
Salut,
Bon ben j'ai pas trouvé grand chose malheureusement... Peux-tu faire la mise en page "d'un coup" plutot qu'à chaque ligne de texte, après ton wend. Je crois que ça prend du temps ce genre de truc...
Sinon, les fonctions récursives sont plus rapides à exécuter que des boucles for.
J'ai conscience que ce ne sont que des conseils généraux... Je continue de regarder encore un peu :o)
Sinon, histoire de pinailler, tu écris : FileNumber = FreeFile puis While Not EOF(1), au lieu de While Not EOF(FileNumber). Il y a deux ou trois lignes de cdoes dans ce genre...
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012 4 août 2004 à 09:42
Sinon, si tu as des calculs dans tes feuilles :
desactive
Application.Calculation = xlCalculationManual
réactive
Application.Calculation = xlCalculationAutomatic
ou encore :
'gèle le rafraichissement de l'affichage
Application.ScreenUpdating = False
'remet le rafraichissement de l'affichage des cellules
Application.ScreenUpdating = True
mais bon, tu as déjà .visible = false alors...
++
Moustachu
Clonk
Messages postés278Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention29 août 2006 4 août 2004 à 11:36
cimer moustachu, C déjà ça de gagné (bon, G toujorus ou't mille années d'export quand meme...)
Geffectuvement du mettre en visible = false sinon ça mettait encore plus de temps!
Pour l'import d'un seul coup, perso j'ai pas trouvé de moyen de lire tout le fichier et si je fais ça, je crois que je l'affichage sera chelou nan? (enfin, jdis ça, jdis rien)