Discussion :

[chapeau_melon]

Bonjour,

BBil a été extrement patient et serviable qu'il m'a écrit un script que j'ai absolument besoin. Hors app il est en VB et j'en aurais besoin en VBscript.
Et c'est ici que je dois être allors

Pourriez-vous m'aider à le transformer ?
BAV tous ,

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
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Option Explicit
Sub ConvertiFichier()
Dim f As Integer
Dim stRep As String
Dim stFichierSource As String
Dim stFichierDest As String
Dim stLigne1 As String
Dim stLigne2 As String
Dim st As String
Dim tbLg
Dim tb
Dim i As Integer
stRep = "c:\tmp\" 'Répertoire de travail
 
stFichierSource = "avant_test_144503.log.txt"
stFichierDest = "apres.txt"
f = FreeFile
Open stRep & stFichierSource For Input As #f 'Ouverture fichier source
While Not EOF(f)
  Line Input #f, st 'Lecture d'une ligne
  'Finalement .. ligne input lit tous le fichier car les lignes
  'ne comporte que le carcatére 10 en fin (pas de retour chariot 13..)
  ' découpage de la chaine en lignes...
  tbLg = Split(st, Chr(10))
  For i = 0 To UBound(tbLg) 'parcours les lignes
    tb = Split(tbLg(i), Chr(&H1C))
    If (UBound(tb) >= 2) Then
        stLigne1 = stLigne1 & tb(0) & vbTab
        stLigne2 = stLigne2 & tb(2) & vbTab
    End If
  Next i
 
Wend
Close #f
f = FreeFile
'Ouverture fichier destination en ecriture le fichier existant sera écrasé..
Open stRep & stFichierDest For Output As #f
 Print #f, stLigne1
 Print #f, stLigne2
 
Close #f
 
End Sub

[AlainTech]

Comme je suis dans un bon jour, qu'il est tôt et que je n'ai pas encore commencé mon boulot, voici un peu de code:

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
32
Dim stFichierDest
Dim stLigne1
Dim stLigne2
Dim st
Dim tbLg
Dim tb
Dim i
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 
stRep = "c:\tmp\" 'Répertoire de travail
stFichierSource = "avant_test_144503.log.txt"
stFichierDest = "apres.txt"
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set oFichier = FSO.OpenTextFile(stRep & stFichierSource, ForReading, True) 
st = oFichier.ReadAll 
oFichier.Close 
 
tbLg = Split(st, Chr(10))
For i = 0 To UBound(tbLg) 'parcours les lignes
  tb = Split(tbLg(i), Chr(&H1C))
  If (UBound(tb) >= 2) Then
    stLigne1 = stLigne1 & tb(0) & vbTab
    stLigne2 = stLigne2 & tb(2) & vbTab
  End If
Next
 
Set oFichier = FSO.OpenTextFile(stRep & stFichierDest, ForWriting, True) 
oFichier.WriteLine(stLigne1)
oFichier.WriteLine(stLigne2)
oFichier.Close

Je ne garantis, ni que ce soit parfait, ni que ça fasse exactement ce que tu veux mais, au moins, il n'y a pas de message d'erreur.

[chapeau_melon]

Encore une fois excellent.
Un immense merci à vous tous.
Il faut encore que je vérifie si le résultat est le bon, mais visuellement cela à l'aire !

Cool