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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
q?
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 28.01.2004 (Ср) 9:47

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

Сообщение q? » 23.03.2004 (Вт) 1:42

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

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

Fedorfx
Постоялец
Постоялец
 
Сообщения: 371
Зарегистрирован: 10.10.2002 (Чт) 0:14

Сообщение Fedorfx » 23.03.2004 (Вт) 2:53

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
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 23.03.2004 (Вт) 10:56

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
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 24.03.2004 (Ср) 1:18

Код: Выделить всё
PP="" 
Open "File.txt" for input as 1
  Do
  Line Input #1, Stroka
  PP=PP+Stroka 
  Loop until(Eof(1))
Close
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 18

    TopList