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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Объединение файлов, Несколько файлов в одном 
:(
    Опции темы
Kirill89
Дата 4.12.2006, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
Вопрос немного не по vb, но надеюсь, что кто нибудь сталкивался с моей проблемой:
У меня есть программа, читающая информацию из "базы". База представляет собой несколько файлов с информацией.
Код

Open "файл" For Input As #1
Input #1,  информация
Close #1

Мне нужно получить один файл (нечто вроде пакета или библиотеки dll), который НЕ будет являться папкой, но доступ к нему из visual basic'a будет вида
Код

Open "пакет/файл" For Input As #1
Input #1,  информация
Close #1

тоесть чтобы когда user откроет файл блокнотом, он не увидит там того, что лежит в файлах "базы", и этот "пакет" можно было заменить на другой целиком... (не как папку)

Зарание прошу прощения за путаницу в вопросе.

Это сообщение отредактировал(а) Kirill89 - 4.12.2006, 00:23


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
mihanik
Дата 4.12.2006, 08:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Эта программа будет использоваться на каком-то конкретном компе, или "вообще"?
Если на конкретном компе, то сразу вопрос о файловай системе.

Если NTFS, то можно использовать альтернативные потоки данных.
Тогда всё это будет выглядеть в точности так же, как ты и описАл.

Смотреть З_Д_Е_С_Ь



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 4.12.2006, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Open "пакет/файл" For Input As #1
Input #1,  информация
информация = Decrypt(информация)
Close #1

где функцию Decrypt и комплементарную ей Encrypt можно строгать по своему разумению или пользовать любую доступную (скажем от PGP).


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 4.12.2006, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Akina, по-моему, ты не совсем прав...

Ему не требуется шифровать инфу.
Ему нужно чтобы инфа была разложена , как по полочкам, в разные части файла, и чтобы "из блокнота" эта информация была бы не видна.

Хотя идея с шифрованием, думаю, здесь может пригодиться!


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Kirill89
Дата 4.12.2006, 14:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
Шифрование я тоже использую, но речь не об этом. Оснавная задача такого "пакета" - удобная работа с несколькоми такими. Например: В папке 3 файла, что-бы user их обновил через и-нет или программу управления, он должен так или иначе работать со всеми 3-мя файлами. А если таких папок 100, то 3*100 и работа сильно усложняется... А "пакет"-простой способ решения такой задачи.

Ну, и может я ошибаюсь, но делают вед как-то *.exe, которые в себе несколько файлов содержат, и доступ вроде к ним есть c:\setup.exe/file.dll ? - может так как-то можно?


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
mihanik
Дата 4.12.2006, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Ага!

СТОП!!!

Давай вернёмся к началу smile 
Чтобы правильно и быстро решить вопрос, его нужно толково сформулировать.

Какую задачу ты сейчас решаешь, что задаёшь такой вопрос.
Может, можно будет как-то обойтись другими способами решения.

Сформулируй изначальную задачу поточнее!!!



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Kirill89
Дата 4.12.2006, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
Нужен файл в котором будет несколько других файлов. просто для простоты работы, прога со сменными "базами". Удалить одну, скопировать вторую... Нечто вроде архива без сжатия.

Это сообщение отредактировал(а) Kirill89 - 4.12.2006, 14:24


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
mihanik
Дата 4.12.2006, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Дык...
Тогда и используй файл БД.

Например, access...

Там в одном файле могут содержаться несколько таблиц с данными...

Не то что-то говорю?  smile 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Kirill89
Дата 4.12.2006, 14:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
Цитата(mihanik @ 4.12.2006,  14:29)
Тогда и используй файл БД.

в visual basic 6.0?


Я слышал что у fat'a есть пометка о том, является ли файл папкой. Может так как-нибудь?


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
mihanik
Дата 4.12.2006, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
А что?


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Kirill89
Дата 4.12.2006, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
А как?

Добавлено @ 14:41 
Цитата(mihanik @ 4.12.2006,  14:40)
Подключаешься к БД и работаешь.

И не важно, какой язык ты используешь.
В поиске найдёшь множество примеров подключения к БД...


Цитата(Kirill89 @  4.12.2006,  14:33 Найти цитируемый пост)
Я слышал что у fat'a есть пометка о том, является ли файл папкой. Может так как-нибудь? 

Не думаю, что это хорошая мысль...

1- ясно
2-почему?


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
mihanik
Дата 4.12.2006, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Подключаешься к БД и работаешь.

И не важно, какой язык ты используешь.
В поиске найдёшь множество примеров подключения к БД...


Цитата(Kirill89 @  4.12.2006,  14:33 Найти цитируемый пост)
Я слышал что у fat'a есть пометка о том, является ли файл папкой. Может так как-нибудь? 

Не думаю, что это хорошая мысль...


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 4.12.2006, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Где-то и у меня был примерчик...

Ща поищу...

Погодь минут 5...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Kirill89
Дата 4.12.2006, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
Цитата(mihanik @ 4.12.2006,  14:41)
Погодь минут 5...

Мне уходить к сожалению надо, вечером намишу.


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
mihanik
Дата 4.12.2006, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

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

     ' Подключаемся к базе данных по письмам
    strDBPath = GetSetting("Mihanik", "Outlook2003", "DBPath", "")
    strDBName = GetSetting("Mihanik", "Outlook2003", "DBFileName", "")
    strConnect = ";database=" & strDBPath & strDBName
    Set MyDB = OpenDatabase("", True, False, strConnect)
    Set MyRecordSet = MyDB.OpenRecordset("Respondents", dbOpenDynaset)

    ' Перебираем сегодняшние письма и при необходимости отсылаем письма по нужному адресу
    strCriteria = "[SentOn] >= " + CStr(CDbl(MyDate))
    
    While InStr(strCriteria, ",") <> 0
        Mid(strCriteria, InStr(strCriteria, ","), 1) = "."
    Wend
    
    MyRecordSet.FindFirst (strCriteria)
    
    Do While Not MyRecordSet.NoMatch
        If MyRecordSet.Fields("SentOnP1") = 36526 And MyRecordSet.Fields("EMail") <> "None" Then
            Set MyLetter = AllLetters.add
            MyLetter.HTMLBody = TextFromFile(GetSetting("Mihanik", "Outlook2003", "Pattern1", ""))
            MyLetter.To = MyRecordSet.Fields("EMail")
            MyLetter.Subject = "Answer_1 to " + MyRecordSet.Fields("IDNumber")
            MyLetter.Send
            MyRecordSet.Edit
            MyRecordSet.Fields("SentOnP1") = CDbl(Now())
            MyRecordSet.Update
        End If
        MyRecordSet.FindNext (strCriteria)
        If StopMyScript Then GoTo ending
    Loop


Это сообщение отредактировал(а) mihanik - 4.12.2006, 14:52


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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