Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 24.09.2013
Сообщений: 32

Зашифровать или спрятать txt файлы

25.05.2019, 09:16. Показов 1938. Ответов 6

Студворк — интернет-сервис помощи студентам
Всем доброго времени суток!
Ребята, есть такая проблемка. Создал переводчиков текстов. Словарь программы находится в папке, в которой расположены несколько текстовых файлов (из них и состоит словарь). При первом запуске программы текстовые файлы загружаются каждый в свой ListView и затем при переводе текста идёт запрос к этим ListView и осуществляется перевод. Всё прекрасно, кроме одного. При установке программы на компьютер пользователя эта папка получается доступной. Пользователь может её открыть и вносить изменения в txt файлы. Нужно её сделать не доступной, либо спрятать txt файлы в теле программы. Когда создаю txt файлы в теле программы, затем всё равно приходится их ещё раз помещать в установочный файл, иначе они становятся недоступными.
Программирую в Visual Studio 2010 на бейсике.
Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.05.2019, 09:16
Ответы с готовыми решениями:

Как конвертировать файлы PDF в TXT или HTML на CBuilder или VB6?
Привет! Столкнулся с такой проблемой, жутко нкждаюсь в помощи. Нужно конвертировать файлы PDF в TXT или HTML. Делаю вид, что работаю на...

Разбить входной файл, например: xatadu.txt на 2 выходные файлы:1.txt и 2.txt , записав в 1 нечетные байты, а в 2 четные
Разбить входной файл, например: xatadu.txt на 2 выходные файлы:1.txt и 2.txt , записав в 1 нечетные байты, а в 2 четные. И записать...

Как записывать результат в отдельные файлы: txt или json ?
Приветствую Всех! Мало знаю о языке JavaScript. В программирование совсем ещё зеленый новичок. Не давно нашел на ГитХабе открытый код...

6
Модератор
Эксперт .NET
 Аватар для Yury Komar
4358 / 3428 / 512
Регистрация: 27.01.2014
Сообщений: 6,258
25.05.2019, 09:31
ну добавьте файлы в ресурсы вашего EXE...

Проект->Свойства
0
0 / 0 / 0
Регистрация: 24.09.2013
Сообщений: 32
25.05.2019, 10:58  [ТС]
Спасибо! Попробую этот вариант.

Добавлено через 1 час 6 минут
Что то путь к ресурсу не могу задать. За основу взял этот код:

VB.NET
1
Dim ResPath As String = IO.Path.Combine(Application.StartupPath, "Resources")
У меня в Resources находится текстовый файл TextFile1.txt

Пробую так:
VB.NET
1
Dim Чтение_TextFile1 As New System.IO.StreamReader(Application.StartupPath, "Resources \ TextFile1.txt")
Но не выдаёт ошибку.

Добавлено через 17 минут
Верней выдаёт ошибку))
0
1548 / 1521 / 325
Регистрация: 03.10.2012
Сообщений: 1,551
25.05.2019, 11:18
Ierihon, попробуйте так
VB.NET
1
Dim Чтение_TextFile1 = My.Resources.ResourceManager.GetStream("TextFile1")
Добавлено через 12 минут
или так
VB.NET
1
2
Dim Чтение_TextFile1 = CType(My.Resources.ResourceManager.GetObject("TextFile1"), String)
MsgBox(Чтение_TextFile1)
0
0 / 0 / 0
Регистрация: 24.09.2013
Сообщений: 32
25.05.2019, 11:25  [ТС]
Вот весь код. Тхт файл должен загрузиться в ListView1. Все эти строки "Чтение_TextFile1" подчеркивает синим. Не нравится ему))


VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        'Очищаем список:
        Do Until ListView1.Items.Count = 0   'Удаляй по элементу, пока элементов не останется
            ListView1.Items(0).Remove()   'Индекс 0 потому, что при удалении элементы списка сдвигаются вверх
        Loop
        'Загружаем список. System.Text.Encoding.GetEncoding(1251) используется чтобы читалась латиница
        Dim Чтение_TextFile1 = CType(My.Resources.ResourceManager.GetObject("TextFile1"), String)
        i = 0
        Do While Чтение_TextFile1.Peek() <> -1
            'Добавляем в список очередную строку и одновременно заполняем ее первый столбец:
            ListView1.Items.Add(Чтение_TextFile1.ReadLine)
            ListView1.Items(i).SubItems.Add(Чтение_TextFile1.ReadLine) 'Заполняем второй столбец очередной строки
            ListView1.Items(i).SubItems.Add(Чтение_TextFile1.ReadLine) 'Заполняем третий столбец очередной строки
            i = i + 1
        Loop
        Чтение_TextFile1.Close()
    End Sub
0
1548 / 1521 / 325
Регистрация: 03.10.2012
Сообщений: 1,551
25.05.2019, 11:42
Лучший ответ Сообщение было отмечено Ierihon как решение

Решение

Цитата Сообщение от Ierihon Посмотреть сообщение
Не нравится ему))
Ну конечно не нравится, ведь в моём примере Чтение_TextFile1 - это строка, а вы пытаетесь её использовать как ридер

Добавлено через 7 минут
VB.NET
1
2
3
4
5
6
7
8
9
10
Dim Чтение_TextFile1 = CType(My.Resources.ResourceManager.GetObject("TextFile1"), String)
        Dim reader As New IO.StringReader(Чтение_TextFile1)
 
        Do While reader.Peek() <> -1
            'Добавляем в список очередную строку и одновременно заполняем ее первый столбец:
            ListView1.Items.Add(reader.ReadLine)
            ListView1.Items(i).SubItems.Add(reader.ReadLine) 'Заполняем второй столбец очередной строки
            ListView1.Items(i).SubItems.Add(reader.ReadLine) 'Заполняем третий столбец очередной строки
            i = i + 1
        Loop
2
0 / 0 / 0
Регистрация: 24.09.2013
Сообщений: 32
25.05.2019, 12:08  [ТС]
Спасибо большое! Всё заработало! Вы очень помогли.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.05.2019, 12:08
Помогаю со студенческими работами здесь

Спрятать файл robots.txt
Как он это сделал http://*******************/robots.txt ? Файл не пустой. Если открыть страницу с помощью curl_init() выдает ошибку 405...

Откуда быстрее чтение больших запросов, из MySQL или из txt файлы?
Всем привет. У меня сложился такой вопрос: откуда быстрее чтение больших запросов, из MySQL или из txt файлы?

Сколько различных символов Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt
Ограничение по времени, сек 2 Ограничение по памяти, мегабайт 64 Напишите программу, которая определяет количество различных...

Переместить все файлы, имеющие расширение .doc или .txt и размер не меньше 50 кб, в заданный каталог
Переместить все файлы, имеющие расширение.doc или.txt, и размер, не меньше 50 кб, в каталог. Имя которого вводится с клавиатуры. Помогите.

IdEncoderXXE1 как зашифровать .txt
Как с помощью IdEncoderXXE1 и IdDecoderXXE1 Зашифровать и расшифровать текстовый документ который где то лежит


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru