cs_neolitic
Messages postés6Date d'inscriptionmardi 8 août 2006StatutMembreDernière intervention14 septembre 2006
-
13 sept. 2006 à 10:56
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention 7 novembre 2014
-
15 sept. 2006 à 19:07
resalut:
J'écris un prog de cryptage et après avoir modifié toutes les lettres d'apres un fichier texte. J'écris ces lettres modifiees dans un autre fichier texte avec une ligne du genre:
print #source3, texte
texte est une variable string qui a reçu tout les caracteres modifies et jusque là tout fonctionne bien mais j'ai constaté que dans mon nouveau fichier texte tout les caracteres ont été ecrit sur une seule colonne au lieu d'une seule ligne.
Pourriez vous me dire comment remedier à ce petit problème ça serait sympa
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention 7 novembre 201413 15 sept. 2006 à 19:07
Salut PCPT et tout le monde.
Travailler en binaire permettrait de crypter/décrypter aussi les caractères de retour lignes.
Option Explicit
Private Sub Command1_Click()
Crypte "Entrée.txt", "Sortie.txt"
End Sub
Public Sub Crypte(sInput As String, sOutput As String)
Dim nInput As Integer
Dim nOutput As Integer
Dim nChar As Byte
Dim nI As Integer
'On crée ou on supprime le fichier de sortie
FileCopy sInput, sOutput
nInput = FreeFile
Open sInput For Binary As nInput
nOutput = FreeFile
Open sOutput For Binary As nOutput
nI = 1
While nI <= FileLen(sInput)
Get #nInput, nI, nChar
'On change les caractères. Attention au dépassements !
Put #nOutput, nI, CByte(nChar + 1)
nI = nI + 1
Wend
Close nInput
Close nOutput
End Sub
@+
<hr size="2" width="100%" />Je suis en deuxième année en école d'ingénieur etpassionné de développement logiciel sous D7 et VB6. Je cherche un stage en entreprise sur Paris ou Clermont de début avril à fin juillet 2007.