Bonjour tout le monde.
Je présente mon probleme.
Voila, sur VB 6.0 j'aimerais creer un fichier TXT sur le disque dur avec beaucoup d'informations dessus, environ 200 lignes par 1000 caracteres ligne.
 
je peux faire :  
 
Code: cliquez sur le carré blanc

 
mais ca fait un peu con d'ecrire 200 print avec 1000 caracteres  
 
merci d'avance de vos réponses    

Aide en ligne VB6

Merci , mais pas de réponse à ma question dans cette aide en ligne !!

Bonjour,
 
c'est comme ça que ça marche en tout cas. Après, ça dépend de l'origine des informations que tu veux y placer : tu as ces 200 lignes dans un tableau ? Dans une zone de texte ? Dans une seule variable ? etc.
Il faut nous en dire un peu plus
 
Nota : il faut utiliser la balise [ code ] (et non la balise [ spoiler ] )

Bonjour,
tout le texte que je veux y placer est dans une zone de texte enfin c'est un grand code un fichier wav.
 
PS: la balise [code] est pour le c++,non ?
sinon toutes les couleurs changent et c'est illisible.

Je connais pas encore la structure d'un fichier WAV, mais a-t-elle des retours à la ligne ? :s
Si non, tu affectes toute ta zone de texte dans le fichier et basta.
 
Mais je pense que les connaisseurs t'orienteront vers une écriture de fichier en mode Random, qui est peut-être plus approprié pour ce genre d'utilisation.
 
--> Quelqu'un pour affirmer ?
 
P.S. : Il te reste la balise [ fixed ] qui, si elle ne colorie pas le code, a au moins l'avantage d'utiliser une police type Courier.

oui le fichier wav a  au moins 200 retours a la ligne et des lignes de 1000 caracteres
 
merci pour la reponse

Gros Pb de vocabulaire régurgité sans assimilation au préalable
Si s'agit d'un fichier .WAV il ne s'agit pas d'un fichier TEXTE !!!
voir http://www.wotsit.org/ pour la structure native d'un fichier WAV

ok, je reparts de zero.
je voudrais qu'avec une application VB je crée un fichier TXT de 200 par 1000 sans faire  
print
print
print
print
 
ect
 
desolé pour la reponse directe

ma BA : on ne fait pas plus basique , la dèche
 
Option Explicit
 
Private Sub Command1_Click()
    EcritureTxt
End Sub
 
Sub EcritureTxt()
Dim NomFichier As String, Chaine As String
Dim Num As Integer, i As Long
     
    Num = FreeFile
    NomFichier = App.Path & "\Essai.txt"
    Chaine = String(1000, "A" )
    Open NomFichier For Output As #Num
        For i = 1 To 200
            Write #Num, Chaine
        Next
    Close Num
End Sub

Le code est juste, mais je suppose que ses 200 lignes sont différentes les unes des autres    
 
Ou bien ?

Oui, mais j'ai un peu la fleme    de metre:
print #1,"128ds68daiax scac48sc sk sack c6c4cscs c ackmkasc"  
Print #1, "lmvdosivj sv46cvdv1df6+ 4vddjsav*"/=(7823u40jvjhjd"
Print #1, "v345s925653d56a5cmnjax84xajjhaC99596ABHCUIOAC"
print #1, "jkhvsksvjkhcvjnsjvcosivnsdcjiosjcviosjviosjviosvjsvkl3"  
 
et ainsi de suite, en fait dans ce fichier TXT il y a des donées Cryptés.
 
Mon projet serait de donner ce programme a mon ami, que le progr extracte le fichier TXT crypté et que mon ami le decrypte avec le progr que je lui ai filé.$
 
Merci d'avance de vos reponses
Merci en retard pour vos reponses (juju2k,kiki29)

utilise PGP