recherche de texte dans un fichier

Question

Amis développeurs,

Je cherche une fonction vb qui me permettre d'obtenir que le texte, à partir d'une chaine de caractère issue d'un fichier. Je voudrais pouvoir supprimer les espaces, les tabulations et autre retour chariot.

Il existe bien les fonctions Trim (LTrim ou RTrim) mais elles ne suppriment pas les tabulations ou les retour chariot.

Il semble que dans un fichier texte ce type de données aient un caractère spéciale que ne comprend pas vb.

Merci pour toutes réponses et autres bidouilles qui m'aideraient beaucoup.

Vincent

DeAtHCrAsH · Answer

Salut...
Tu peux le faire trés simplement...
Voici un ptit bout de code permettant de le faire:

txt = "ma chaine de characteres...."
For i = 1 to len(txt)  if mid(txt,i,1) " " then mid(txt,i,1) ""
next i

Voili voilou... Ca supprimera tout les espaces contenu dans ta chaine de charactere si c'est ce que tu voulais faire.

Si t'as d'autres questions n'hesites pas...

A++ et bonne prog...
DeAtH_-_CrAsH

TeKiT · Answer

Plus simple
Dim txt
txt = "ma chaine de characteres...."
txt=replace(txt," ","")
txt=replace(txt,Vbclrf,"")
.....
 
tu fais tous les remplacements de chaines de caractère que tu veux 

-----------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.

DeAtHCrAsH · Answer

Justement Replace n'existe que sous VB6 et je sais pas s'il la... Sinon c'est clair que ca reste plus simple comme methode.

CUBErt · Answer

Salut,
Regarde bien, dans ton code, tu saute toujours un caractère (teste le avec une chaine contenant 2 espace a la suite, tu verra qu'il y en a 1 qui restera) !
Tu peux corriger simplement en remplacant ta boucle par celle la :

For i = 1 to len(txt)  if mid(txt,i,1) " " then mid(txt,i,1) ""
  Else next i
  End If

Recherche de texte dans un fichier

4 réponses

Discussions similaires