Programme très lent (travaille sur une chaine de caractère)Résolu

Question

J'ai realis&#233; un programme qui lit un fichier pr&#233;d&#233;finie qui contient des caract&#232;res sp&#233;ciaux ceux ci correpondent a un saut de page le programme lit le fichier enregistre dans une variable puis affiche dans une richtextbox (pour la capacit&#233; et le multiline).
 Apr&#233;s commence le travaille sur la richtextbox je cherche le premeir caract&#232;re special et releve les coordonn&#233; et je cherche les coordonn&#233; du suivnat et ainsi de suite toutes les coordonn&#233; sont sauvegard&#233; dans un tableau et apres avec ces coordonn&#233; je decoupe le texte et affiche ce qui correspond a cahuqe page dans une richtextbox differente et au final j'imprime chaque richtextbox(le but du programme)
Le fichier en general (qui contient le texte de depart) continet 5pages en general mais parfois il peyu en aovir 200, il fait environ ,dans ce cas precis le programme mais 15min avant de lancer l'impression et je ne sai pas trop comment optimiser le code.

Private WithEvents txtObj As TextBox



Private Sub Form_Load()
Dim x(5000), i, j, k As Variant
Dim st, prem As String


Set txtObj = Controls.Add("VB.TextBox", "txtObj")


st = "print.spl"
Open st For Binary As #1
prem$ = Space$(FileLen(st))
Get #1, , prem$
Close #1
'Affiche le fichier dans la textbox(0)
Text1(0).Text = prem$



'Releve les coordonn&#233;es des differentes pages
'Le caract&#232;re ' ' correspond &#224; un saut de page
x(0) = InStr(Text1(0).Text, " ")
If x(0) Then
i = 1


boucle = 0
While boucle = 0
    
    x(i) = InStr(x(i - 1) + 1, Text1(0).Text, " ")
    DoEvents
    If x(i) Then
    i = i + 1
    Else
    boucle = 1
    End If
    
Wend


End If


'Affiche chaques pages dans une textbox differente


x(i) = Len(Text1(0))
If i > 1 Then
For j = 1 To i
Load Text1(j)
DoEvents
Text1(j).Text = Mid(Text1(0).Text, x(j - 1) + 1, x(j) - x(j - 1))
DoEvents
Next
End If


'Supprime le caract&#232;re ' '
For j = 1 To i - 1
Text1(j).Text = Left(Text1(j).Text, Len(Text1(j).Text) - 1)
DoEvents
Next


'Param&#232;trage de l'imprimante
Printer.FontName = "Lucida console"
Printer.FontSize = "9,75"
Printer.FontBold = True
Printer.Orientation = "2"


'On imprime
If i > 1 Then
    For j = 1 To i - 1
     If (x(j) - x(j - 1) - 1 > 20) Then
     Printer.Print Text1(j).Text
     DoEvents
     Printer.EndDoc
     DoEvents
     End If
    Next
Else
    Printer.Print Text1(0).Text
    DoEvents
    Printer.EndDoc
    DoEvents
End If


End
End Sub

Renfield · Accepted Answer

rien ne t'interdit de redimensionner ton tableau en chemin....

Dim Tableau() as String

Redim preserve Tableau ( 5 )  as String

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

1 - Supprime ces textboxes, leur affichage est couteux
2 - moins de Doevents.... a utiliser oui ! mais avec parcimonie
3 - ajoutes des  $   (Mid$ Chr$ Left$

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

(Textboxes &#224; remplacer par des tableaux de String)

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

execrator · Answer

En fait g realis&#233; des textbox puisque en vb il est impossible de cr&#233;&#233; de liste chain&#233;e (comme en c), je ne sai pas combien de partie j'aurais a couper,si je fais un tableau je vias devoir le declar&#233; pr&#233;d&#233;finie alros que la je cr&#233;&#233; au fur et a mesure, mais c'est pas grave le but c'est d'am&#233;liorer la rapidit&#233; du prog. Et je note pour les doevents c juste que comme ca dure 15min le prog et ca me prend 100%des ressources j'en ai mis un peu partout lol :D mais j'ai peut etre abus&#233; lol

execrator · Answer

En fait ci g utiliser des textbox c juste que en VB on ne peu pas faire de liste chain&#233; (comme en c) enfin pas a ma connaissance. Comme je ne sais pas &#224; l'avance commebien de partie je via sdevoir decoup&#233;, cr&#233;&#233; dynamiquement des textbox me parasssait une bonne id&#233;e mais bon apparement ca empietre sur la rapidit&#233; du prog, je vias donc test&#233; .Le programme met enormement de temps aussi pour reperer les coordonn&#233;e du caract&#232;re (en meme temps il peut y avoir plus de 1million de caract&#232;re ce cas est rare mais possible donc je suis obliger de le prendre en compte.Je prend note pour les doevents comme le prog me prend 100%des ressources pedant 15min g du abus&#233; un peu trop lol

execrator · Answer

Harg!!! vraiment desol&#233; pour les doublons ... mais ce con dordi me marque impossible dafficher la page alros je recommence mais en fait ca avait marche.... oki merci pour la commande Redim preserve Tableau ( 5 )  as String
ca me sera surement utile :)

Renfield · Answer

le Preserve, tu l'auras surement compris est optionnel et indique si l'on veut ou non que les donn&#233;es soient conserv&#233;es

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Programme très lent (travaille sur une chaine de caractère)

7 réponses

Discussions similaires