Discussion :

[cari]

Bonjour,
j'aimerai mettre le contenu d'un fichier séquentiel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
aaaa
bbbb
cccc

dans un fichier sur une seule ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 aaaa;bbb;cccc

Comment faire?
Merci.

[XylonAkau]

___Ia ora na.
___Soit T0 le contenu initial :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function SurUneLigne(T0 As String) As String
SurUneLigne = Replace(T0, vbCrLf, ";")
End Function

___vbCrLf peut être remplacé par vbNewLine, vbCr & vbLf ou Chr(13) & Chr(10).
___Bonne suite de votre travail.

[hackoofr]

en utilisant la fonction posté par XylonAkau

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
Option Explicit
Dim ws,fichier,fichierSortie
fichier = "test.txt"
fichierSortie = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
Set ws = CreateObject("wscript.Shell")
WriteLog SurUneLigne(Lire(fichier))
MsgBox SurUneLigne(Lire(fichier)),64,"SurUneLigne"
ws.run fichierSortie
 
Function Lire(fichier)
Dim fso,fRead,fWrite,Text
	Set fso = CreateObject("Scripting.FileSystemObject")
	If Not fso.FileExists(fichier) Then
	    MsgBox "Attention : Le Fichier " & fichier & " n'existe pas",16,"Erreur de Lecture du fichier"
		Wscript.Quit
	End If	
	Set fRead = fso.OpenTextFile(fichier,1)
	Text = fRead.ReadAll
	fRead.Close
	Lire = Text
end function
 
Function SurUneLigne(data)
SurUneLigne = Replace(data,vbCrLf,";")
End Function
 
Sub WriteLog(strText)
	Dim fs,ts 
	Const ForAppending = 8
	Set fs = CreateObject("Scripting.FileSystemObject")
	If fs.FileExists(fichierSortie) Then fs.DeleteFile(fichierSortie) 
	Set ts = fs.OpenTextFile(fichierSortie,ForAppending,True)
	ts.WriteLine strText
	ts.Close
End Sub

[XylonAkau]

___Ia ora na.
___S'agissant du reste, j'avais prévu d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim T0 As String, NF As Integer
NF = FreeFile
Open "MonFic_SautDeLigne.txt" For Binary As NF: T0 = Space$(LOF(NF)): Get #1, , T0: Close NF
Open "MonFic_SurUneLigne.txt" For Binary As NF: Put #NF, , SurUneLigne(T0): Close NF

___Ou, pour une lecture séquentielle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim T0 As String, NF As Integer, L As String
NF = FreeFile
Open "MonFic_SautDeLigne.txt" For Input As NF
Do Until EOF(NF)
  Line Input #NF, L: T0 = T0 & L & ";"
Loop
Close NF: T0 = Left(T0, Len(T0) - 1)  '<- éventuellement, enlever le dernier ;
Open "MonFic_SurUneLigne.txt" For Output As NF: Print #NF, T0: Close NF

___Mais c'était plus rudimentaire.
___Bonne continuation.