Discussion :

[brownthefou]

Bonjour à tous,
actuellement en stage et novice en VBA, j'ai écrit un petit programme sencé retirer quelques caractères tous les x fois que l'on rencontre le caractère "tab" (chr(9))

x ici sera la variable nb_param

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Set oTs = fso.OpenTextFile(sFichierTxt, ForReading)
 
    x = 0
    While Not oTs.AtEndOfStream
    ReDim Preserve arrFileLines(x)
 
        arrFileLines(x) = oTs.ReadLine
 
         Tableau = Split(arrFileLines(x), Chr(9))
         For i = 0 To UBound(Tableau)
               If (num_chaine = nb_param) Then
               Tableau(i) = ""
               End If
               If (num_chaine = nb_param) Then
               num_chaine = num_chaine + 1
               Else
               num_chaine = 0
               End If
 
          Next i
          arrFileLines(x) = Tableau
          sContenu = sContenu & sLigne & vbCrLf
          x = x + 1
 
        Wend
    oTs.Close

Cependant lors de la phase d'exécution, il y a des erreurs.
En effet, la fonction "Split" renvoie un tableau, or j'ai besoin de le remettre sous forme de string pour le réécrire dans un fichier texte par la suite.

Est ce que quelqu'un saurait comment faire ?

Merci d'avance

[samuel50]

Bonjour

Regarde la fonction JOIN (avec l'aide F1) tu devrais avoir quelque chose dans le genre (je pense que la syntaxe est la bonne)

Code :

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

arrFileLines(x) = Join(Tableau, Chr(9))

cordialement

[brownthefou]

Merci beaucoup Samuel50, c'est exactement ce qu'il me fallait !