Bonjour,
Je cherche à faire un extract d'un fichier de type texte à un autre fichier de type texte, le problème c'est que je n'arrive pas à utiliser la fonction split deux fois de suite quelqu'un peut jeter un oeil à mon code et me dire quelque chose ? J'aimerais que cela split ligne par ligne puis mot par mot dans un second tableau
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
28
29
30
31
' code pour récupérer dans un fichier texte a partir d'une certaine ligne 
set fso=CreateObject("Scripting.FileSystemObject")
 
set oFich=fso.OpenTextFile("C:\Script_vbs\1.txt",1,True)
tx=oFich.ReadAll
oFich.Close    ' On ferme le fichier après en avoir lu le contenu
nom_nouveau= InputBox("Quel sera le nom de votre nouveau fichier ?")
'Set fso = WScript.CreateObject("Scripting.FileSystemObject")
'FichierTXT = "C:\Etienne\Script_vbs\" & nom_nouveau & ".txt"
'Création du fichier texte
'Set NewFichier = fso.CreateTextFile(FichierTXT,TRUE)
tb=Split(tx,VbNewline)
 
'For i=0 To Ubound(tb) 
                      ' puisque le premier index du tableau (tb) est 0(zéro)
  S=tb(1)
  tb2=Split(S,"         ")
 
  MsgBox S
  W = tb2(1)
  MsgBox W
  W = tb2(2)
  MsgBox W
 
 
 'Next
'Affichage du résultat
 
' Nettoyage 
Set oFich = Nothing
Set fso = Nothing