Powered by Invision Power Board
Здравствуйте Гость ( Вход | Регистрация ) Обратная связь   


  Closed TopicStart new topicStart Poll

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


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

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

Репутация: 0




Код
Dim strData As String

'Открытие файлов
Open "C:\Users\Home\Desktop\???.txt" For Input As #1
Open "C:\Users\Home\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..."

«Linkum» - биржа купли-продажи естественных трафиковых крауд ссылок с тематичных форумов…
Top
50theme
Отправлено: Май 25 2016, 12:23
Quote Post


Админ
***

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

Репутация: -1




Код
Dim strDataA As String
Dim strDataB As String

'Открытие файлов
Open "C:\Users\Home\Desktop\???.txt" For Input As #1
Open "C:\Users\Home\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 Closed TopicStart new topicStart Poll


 


Мобильная версия