Discussion :

[Ti-EN]

Bonjour,

J'ai un fichier texte du style

---
Ligne 1
Description Ligne 1

Ligne 2
Description Ligne 2

---

J'aimerai qu'il soit sous la forme :

---
"Ligne 1","Description Ligne 1",
"Ligne 2", "Description Ligne 2",
---

Je ne vois pas comment faire hormis supprimer les lignes vides, et prendre une ligne sur deux pour les réécrire dans un fichier au fur et à mesure.

Si quelqu'un peut m'aider car je débute en VBS.

Merci.

[l_autodidacte]

Peut-être ce

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
Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.OpenTextFile("MonTexte.txt", 1, False)
cnt = 0 ' compteur pour les lignes non vides
tb = Split(F.ReadAll,VbCrLf)
NewTxt = ""
For i = 0 To UBound(Tb)
   If tb(i) <>"" and tb(i) <> "---" Then
       cnt = cnt + 1
       NewTxt = NewTxt & Qt(tb(i)) & ","
       If cnt mod 2 = 0 Then NewTxt = NewTxt & vbNewLine 
       If cnt mod 4 = 0 Then NewTxt = NewTxt & "---" & vbNewLine
   End If
Next
Function Qt(strIn)
  Qt = chr(34) & strIn & chr(34)
End Function
NewTxt = "---" & vbNewLine & NewTxt
MsgBox NewTxt