|
|
| Voir le sujet précédent :: Voir le sujet suivant |
| Auteur |
Message |
Genius
dummy mioche
Inscrit le: 27 Nov 2002
Messages: 6
|
 Posté le: Mer Juil 09, 2003 10:13 am Sujet du message: [visual basic] les 3 premiers caracters |
 |
|
Bonjour,
Voila voudrais extraire d'un fichier txt
les 3 premiers caracteres de chaque lignes
voici deja mon code qui me permet de lire l'integralité du document
| Code: |
Rem declaration
Dim wFile As File
Set wFile = CreateObject("FileCtl.File")
Rem ouverture
Call wFile.Open("\My Documents\depot\depot.txt", _
fsModeInput, fsAccessRead, fsLockReadWrite)
Rem lecture
Dim wLigne As String
Do While Not wFile.EOF
wLigne = wFile.LineInputString
MsgBox wLigne
Loop
Rem fermeture
Call wFile.Close
|
voilà donc comment pourrai je faire pour ne lire que les 3 premiers caractères de chaques lignes ???
merci d'avance 
_________________
I love
http:\\www.salemioche.com
http:\\www.salemioche.net |
|
| Revenir en haut |
|
 |
Salemioche
salemioche
Inscrit le: 05 Avr 2002
Messages: 350
Localisation: FR- BIOT
|
| Posté le: Mer Juil 09, 2003 10:27 am Sujet du message: |
|
|
le COM object FileCtl.File n'est pas un COM standard, il faudrait avoir l'API complete pour savoir quelle methode utiliser.
neanmoins il n'y pas d'autre methode que de lire les lignes les unes aprés les autres et d'en extraire les 3 premiers caractères (substring ou un truc du genre)
un fichier se parcoure toujours de facons sequentiels, il existe en general une fonction seek qui permet d'aller au n-ème caractère suivant mais pour detecter un fin de ligne il faut lire le \n donc on est obliger de lire tous les caractères, ta mèthode est donc bonne.
_________________
Creer son site - Hebergement - Jumeaux |
|
| Revenir en haut |
|
|
Genius
dummy mioche
Inscrit le: 27 Nov 2002
Messages: 6
|
| Posté le: Mer Juil 09, 2003 11:01 am Sujet du message: |
|
|
j'ai trouvé tout seul comme un grand
je post la solution sa pourra peu etre aider quelqu'un
| Code: | ma chaine=mid(variable,nombre de depard,nombre de caracteres souhaiter)
|
ba oui la fonction mid evidement c'etait ca
donc sur le code que j'ai citer la haut il se met sous mon
| Code: | | wLigne = wFile.LineInputString |
voilaaaa et merci salemioche
_________________
I love
http:\\www.salemioche.com
http:\\www.salemioche.net |
|
| Revenir en haut |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum
|
|
