Traitement d'une chaine de caractere

Question

Bonjour,

Voila je recupere dans un fichier txt une ligne composer de text separe par des tabulatations.
Du genre : Repertoire   nPst   TotPst   nTmp   TotTmp   nOst   TotOst

Et il faudra que la chaine de caractere devienne : Repertoire   nOst   TotOst
C'est a dire la premiere chaine de caractere avec la premiere tabulation puis l'avant derniere chain de caractere, la tabulation d'apres et la derniere chaine de caractere.
Et tout ca forcement en VBS.

Set FSO = CreateObject("Scripting.FileSystemObject")


If FSO.FolderExists("c:\_recap") = True then
 Set Dest = FSO.getFolder ("c:\_recap")
 'fso.CopyFile "c:\_recap\*.x0", Dest, TRUE
        Dim Files, File, Char, i
 Set Files = Dest.Files
 For Each File In Files
  set source = fso.OpenTextFile (File,1)
  'fichierdest = left(File,instrrev(File,".")-1)& "_light.x0"
         'set fic = fso.createtextfile (fichierdest,true)


  do while (source.atendofstream <> true)
   Do


   ligne = source.readline
   ?????                         
   Loop Until ligne Is Nothing
   'fic.writeline(ligne)
  loop
  source.close
  fic.close
 Next
End If
Set FSO = nothing
Set xl = nothing

Voici le debut de mon script et il manque la partie ??? ou je devrais recuperer la bonne chaine de caractere et pour l'inserer dans mon nouveau fichier.

Merci d'avance de votre aide et si vous avez des questions n'hesitez pas!

cs_Willi · Answer

Salut,
Si ton mod&#232;le d&#233;cris est fixe toujours le meme nb de tabulation la construction de ta nouvelle ligne doit se faire comme ceci

dim sChaineSplit() 
sChaineSplit=split(ligne,vbtab)

dim sNouvelleChaine
sNouvelleChaine = sChaineSplit(0) & chr(9) & sChaineSplit(4) & chr(9) & sChaineSplit(5)

 


<HR width="100%" SIZE=2>
 Si la r&#233;ponse te conviens merci de l'accepter

cs_Willi · Answer

Oups je me suis lit&#233;ralement plant&#233; d&#233;sol&#233; 

C'est plutot ceci

dim sChaineSplit 
sChaineSplit=Split(ligne,chr(9),-1,1)


dim sNouvelleChaine
sNouvelleChaine = sChaineSplit(0) & chr(9) & sChaineSplit(5) & chr(9) & sChaineSplit(6)

Voila en esp&#233;rant que cela correspond &#224; tons attente

bouindou · Answer

Merci de chez merci Willi

cs_Willi · Answer

N'oubli pas d'accepter la r&#233;ponse si ma r&#233;ponse te convient

Traitement d'une chaine de caractere

4 réponses

Discussions similaires