Powered by Invision Power Board
Здравствуйте Гость ( Вход | Регистрация ) Выслать повторно письмо для активации

  Reply to this topicStart new topicStart Poll

> Step, Microsoft Visual Basic 6.0
mikityak
Отправлено: Май 1 2016, 18:05
Quote Post


Активный пользователь
***

Группа: Модераторы
Сообщений: 234
Пользователь №: 2
Регистрация: 8-Июля 14
Статус: Offline

Репутация: 0




Код
Dim strData As String

'Открытие файлов
Open "C:\Users\???\Desktop\???.txt" For Input As #1
Open "C:\Users\???\Desktop\???.txt" For Output As #2

While Not EOF(1)
'Чтение
Line Input #1, strData
'Передаем управление операционной системе
'DoEvents
'Запись
Print #2, strData + "???" + strData
Wend

'Закрытие
Close #1
Close #2
MsgBox "Текст сохранен", vbInformation, "Info..."
Top
50theme
Отправлено: Май 25 2016, 13:23
Quote Post


Админ
***

Группа: Администраторы
Сообщений: 574
Пользователь №: 1
Регистрация: 15-Июня 14
Статус: Offline

Репутация: нет




Код
Dim strDataA As String
Dim strDataB As String

'Открытие файлов
Open "C:\Users\???\Desktop\???.txt" For Input As #1
Open "C:\Users\???\Desktop\???.txt" For Output As #2

While Not EOF(1)
'Чтение
Line Input #1, strDataA

'Передаем управление операционной системе
'DoEvents
If strDataA = strDataB Then GoTo StepEnd

'Запись
Print #2, strDataA

strDataB = strDataA

StepEnd:

Wend

'Закрытие
Close #1
Close #2
MsgBox "Текст сохранен", vbInformation, "Info..."
Top
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:

Topic Options Reply to this topicStart new topicStart Poll


 


Текстовая версия