Plantage programme (pb de variable ?)Résolu

Question

Salut ! J'ai un problème, mon appli plante lorsque j'execute ce morceau de code sur un fichier trop lourd... Je n'ai pas trouvé de solutions ; j'espere que vous oui

Dim i As Long Dim CheminFichier As String Dim Buffer As String, carac As String * 1 Dim Canal As Byte Buffer = "" Canal = FreeFile Open CheminFichier For Binary Access Read As #Canal For i = 1 To LOF(1) Get Canal, i, carac Buffer = Buffer & carac Next i Close #Canal Buffer = Replace(Buffer, txtSearch.Text, txtReplace.Text)

Merci MeTaLdArK SpiRiT

Gobillot · Accepted Answer

c'est quoi un fichier trop lourd ?

Autant lire tout le fichier d'un seul coup







Open CheminFichier For Binary Access Read As #Canal

    Buffer = space$(Lof(1))

    Get #Canal,, Buffer

Close #Canal


Daniel

BasicInstinct · Answer

canal as integer, plutot ?

 BasicInstinct

cs_Metaldark · Answer

C'est un programme qui cherche des caracteres dans un(des) fichiers(s) pour les remplacer par d'autre caracteres.

Les fichiers vis&#233;s par le programme sont du type html; txt, etc (&#224; base de texte brut)



Le probl&#232;me c'est que si le fichier est trop gros (>200ko) le programme plante...





Voici le cs si vous voulez : [url]http://metaldark.free.fr/files/MultiReplace_cs.rar/url

ScSami · Answer

C'est fort Gobillot!!! Je savais pas qu'on pouvait charger d'un coup d'un seul toute le fichier dans le buffer!!!



BasicInstinct, explique moi ce truc bizarre que tu raccontes !!!
Remplacer le canal qui est Byte par un Integer !!! On est pas l&#224; pour
rajouter des probl&#232;mes &#224; ce pauvre Metaldrak !!!



Si &#231;a plante encore avec ce que Gobillot t'a donn&#233;, donne-nous le
message d'erreur... Sinon, clique sur le bouton "Accepter" de Gobillot !



Parce que moi, l&#224;, je vois pas o&#249; &#231;a pourrait encore d&#233;conner!!!



Mais dit moi juste un truc... que je sais pas... &#231;a fait quoi &#231;a :


carac As String * 1

???

Ca rempli (met 0) dans carac en le multipliant par 1 ??? C'est &#231;a ou pas ???



Enjoy

BasicInstinct · Answer

ca veut dire que carac est une chaine de longueur 1 caractere

moi j'ai toujour fait
NFile as integer

NFile=freefile
....

 BasicInstinct

ScSami · Answer

Etrange que &#231;a n'ai pas plant&#233;!!!

Houl&#224;... moi je vais aller regarder ma MSDN d'un peu plus pr&#232;s... Parce que &#231;a m'ettonne tout &#231;a!!!

Je pansais pourtant qu'il n'y avait que 256 canaux pour les fichiers
dont d'ailleurs les 128 premiers &#233;taient l&#233;g&#232;rement diff&#233;rents des
autres...

Dit moi, on parles bien de VB6 l&#224; ???

BasicInstinct · Answer

VB6 oui.
d'un autre cot&#233;, si effectivement tu as 255 canaux max, ca change rien de l'avoir en integer ou en byte.

 BasicInstinct

ScSami · Answer

Pourquoi ??? Si y'en a bien que 256 c'est que c'est g&#233;r&#233; en Byte non, je dis une connerie ???

Gobillot · Answer

le freefile est bien en Integer

et &#231;a &#231;a marche:



    Open "C:\bidon.txt" For Output As #300

    Close #300


Daniel

ScSami · Answer

Oui, c'est vrai, autant pour moi... en fait, y'en a 512... 

D&#233;sol&#233;... mais bon, parfois je dis aussi des conneries!!! Ca arrive &#224; tout le monde... 



D'ailleurs, apr&#232;s v&#233;rification, voici ce que dit la MSDN :



"Utilisez des num&#233;ros de fichier compris entre 1 et 255 inclus pour les fichiers 
non accessibles &#224; d'autres applications, et entre 256 et 511 inclus pour les 
fichiers accessibles &#224; partir d'autres applications."



Encore d&#233;sol&#233;...

Plantage programme (pb de variable ?)

10 réponses

Discussions similaires