Discussion :

[SysOp]

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

[SfJ5Rpw8]

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

[SysOp]

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

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 !!

[SysOp]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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

[lstjean]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
INPUT #1,strtxt

[SysOp]

ok j'essai ca merci bien