Suprresion des 10 premiers caractères en VB
Alain
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Est il possible de supprimer les 10 premiers caractères d'un fichier texte.
Pour accéder au fichier texte je procède de la manière suivante :
Open Fichier For Output As #2
Print #2, chaine
Merci
Est il possible de supprimer les 10 premiers caractères d'un fichier texte.
Pour accéder au fichier texte je procède de la manière suivante :
Open Fichier For Output As #2
Print #2, chaine
Merci
A voir également:
- Suprresion des 10 premiers caractères en VB
- Clé d'activation windows 10 - Guide
- Caractères ascii - Guide
- Restauration systeme windows 10 - Guide
- Caractères spéciaux - Guide
- Windows 10 ne démarre plus - Guide
1 réponse
Bonjour,
La méthode Output va écraser le fichier existant.
Pour faire ce que tu veux faire il faut ouvir le fichier avec la méthode Input, ainsi que pour lire une ligne.
Voilà une méthode:
J'ai écrit ça à main levée sans tester ... reviens ici, s'il y a un problème.
Bon courage.
;o)
La méthode Output va écraser le fichier existant.
Pour faire ce que tu veux faire il faut ouvir le fichier avec la méthode Input, ainsi que pour lire une ligne.
Voilà une méthode:
Sub ModifFichier()
Dim fpIn As Integer
Dim fpOut As Integer
Dim ligne As String
fpIn = 11
fpOut = 3
On Error Resume Next
Open "C:\monFichier.txt" For Input As #fpIn
Line Input #fpIn, ligne
ligne = Mid(ligne, 10, Len(ligne))
Open "C:\FichierTmp.txt" For Output As #fpOut
Print #fpOut, ligne
While Not EOF(fpIn)
Line Input #fpIn, ligne
Print #fpOut, ligne
Wend
Close #fpIn
Close #fpOut
Kill "C:\monFichier.txt"
Name "C:\FichierTmp.txt" As "C:\monFichier.txt"
End Sub
J'ai écrit ça à main levée sans tester ... reviens ici, s'il y a un problème.
Bon courage.
;o)