Spike
-
19 avril 2001 à 15:43
rahmoha
Messages postés1Date d'inscriptionmercredi 16 juillet 2008StatutMembreDernière intervention17 juillet 2008
-
17 juil. 2008 à 12:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
rahmoha
Messages postés1Date d'inscriptionmercredi 16 juillet 2008StatutMembreDernière intervention17 juillet 2008 17 juil. 2008 à 12:10
je vous remercie infiniment pour votre aide.
JoKatja
Messages postés2Date d'inscriptionjeudi 22 avril 2004StatutMembreDernière intervention30 juillet 2004 30 juil. 2004 à 13:54
Salut !
JŽai reussi à lire et ecrire dans les fichiers mais jŽai encore un petit probleme:
Dans mon fichier je voudrais ecrire plusieurs informations:
1ere ligne: 0 ou 1 (0 pour resutat ok, 1 pour non OK)
2 eme ligne 0 ou 1 (O pour OK, 1 pour Erreur)
3eme ligne 0 ou 1 (O pour OK, 1 pour Erreur)
Comment faire pour que à chaque fois sŽil y a changement de resultat que juste la ligne concernée soit actualisée sans que les autres soient effacées !
Merci de vos Tipps
deathdigger
Messages postés7Date d'inscriptiondimanche 27 avril 2003StatutMembreDernière intervention 4 mai 2003 27 avril 2003 à 19:28
merci, je suis un serieux newbie, et cette petite aide m'a permis de realiser mon premier programme qui est en fait une extension pour Uproxy (proxy pour les jeux). J'ai crée un interface graphique pour ce prog un peu austère en commandes de textes. Si vous le voulez (même si c vraiment du boulot de newbie!) dites le moi
frank150
Messages postés34Date d'inscriptionlundi 6 janvier 2003StatutMembreDernière intervention29 mars 2008 7 mars 2003 à 05:23
Essaye ca Ftpman :
Open [DossierFichier] For Ouput As #1
Print #1, Fichier1
Close #1
Open [DossierFichier] For Append As #2
Print #2, Fichier1
Close #2
Leurch
Messages postés5Date d'inscriptionmardi 29 janvier 2002StatutMembreDernière intervention17 avril 2002 17 avril 2002 à 16:22
ESSAYE AVEC LOOP A LA PLACE DE WEND
Ftpman
Messages postés12Date d'inscriptionlundi 21 janvier 2002StatutMembreDernière intervention 6 février 2002 29 janv. 2002 à 23:30
Moi, je veux extraire toute les infos d'un fichier texte "a" pour les écrire a la fin d'un autre fichier texte.
Je ne reussit pas a dapter ce code source pour un fichier exterieur de type txt
Open "c:index.txt" For append As 1
Print #1,"Ce que vous voulez"
Exemple mon adaptation ne fobnctionne pas!! :
Open "c:a.txt" For Input As 1
Open "c:index.txt" For Append As 2
Print #2,"c:a.txt"
cs_SHIVA
Messages postés97Date d'inscriptionvendredi 28 décembre 2001StatutMembreDernière intervention 1 décembre 2003 19 janv. 2002 à 13:40
Je suis un debutant en programmation VB6, je viens vers vous pour vous soumettre un probleme qui est bizarre.
En effet, je veux extraire certaines informations d'un fichier texte pour les mettre dans un autre fichier texte.
Voici le code que j'ai fait:
Private Sub Form_Load()
0n Error Resume Next 'Les erreurs sont ignorees'
Open "c:itstatSTAT01-05 2001stat26e.txt" For Input As #1
Open "c:itstatSTAT01-05 2001stat26e1.txt" For Output As #2
Dim i As Integer
Dim texte, texte2, texte3 As String
Line Input #1, texte
If Len(texte) <> 0 Then
While Not EOF(1)
Line Input #1, texte
texte = Trim(texte)
texte = Mid$(texte, 6, Len(texte))
texte = texte + Chr$(13) + Chr$(10
Print #2, texte
Wend
End If
Close #1
Close #2
End Sub
Ce code fonctionne pour un certain nombre d'enregistrements, puis declare la fin du fichier par la boucle while, pourtant il y a encore beaucoup d'enregistrements non lu.
Merci de bien vouloir rectifier le code ci-dessus afin que je puisse extraire la totalite des enregistrements.
Attention quand vous écrivez dans un fichier texte n'oubliez pas de le refermer
Si vous ne le refermer pas celà peut engendrer des erreurs
exemple :
'on ouvre le fichier
Open [Chemin complet et nom du fichier] for output as #1
Print #1,[ici votre texte sous forme de chaine de caractère string]
'fermeture du fichier
Close #1
Au lieu d'utiliser Output , vous pouvez aussi l'utilisation append qui permet si l'on ferme le fichier que qand on l'ouvre on ajoute une ligne au lieu d'écraser le fichier comme l'output
17 juil. 2008 à 12:10
30 juil. 2004 à 13:54
JŽai reussi à lire et ecrire dans les fichiers mais jŽai encore un petit probleme:
Dans mon fichier je voudrais ecrire plusieurs informations:
1ere ligne: 0 ou 1 (0 pour resutat ok, 1 pour non OK)
2 eme ligne 0 ou 1 (O pour OK, 1 pour Erreur)
3eme ligne 0 ou 1 (O pour OK, 1 pour Erreur)
Comment faire pour que à chaque fois sŽil y a changement de resultat que juste la ligne concernée soit actualisée sans que les autres soient effacées !
Merci de vos Tipps
27 avril 2003 à 19:28
7 mars 2003 à 05:23
Open [DossierFichier] For Ouput As #1
Print #1, Fichier1
Close #1
Open [DossierFichier] For Append As #2
Print #2, Fichier1
Close #2
17 avril 2002 à 16:22
29 janv. 2002 à 23:30
Je ne reussit pas a dapter ce code source pour un fichier exterieur de type txt
Open "c:index.txt" For append As 1
Print #1,"Ce que vous voulez"
Exemple mon adaptation ne fobnctionne pas!! :
Open "c:a.txt" For Input As 1
Open "c:index.txt" For Append As 2
Print #2,"c:a.txt"
19 janv. 2002 à 13:40
25 juil. 2001 à 10:48
Je suis un debutant en programmation VB6, je viens vers vous pour vous soumettre un probleme qui est bizarre.
En effet, je veux extraire certaines informations d'un fichier texte pour les mettre dans un autre fichier texte.
Voici le code que j'ai fait:
Private Sub Form_Load()
0n Error Resume Next 'Les erreurs sont ignorees'
Open "c:itstatSTAT01-05 2001stat26e.txt" For Input As #1
Open "c:itstatSTAT01-05 2001stat26e1.txt" For Output As #2
Dim i As Integer
Dim texte, texte2, texte3 As String
Line Input #1, texte
If Len(texte) <> 0 Then
While Not EOF(1)
Line Input #1, texte
texte = Trim(texte)
texte = Mid$(texte, 6, Len(texte))
texte = texte + Chr$(13) + Chr$(10
Print #2, texte
Wend
End If
Close #1
Close #2
End Sub
Ce code fonctionne pour un certain nombre d'enregistrements, puis declare la fin du fichier par la boucle while, pourtant il y a encore beaucoup d'enregistrements non lu.
Merci de bien vouloir rectifier le code ci-dessus afin que je puisse extraire la totalite des enregistrements.
Une fois de plus merci d'avance
pegguy
19 avril 2001 à 15:43
Si vous ne le refermer pas celà peut engendrer des erreurs
exemple :
'on ouvre le fichier
Open [Chemin complet et nom du fichier] for output as #1
Print #1,[ici votre texte sous forme de chaine de caractère string]
'fermeture du fichier
Close #1
Au lieu d'utiliser Output , vous pouvez aussi l'utilisation append qui permet si l'on ferme le fichier que qand on l'ouvre on ajoute une ligne au lieu d'écraser le fichier comme l'output