Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблемы с копированием, Проблемы с копированием 
V
    Опции темы
panchos
Дата 22.2.2007, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.2.2007

Репутация: нет
Всего: нет
Написал код для того чтобы копировался  файл

C:\Игрушка.HTML

В файл

D:\Игрушка.Html

Код

Sub InsertHTML()

Dim FNumber As Integer
Dim MyFile As Integer
Dim S As String

FNumber = FreeFile()

Open "C:\Игрушка.HTML" For Input As #FNumber

Do Until (EOF(FNumber)) = True

    Input #FNumber, S



MyFile = FreeFile()

Open "D:\Игрушка.HTML" For Output As #MyFile


    
    Write #MyFile, S
    
Loop

End Sub


Должен получиться рисунок, а получается какая-то белибирда.

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

Это сообщение отредактировал(а) panchos - 22.2.2007, 17:21
PM MAIL   Вверх
Black_Star
Дата 22.2.2007, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4
Код

dim fr as long
dim buff() as byte

  fr=freefile
  open "C:\Игрушка.HTML" for binary as fr
  get #fr,,buff
  close #fr
  Open "D:\Игрушка.HTML" For binary as fr
  put #fr,,buff
  close #fr


Цитата(panchos @  22.2.2007,  17:20 Найти цитируемый пост)
Должен получиться рисунок, а получается какая-то белибирда.

Насчет рисунка я сомневаюсь... что есть в файле, то и будет. Вообще для таких целей существуют определенные команды, аки FileCopy, CopyFile... Ну хочешь через Get/Put (Read/Write) - получай...

Да и код какой-то странный...
В цикле все время открываешь 2й файл и пишешь туда... конечно будет белиберда...  smile 
PM ICQ   Вверх
Dexx
Дата 22.2.2007, 20:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7
 
Код

FileCopy(откуда,куда)


И всё!



--------------------
PM   Вверх
scull
Дата 27.2.2007, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 27.7.2006
Где: СПБ

Репутация: нет
Всего: нет
А вот у меня использование скобок жутко Error'ится, пишу так и работает

Код

FileCopy "C:\filename.html", "D:\filename2.html"


P.S. Прежде чем копировать файл, лучше удостовериться, что он есть:

Код

If Dir("C:\filename.html", vbDirectory) = "" Then FileCopy "C:\filename.html", "D:\filename2.html"


2 panchos

Код Get/Put , целесообразен, если в одном файле нужно найти "нечто", а потом это "нечто" записать или дописать в отдельный файл - но жутко медленно!

Это сообщение отредактировал(а) scull - 27.2.2007, 15:15
PM MAIL   Вверх
Dexx
Дата 27.2.2007, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7
Ну напиши так!
Код

Call FileCopy(откуда,куда)



--------------------
PM   Вверх
panchos
Дата 28.2.2007, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.2.2007

Репутация: нет
Всего: нет
Я уже написал макрос. Спасибо. 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0749 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.