cs_neolitic
Messages postés6Date d'inscriptionmardi 8 août 2006StatutMembreDernière intervention14 septembre 2006
-
4 sept. 2006 à 10:31
cs_neolitic
Messages postés6Date d'inscriptionmardi 8 août 2006StatutMembreDernière intervention14 septembre 2006
-
4 sept. 2006 à 19:23
Salut,
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:
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201259 4 sept. 2006 à 10:45
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...
cs_neolitic
Messages postés6Date d'inscriptionmardi 8 août 2006StatutMembreDernière intervention14 septembre 2006 4 sept. 2006 à 12:34
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.
PCPT
Messages postés13280Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201848 4 sept. 2006 à 12:43
#source3
(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