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
Partager