Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите! (Работа с текстовыми файлами в VB6) Добавлено: 13.08.09 12:58  

Автор вопроса:  LuX@
Люди, как в VB при сохранении текст. файла удалить в нём все пустые строки:

Open nf For Input As #3
Open "temp.txt" For Output As #4
Do While Not EOF(3)
Input #3, st
' ЗДЕСЬ НАДО УДАЛИТЬ СТРОКУ ЕСЛИ ОНА ПУСТАЯ...
Print #4, st
Loop
Close #3
Close #4


Пробовал на пробел условие ставить, на VbCrLf (Enter), на длину < 1. Не получается. Помогите please!

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #1 Добавлено: 13.08.09 13:44
  1.  
  2. if st = "" then


или
  1.  
  2. if st = " " then

Ответить

Номер ответа: 2
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #2 Добавлено: 13.08.09 16:06
НакОй такОй геморОй?
Читай весь файл в переменную, потом
Переменная1 = Replace$(Переменная1, vbCrLf & vbCrLf, vbCrLf)
и Print #1, Переменная1;

Ответить

Номер ответа: 3
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #3 		Добавлено: 13.08.09 17:14
На будущее: вставляешь представленный ниже код в попу модулю:
  1.  
  2. Public Property Get TextFile(ByVal FileName As String) As String
  3. On Error Resume Next
  4. Dim h As String
  5. Dim s As String
  6. Open FileName For Input As #1
  7. Dim b As Long
  8. Do Until EOF(1)
  9. Line Input #1, s
  10. 'Раскомментируй, если хочешь, чтобы эта вещь всегда сама удаляла пустые строки
  11. 'If s <> "" Then
  12. h = h & vbCrLf & s
  13. 'End If
  14. b = b + 1
  15. If b > 5000 Then Exit Do
  16. Loop
  17. Close #1
  18. TextFile = Mid$(h, 3)
  19. End Property
  20. Public Property Let TextFile(ByVal FileName As String, ByVal NewValue As String)
  21. Open FileName For Output As #1
  22. Print #1, NewValue
  23. Close #1
  24. End Property


Далее пишешь:
  1.  
  2. TextFile("C:\Жрать.txt") = "Очень сильно!" 'Записываем в файл
  3. Dim s As String
  4. s = TextFile("C:\Жрать.txt") 'Читаем из файла



Дальше все просто. Твой код:
  1.  
  2. textfile("temp.txt") = Replace(textfile(nf), vbCrLf & vbCrLf, vbCrLf)

Ответить

Номер ответа: 4
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #4 Добавлено: 13.08.09 18:59
Поэт плагиатор :-D

Ответить

Номер ответа: 5
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #5 		Добавлено: 14.08.09 11:22
Я же не говорю, что это я придумал. Первый раз я такое увидел в SnimOK.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам