Formater un fichier texte

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.

Peut-être ce

Code:

---

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

---