Ecriture sur une seule ligne

Signaler
Messages postés
6
Date d'inscription
mardi 8 août 2006
Statut
Membre
Dernière intervention
14 septembre 2006
-
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
-
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


et longue continuation à votre site

5 réponses

Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Salut il faut que tu ouvre ton fichier texte en mode append.

 Drikce 06
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
salut,
il faut surtout que texte soit formatée comme tu veux en sortie....

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Messages postés
6
Date d'inscription
mardi 8 août 2006
Statut
Membre
Dernière intervention
14 septembre 2006

j'ai essayé en mode append mais ça m'écrit toujours le resultat sur une colonne.
heu qu'est ce que tu entends pas formatée
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
la même chose que tu entends par "ligne"
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
14
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.