Такая задачка!

[q?]

Есть текстовый файл , в нем произвольный текст . Надо символ перехода на новою стоку заменить на пробел.

Заранее спасибо!

[Fedorfx]

Private Sub Form_Load()
Open "c:\test.txt" For Binary Access Read As #1
i = LOF(1)
Data = Input(i, 1)
Close #1
1:
i = InStr(1, Data, vbCrLf)
If i > 0 Then
Data = Left(Data, i - 1) & " " & Mid(Data, i + 2)
GoTo 1:
End If
Open "c:\test2.txt" For Output As #1
Print #1, Data;
Close #1
End Sub

[GSerg]

dim a as string
open "file.txt" for input access read as #1
a=replace(input$(lof(1),1),vbnewline," ")
close #1
open "file.txt" for output access write as #1
? #1, a;
close

[SSecurity]

Код: Выделить всё

PP="" 
Open "File.txt" for input as 1
  Do
  Line Input #1, Stroka
  PP=PP+Stroka 
  Loop until(Eof(1))
Close