Voilà mon petit problème. Je débute sous visual basic 6 je suis en train de créer un prog de cryptage qui d'apres la lecture d'un fichier txt decale les lettres à l'aide du code ascii. Mon code fonctionne bien, mais j'aimerais ecrire dans un fichier texte le resultat du texte crypte, mais chaque fois je reçois un message d'erreur me disant type incompatible voila la ligne de code:
Salut,
Essaie de nous donner un peu plus de code.
Par exemple la procédure entiere qui te permet d'écrire dans le fichier.
Car on ne sais pas comment tu ouvres le fichier etc...
source = FreeFile
Open filename For Input As #source
Do Until EOF(source)
Input #source, texte
Loop
Close #source
total = Len(texte)
source3 = FreeFile
Open filename3 For Output As #source3
For i = 1 To total
for j = 1 to total
for z = 1 to total
code = Asc(Mid(texte, i, 1))
If code >= 65 And code <= 90 Then
code = code - 1
tabmajuscule(z) = Chr(code)
Write #filename3, tabmajuscule(z)
z = z+1
ElseIf code >= 97 And code <= 122 Then
code = code + 1
minuscule = Chr(code)
Write #filename3, tabminuscule(j)
j=j+1
en fait voilà une partie de mon code filename est le fichier texte en clair et filename3 le fichier texte codé
au debut j'avais pensé que je pourrais ecrire dans le fichier grace à une variable qui aurait reçu tout les caracteres mais je me suis dit qu'il valait mieux un tableau cela serait plus juste donc j'ai rajouté tabminuscule(j) et tabmajuscule(z) et fait une boucle mais cela me répond toujours type incompatible.
(voir autres lignes, c'est pareil....)
et on ne peux que supposer que le reste du code existe...
(next, close)
++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp