Lire le premier caractère d'un fichier texte

Résolu
thkiller Messages postés 168 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 11 septembre 2007 - 12 juin 2006 à 15:24
thkiller Messages postés 168 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 11 septembre 2007 - 12 juin 2006 à 16:34
Bonjour,

Je désire pouvoir lire uniquement le premier caractère d'un fichier text que j'aurais préalablement inscrit un foix pour tout grave a windows exemple :
Nom du fichier : Ligne
1er caractère : 1

j'ais déjà commencer a coder mais bon je me suis arreter aprés l'ouverture ^^ !!

Open "path\Ligne.txt" For Binary Access Read Lock Read As #1

mais bon pour la suite je ne voi pas trops d'autemp plus que je doit récupéré ce caractère dasn un textbox !!

Merci.

10 réponses

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
12 juin 2006 à 16:20
Bonjour

essaye avec Input$(ID,Len)
avec ID l'identifiant du fichier
Len, la longueur à lire (la position se décale automatiquement)

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

<fon></fon>
3
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
12 juin 2006 à 15:37
Bonjour

Pour récupérer un caractère : left, Mid, Right
Pour écrire dands un fichier Print #ID , Chaine
Avec ID 1 dans ton cas.

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

<fon></fon>
0
thkiller Messages postés 168 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 11 septembre 2007
12 juin 2006 à 15:46
salut,
Tu ve dire quoi par 'Right' pour récupérer un caractère, ca donne quoi en syntaxe vb par exemple pour le récupérer et le mettre dans un textbox ? stp

Merci.
0
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
12 juin 2006 à 15:57
Bonjour

dim MaStr as String = "Test"

Left(MaStr,1)="T"
Mid(MaStr(2,2)="es"
Right(MaStr,1)="t"

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

<fon></fon>
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
12 juin 2006 à 15:57
Exemple: récupère les 4 derniers caractères d'un fichier (ici l'extension)



Right((ObjSubFileItem.Path), 4)





 Drikce 06
0
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
12 juin 2006 à 15:58
et si c'est les premier c'est left

 Drikce 06
0
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
12 juin 2006 à 15:59
Bonjour

J'ai dis presque le même chose 13 secondes plus rapidement

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

<fon></fon>
0
thkiller Messages postés 168 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 11 septembre 2007
12 juin 2006 à 16:15
Et oui mais non moi je ne ve pas récupérer les caractères du nom du fichier mais ce qu'il y a l'intérieur !!

prend un fichier tu le nome comme tu veut tu écrit ce que tu ve à l'intérieur et tu fait comment pour récup le 1er ? en gros si tu écrit "Bonjour" dans ton fichier comment tu fait pour récup le "B" ?

Merci.
0
thkiller Messages postés 168 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 11 septembre 2007
12 juin 2006 à 16:31
oki merci vais essayer avec va !!
0
thkiller Messages postés 168 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 11 septembre 2007
12 juin 2006 à 16:34
oki merci ca marche !!
0
Rejoignez-nous