gribouillex
Messages postés172Date d'inscriptionlundi 10 octobre 2005StatutMembreDernière intervention16 mai 2011
-
26 juin 2006 à 14:42
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
27 juin 2006 à 11:19
Bonjour,
J'utilise ce code pour récupérer tout le texte d'un fichier :
Open FileName For Binary As #1
TxtString = Space(LOF(1))
Get #1, , TxtString
Close #1
Mais j'aimerais savoir quel est le moyen de récupérer le texte A PARTIR d'un endroit défini du fichier jusqu'à la fin.
Par exemple à partir du moment où il trouve le texte "ICI".
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 juin 2006 à 15:33
Salut,
C'est normal en fait car le moment ou tu recupere la position de "ICI" ta variable TxtString ne contient encore rien.
C'est pour cela que tu doit deja recupérer tout le contenu. et ensuite en extraire juste ce dont tu as besoin.
Essaie ceci pour voir (ATTENTION l'exemple ci dessous récupère aussi la chaine "ICI")
Dim TxtString As String
Dim Ou As Integer
Open FileName For Binary As #1
TxtString = Space (LOF(1))
Get #1, , TxtString
Ou = InStr(1, TxtString, "ICI")
TxtString = Mid(TxtString, Ou)
MsgBox "|" & TxtString & "|"
Close #1
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 juin 2006 à 15:10
Salut,
Est ce que ta premiere methode récupère bien tout le texte.
Si oui.
Dim Ou as integer
Ou = Instr(1, TxtString, "ICI")
Ceci te retoune la position de la chaine de caractère "ICI" dans la variable Ou .
Si TxtString ne contient pas "ICI", elle te renvoie 0.
@+, Julien Pensez: Moteur de Recherche, Réponse Acceptée
Mais Surtout: Règlement/FONT>
Vous n’avez pas trouvé la réponse que vous recherchez ?
gribouillex
Messages postés172Date d'inscriptionlundi 10 octobre 2005StatutMembreDernière intervention16 mai 2011 26 juin 2006 à 15:25
Merci encore pour ton aide Julien....
Alors avec tes indications, j'ai écrit ça.... mais ça ne récupère rien.
Open FileName For Binary As #1
Dim Ou As Integer
TxtString = Space(LOF(1))
Ou = InStr(1, TxtString, "ICI")
TxtString = Space(LOF(1) - Ou)
Get #1, Ou, TxtString
Close #1
J'ai peut être mal écrit.....?!
Pour info Filename est un fichier MIDI avec deux pistes de texte. Le
premier code récupère la totalité du texte (qui part en traitement pour
affichage), et j'aimerais en faire de même avec la seconde piste qui
débute invariablement par un mot.
gribouillex
Messages postés172Date d'inscriptionlundi 10 octobre 2005StatutMembreDernière intervention16 mai 2011 26 juin 2006 à 16:44
J'ai beaucoup de mal à intégrer ton code dans le mien.......(dont un extrait est joint plus bas....)
En fait, la msg box apparait (avec tous les caractères, même ceux qui
sont bizarre et, me semble t'il, pas jusqu'à la fin) et ensuite il ne
se passe rien...
plus de traitement de l'affichage de TxtString comme ca me le faisait avant