Programme trop lent (travaille sur des chaines)

Question

Bonjour mon programme sert &#224; imprimer un fichier contenant du texte brut, seulement voila ce ficheir contient des caract&#232;res sp&#233;ciaux comme " " qui correspond &#224; un saut de page(fin du document on imprime su rune nouvelle page), seulement mon ficheir texte peut faire 1mo par exemple...Et pour imprimer sur des pages differentes je proc&#232;de comme cela : j'enregistre le ficheir dans une variable string j'affiche la variable dans une richtextbox (pour la capacit&#233;) et apres je repere tous les caractt&#232;res " " j'enregistrent leurs coordonn&#233;es dan sun tabelau ensuite j'affiche dans chaque partie du texte qui correspond a une page dans une richtextbox differente. ensuite je supprime le caract&#232;re " " de chaque richtextbox pour ne pas limprimer et ensuite j'imprime chaque richtextbox.
le fichier en general contient que quelques pages mais ilpeu en contenir des centaines parfois dans ce cas la avant que l'impression de toutes les text box ce lance j'atend 15min

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
     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

tbbuim1 · Answer

C'est un peu normale que &#231;a ram dans de cas lol

T'as machine c'est quoi?

T'as essay&#233; de faie un ctrl+H au lieu de faire une macro?

TBBUIM

ScSami · Answer

Sinon, regarde aussi l'instruction "replace"... &#231;a peut servir dans ton cas!!!



Enjoy



(Si un r&#233;ponse vous convient, cliquez sur le bouton juste en dessous...)

Programme trop lent (travaille sur des chaines)

2 réponses

Discussions similaires