Lire et enregistrer une châine de caractères tous ça CARACTERE PAR CRACTERE
Résolu
CDAlstom
Messages postés
69
Date d'inscription
mercredi 21 septembre 2005
Statut
Membre
Dernière intervention
6 mars 2006
-
23 sept. 2005 à 17:09
CDAlstom Messages postés 69 Date d'inscription mercredi 21 septembre 2005 Statut Membre Dernière intervention 6 mars 2006 - 26 sept. 2005 à 09:44
CDAlstom Messages postés 69 Date d'inscription mercredi 21 septembre 2005 Statut Membre Dernière intervention 6 mars 2006 - 26 sept. 2005 à 09:44
A voir également:
- Lire et enregistrer une châine de caractères tous ça CARACTERE PAR CRACTERE
- Compteur de caractères ✓ - Forum Visual Basic
- Python extraire une partie d'une chaine de caractère ✓ - Forum VB.NET
- Comment reprendre juste une partie d'une chaine de caractère ? - Forum ColdFusion
- Compteur de caractère - Forum Visual Basic
- Python extraire chaine de caractère - Forum PHP
6 réponses
CDAlstom
Messages postés
69
Date d'inscription
mercredi 21 septembre 2005
Statut
Membre
Dernière intervention
6 mars 2006
26 sept. 2005 à 09:44
26 sept. 2005 à 09:44
Bon, ben je me suis débrouillé tout seul...
Je disposais d'une fonction:
Private Function lirestr(linein1 As String, posdeb As Integer, lenstr As Integer) As String
lirestr = Left(Right(linein1, Len(linein1) - posdeb), lenstr)
End Function
Cette fonction lisait une longeur donnée de charactères... Moi je ne savais pas la longeur à lire à l'avance et je voulais pas me retrouver par exemple avec:
"Informations "Produit""
Donc je voulais lire charactère par charactère et m'arrêter avant le "<"...
J'ai donc fait une autre fonction qui lit un seukl charactère le tout dans un Do While avec condition et l'enchaînement des lignes dans le bon ordre:
Function CharByChar()
temp = ""
nomfin = temp
i = 0
Do While temp <> "<"
nomfin = nomfin + temp
temp = lirestr(linein, res + i, 1)
i = i + 1
Loop
CharByChar = nomfin
End Function
Voilà.... Merci qd même!
Je disposais d'une fonction:
Private Function lirestr(linein1 As String, posdeb As Integer, lenstr As Integer) As String
lirestr = Left(Right(linein1, Len(linein1) - posdeb), lenstr)
End Function
Cette fonction lisait une longeur donnée de charactères... Moi je ne savais pas la longeur à lire à l'avance et je voulais pas me retrouver par exemple avec:
"Informations "Produit""
Donc je voulais lire charactère par charactère et m'arrêter avant le "<"...
J'ai donc fait une autre fonction qui lit un seukl charactère le tout dans un Do While avec condition et l'enchaînement des lignes dans le bon ordre:
Function CharByChar()
temp = ""
nomfin = temp
i = 0
Do While temp <> "<"
nomfin = nomfin + temp
temp = lirestr(linein, res + i, 1)
i = i + 1
Loop
CharByChar = nomfin
End Function
Voilà.... Merci qd même!
Kangourou_Nomade
Messages postés
92
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
16 janvier 2007
23 sept. 2005 à 18:25
23 sept. 2005 à 18:25
Bon alors a priori je crois avoir compris ce que tu veux faire, mais le truc c'est que j'ai pas trop réalisé ton vrai probleme.
Du coup je vais te donner des trucs mais je sais pas si c'est ce que tu recherche :
Pour enregistrer ton fichier dans un buffer (caractere par caractere) :
Dim Buffer() as Byte
Redim Buffer(1 to FileLen(f$))'ou f$ est le chemin du fichier HTML
ff=FreeFile
open f$ for binary access read as #ff
Get #ff,1,Buffer
close f$
pour tester une cellule du tableau Buffer en String c'est
Mid$(Buffer(i))
pour ajouter dans un String c'est
CellString=CellString & Mid$(Buffer(i))
Bon voila je sais pas si la dedans tu peux piocher une reponse à ta question.
Du coup je vais te donner des trucs mais je sais pas si c'est ce que tu recherche :
Pour enregistrer ton fichier dans un buffer (caractere par caractere) :
Dim Buffer() as Byte
Redim Buffer(1 to FileLen(f$))'ou f$ est le chemin du fichier HTML
ff=FreeFile
open f$ for binary access read as #ff
Get #ff,1,Buffer
close f$
pour tester une cellule du tableau Buffer en String c'est
Mid$(Buffer(i))
pour ajouter dans un String c'est
CellString=CellString & Mid$(Buffer(i))
Bon voila je sais pas si la dedans tu peux piocher une reponse à ta question.
Kangourou_Nomade
Messages postés
92
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
16 janvier 2007
23 sept. 2005 à 18:26
23 sept. 2005 à 18:26
excuse c'etait pas close f$ mais close #ff
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
20
23 sept. 2005 à 23:02
23 sept. 2005 à 23:02
Salut,
Un fichier html, c'est quoi sinon que du texte ?
Et pour analyser du texte, rien qu'en vb6, les fonctions mid, instr, instrrev, replace, split ... et j'en passe sont là pour t'aider.
En plus de la MSDN, plein d'exemples dans le forum et les sources du site. Cherche un peu
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Un fichier html, c'est quoi sinon que du texte ?
Et pour analyser du texte, rien qu'en vb6, les fonctions mid, instr, instrrev, replace, split ... et j'en passe sont là pour t'aider.
En plus de la MSDN, plein d'exemples dans le forum et les sources du site. Cherche un peu
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Kangourou_Nomade
Messages postés
92
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
16 janvier 2007
24 sept. 2005 à 11:24
24 sept. 2005 à 11:24
Tout a fait daccord.
En fait je pige pas ou est le vrai probleme
Le Rasta fou rien, vous le savez bien
En fait je pige pas ou est le vrai probleme
Le Rasta fou rien, vous le savez bien
CDAlstom
Messages postés
69
Date d'inscription
mercredi 21 septembre 2005
Statut
Membre
Dernière intervention
6 mars 2006
24 sept. 2005 à 11:52
24 sept. 2005 à 11:52
Je regarderais plus dans le détail ce que vous m'avez répondu... Merci de vos réponses déjà...
