[vb6] problème : mon programme se plante :( Résolu/Fermé

Question

salut à tous ,
mon programme se plante lorsque je choisi un fichier je sais pas pourquoi
voilà mon code :

    Private Sub Form_Load()
    Dim a As String
    Dim b As String
    With CommonDialog1
    .Filter = "*.exe | *.exe"
    .ShowOpen
    End With
    Open CommonDialog1.FileName For Binary As #1
    a = Space(LOF(1))
    Get #1, , a
    Close #1
    b = ""
    For i = 1 To Len(a)
    b = b & Mid(a, i, 1)
    Next i
    Open App.Path & "
.exe" For Binary As #1
    Put #1, , b
    Close #1
     
    End Sub



note: j'ai fai cette instruction juste pour savoir est ce que vb6 accepte de séparer les caractère ou non parce que aprés , j'en ai besoin pour les exploiter dans un tableau :

    b = ""
    For i = 1 To Len(a)
    b = b & Mid(a, i, 1)
    Next i



merci d'avance

f894009 · Answer

Bonjour,

mon programme se plante lorsque je choisi un fichier je sais pas pourquoi  peut-etre, mais est-ce qu'il y a un message d'erreur ?????

Chez moi pas de plantage

sohaieb · Answer

non ya pas de message d'erreur , mais il se plante lorsque je l'exécute .. et je crois que l'erreur est dans la boucle for si je me trompe pas non?

f894009 · Answer

Bonjour,

l'erreur est dans la boucle for si je me trompe pas non? Non, je n'ai pas de plantage

mais il se plante lorsque je l'exécute .. quels sont les symptomes de ce plantage ???

sohaieb · Answer

j'ai fait un debug et breapoint sur l'instruction "b = b & Mid(a, i, 1) " il a marché bien , mais quand j'ai fait breakpoint sur "next i" , là il se plante , (le plantage ce fait d'une façon que le programme charge , jusqu'à que je l'arréte forcément avec Fin de tache)

f894009 · Answer

Re,

le fichier exe que vous utilisez fait quelle taille???

sohaieb · Answer

il fait 4.90 MO à peut prés .. remarque: j'ai fait avec un fichier de taille 40 KO et ça est marché trés bien , mais avec un fichier de taille 4 ou 2 MO ça veut pas marché , sinon , si vous avez d'autre méthode qui me permet de séparer les caractères d'une grande chaine de caractère (ou contenue d'un fichier) et qui me permet de manipuler chaque caractère à coté n'hésitez pas à me montrer :) merciii beaucoups d'avance :)

f894009 · Answer

Bonjour,

votre methode est correcte. Pourquoi avez-vous choisi un exe pour faire vos manip sur chaine de caracteres ????

sohaieb · Answer

pour résoudre ce problème j'ai remplacée :
b = ""
For i = 1 To Len(a)
b = b & Mid(a, i, 1)
Next i	

par
b = Space(Len(a))
For i = 1 To Len(a)
   Mid(b, i, 1) = Mid(a, i, 1)
Next i
	


merciii à tous ! :)

[vb6] problème : mon programme se plante :(

8 réponses

Discussions similaires