- Trouver plusieurs instances d'un même caractère dans un fichier texte.
- Ecrire des caractères dans un fichier texte
- Ecriture d'un tableau de caracteres dans un fichier texte
- Remplacement de caractère dans un fichier texte mais seulement sur certaines lig
- Rechercher une chaine de caractère dans un fichier texte...
Comment lire les 188 derniers octets (caractères) d'un fichier texte ? [Résolu]
Signaler
ARENIUS
ARENIUS
- Messages postés
- 16
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Membre
- Dernière intervention
- 8 décembre 2005
ARENIUS
- Messages postés
- 16
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Membre
- Dernière intervention
- 8 décembre 2005
A voir également:
- Arenius
- Lire les 6 dernier octets d'un fichier? ✓ - Forum - C
- Lire le premier caractère d'un fichier texte ✓ - Forum - Visual Basic 6
- [ansi c][reponse forum 372070] - recherche d'une chaîne de caractère dans un fichier texte composé d - Codes sources - C / C++ / C++.NET (Chaînes de caractères)
- Supprimer caractère d'un fichier texte ✓ - Forum - VB.NET
- Trouver plusieurs instances d'un même caractère dans un fichier texte. ✓ - Forum - Visual Basic 6
7 réponses
cs_Jack
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Salut
Cette technique fonctionnera (en vb.Net) mais tu seras obligé de lire toutes les données en mémoire. Si ton fichier est gros, ce n'est peut-être pas la bonne solution.
En VB6 :
Open monFichier For Binary As #1
Longueur = LOF(1)
Début = Longueur - 188
Chaine = Space$(188)
Get #1, Début, Chaine
Close #1
Le fait de préparer une chaine de longueur déterminée forcera le Get à lire cette longueur là.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Cette technique fonctionnera (en vb.Net) mais tu seras obligé de lire toutes les données en mémoire. Si ton fichier est gros, ce n'est peut-être pas la bonne solution.
En VB6 :
Open monFichier For Binary As #1
Longueur = LOF(1)
Début = Longueur - 188
Chaine = Space$(188)
Get #1, Début, Chaine
Close #1
Le fait de préparer une chaine de longueur déterminée forcera le Get à lire cette longueur là.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
linasteph
- Messages postés
- 153
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Membre
- Dernière intervention
- 22 juillet 2009
Ah oui parce que je me suis trompé c'est open Fso.textfile mais Fso.Opentextfile
linasteph
- Messages postés
- 153
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Membre
- Dernière intervention
- 22 juillet 2009
si ce sont les 188 derniers caractères du fichier que tu veux lire voici ce que je te préconise:
dim FSO as New FileSystemObject
Dim tsFile as TextStream
set TsFile as FSO.textfile(MonfichierTexte,1)
sFile = tsFile.ReadAll
tsFile.Close
sString = right(sFile,188)
sString contient donc les 188 derniers caractères
dim FSO as New FileSystemObject
Dim tsFile as TextStream
set TsFile as FSO.textfile(MonfichierTexte,1)
sFile = tsFile.ReadAll
tsFile.Close
sString = right(sFile,188)
sString contient donc les 188 derniers caractères
linasteph
- Messages postés
- 153
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Membre
- Dernière intervention
- 22 juillet 2009
Info complémentaire : FileSystemObject et TextStream sont disponibles si tu ajoute la référence "Microsoft scripting Runtime"
ARENIUS
- Messages postés
- 16
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Membre
- Dernière intervention
- 8 décembre 2005
Ok merci je vais essayer(pas aujourd'hui je n'ai pas le temps), mais est tu sur que les méthodes filesystemobject et textstream sont disponibles sur VB 6.0 ? Je crois me souvenir que ce n'est pas le cas....