Tri dans un textbox

Bonjours.
je devellope un soft de log sous telnet.
apres le log je transfer les données dans un textbox.
hors je n'ai pas besoin de toutes les infos recuperées, juste de quelques infos dont la ligne commence toujours par REF:
il y a plusieur de ses lignes dans le log.
donc je voudrais des infos si possible sur:

pointer sur toutes les lignes commencent par REF:
ajouter ses lignes et seulement ses lignes dans un fichier text
afin de mettre au propre se log
merci d'avance de l'interet porte a mon post.
cordialement sysop

ben peu être que tu te complique la vie en les transférant dans un text box ..? comment effectue-tu ce transfert ..?

Comment t'arrives les infos ?
Si elles sont dans un fichier log, je pense qu'il faudrait lire l'ensemble du fichier et garder simplement les lignes souhaitées.
...

Code:

---

1 2 3 4 5 6 7 8 9

dim strtxt as string Open "fichier.log" for input as #1 Do While not eof(1) line input #1,strtxt if ucase$(left$(strtxt,4)) = "REF:" then text1.text=text1.text + strtxt + vbCrLf end if loop

---

...

Citation:

---

Envoyé par bbil

ben peu être que tu te complique la vie en les transférant dans un text box ..? comment effectue-tu ce transfert ..?

---

heux oui oui hi hi hi c'est surement du a mon inculture de programmation

Citation:

---

Envoyé par lstjean

Comment t'arrives les infos ?
Si elles sont dans un fichier log, je pense qu'il faudrait lire l'ensemble du fichier et garder simplement les lignes souhaitées.

---

oui c'est tout a fait ca je vous remerci tout les deux je vais tester ca !
et je vous tiens a courant !
encore merci !!

Bon bin ca fonctionne po.................
peut tu m'expliquer le deroulement de cette routine ?

Citation:

---

Envoyé par lstjean

Comment t'arrives les infos ?
Si elles sont dans un fichier log, je pense qu'il faudrait lire l'ensemble du fichier et garder simplement les lignes souhaitées.
...

Code:

---

1 2 3 4 5 6 7 8 9

dim strtxt as string 'Variable texte qui va recevoir la ligne lue dans le fichier Open "fichier.log" for input as #1 'ouverture du fichier en lecture Do While not eof(1) ' tant que la fin du fichier n'est pas atteinte line input #1,strtxt 'lire une ligne dans le fichier if ucase$(left$(strtxt,4)) = "REF:" then 'si elle commance par "REF:" text1.text=text1.text + strtxt + vbCrLf 'ajouter la ligne à la boite de texte et aller à la ligne end if loop

---

...

---

Que se passe t-il exactement SysOP ?

bin justement il se passe rien...................
lorsque je vais en mode debogage je vois strtxt avec une valeure qui corespond a la 1er ligne, ensuite il bloque et ne vas pas lire les autres lignes

Et bien c'est qu'il a placé l'ensemble de ton fichier dans le variable strtxt.
La fonction Line Input n'est donc peut être pas la bonne solution.
Essaye à la place :

Code:

---

1 2	INPUT #1,strtxt

---

ok j'essai ca merci bien

:yaisse2: Goalllllllll argentinaaaaaaaaaaaaa

oups redevenons serieux............
bin la c'est tout bon !!!
fallait enlever le line !!!
Merci bien a vous tous !! tres tres gentil !