|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.12.2019, 22:43 | #11 |
Пользователь
Регистрация: 08.12.2019
Сообщений: 63
|
пробую
kvitaliy, смотрите в text такой 16-ричный код :31,32,36,2d,39,37,31,2d,33,37,38, но все равно выбивает ошибку попробуйте! вот сам код: dim my_str, my_arr, index, list Set FSO = CreateObject("Scripting.FileSystemO bject") Set f = FSO.OpenTextFile("C:\Users\Админ\Do wnloads\txt", 1) ( В TXT СОДЕРЖИТ ТАКОЙ КОД : 31,32,36,2d,39,37,31,2d,33,37,38, НО ВСЕ РАВНО ВЫДАЕТ ОШИБКУ. В ПЕРВОМ ВАРИАНТЕ ОН СРАЗУ ОТОБРАЖАЛ ПРАВИЛЬНО, НО НЕ СОХРАНЯЛ РЕЗУЛЬТАТ В TXT ! Do While Not f.AtEndOfStream my_arr = split( f.ReadLine, ",") for each index in my_arr strn = "&H" & index list = list & CHR ( strn ) next list = list & vbCrLf Loop f.Close Set f1 = fso.CreateTextFile("C:\Users\Админ\ Desktop\txt1", True) f1.Write (list) f1.Close MsgBox "Ok!" On Error Resume Next в чем загвоздка? сам этот код : On Error Resume Next проигнорировал ошибку и создал txt файл но она пустая. без информации!! |
08.12.2019, 23:27 | #12 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
Значит неверный путь к исходному фалу.
"C:\Users\Админ\Do wnloads\txt Почему пробел в Do wnloads? У меня нет такой папки, с пробелом, только Downloads. Попробуй записать покороче, на диск С "C:\text.txt" например Код проверен, точно работает |
08.12.2019, 23:32 | #13 |
Пользователь
Регистрация: 08.12.2019
Сообщений: 63
|
kvitaliy, а как расшифровать из множество 16-ричного кода только определенный кусок кода?? скажем которая состоит из 9 цифр?
К примеру в текстовом файле 16-ричный код но все расшифровать не нужно а именно вот такой код: 31,32,36,2d,39,37,31,2d,33,37,38, а лишний пропускать!!! kvitaliy, сделал как ты и сказал все заработало, НО мне весь код расшифровывать не нужно, а лишь определенный код которые состоит из 9 цифр пример:31,32,36,2d,39,37,31,2d,33,3 7,38, то-есть в txt много разных 16-ричных кодов..... оттуда нужно выбрать для расшифровки только определенный кусок кода который состоит только из 9 цифр. |
09.12.2019, 07:52 | #14 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
Без примера реального файла как я скажу?
Если этот код всегда в одном и том же месте, то можно. |
09.12.2019, 08:42 | #15 |
Пользователь
Регистрация: 08.12.2019
Сообщений: 63
|
kvitaliy, да всегда в одном и том же месте появляется.
|
09.12.2019, 08:45 | #16 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
|
09.12.2019, 08:46 | #17 |
Пользователь
Регистрация: 08.12.2019
Сообщений: 63
|
на девятой строчке появляется всегда таково рода кода: 35,32,36,2d,32,38,37,2d,38,31,39,
Но код всегда разный пример: 35,32,36,2d,32,38,37,2d,38,31,39, 55,72,36,2d,37,38,37,2d,37,31,38, 75,55,35,2d,32,38,38,2d,38,31,29, сам текст выглядит так: --------------------------------------------------------- ------------------------------------------------------- ---------------------------------------------------------- ---------------------------------------------------------- ---------------------------------------------------------- 65,6e,63,6f,64,69,6e,67,3d,22,55,54 ,46,2d,38,22,3f,3e,0d,0a,3c,72,6d,7 3,5f,\ 69,6e,74,65,72,6e,65,74,5f,69,64,5f ,73,65,74,74,69,6e,67,73,20,76,65,7 2,73,\ 69,6f,6e,3d,22,36,33,30,30,36,22,3e ,3c,69,6e,74,65,72,6e,65,74,5f,69,6 4,3e,\ (35,32,36,2d,32,38,37,2d,38,31,39,) сам код 9 строчка а дальше бла бла бла 3c,2f,69,6e,74,65,72,6e,65,74,5f,69 ,64,3e,\ kvitaliy, могу весь код скинуть сюда? |
09.12.2019, 10:00 | #18 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
Ну вот смотри, так мы читаем только 9-ю линию
Код:
Если есть пустые строки в файле в первых 9, то ОНИ тоже считаются! Надо будет увеличить счетчик с 9 на кол-во пустых строк вот тут For i = 1 to 9 |
09.12.2019, 10:05 | #19 |
Участник клуба
Регистрация: 17.05.2011
Сообщений: 1,660
|
Но лучше запакуй реальный файл в архив и выложи тут.
Тогда сделаю точно, а так непонятно. |
09.12.2019, 10:11 | #20 |
Пользователь
Регистрация: 08.12.2019
Сообщений: 63
|
все ок
Последний раз редактировалось adninistraotr; 10.12.2019 в 10:05. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите выполнить задание с расшифровкой результатов | Skill12 | Помощь студентам | 0 | 28.04.2019 19:56 |
Помогите с расшифровкой | belkakrohka | Безопасность, Шифрование | 1 | 23.11.2016 22:22 |
мой сайт взломали и в коды скриптов добавили вот этот скрипт. Что за скрипт? | nsbox | JavaScript, Ajax | 9 | 21.01.2010 18:19 |
Помогите с расшифровкой | nec117 | Общие вопросы C/C++ | 1 | 05.12.2009 00:20 |
Помогите с расшифровкой. | nec117 | Безопасность, Шифрование | 0 | 04.12.2009 23:58 |