View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 25, 2011 00:44 Post subject: |
|
|
JKT
Ещё раз: в блокноте в содержании скрипта кракозябр нет? |
|
Back to top |
|
|
JKT
Joined: 22 Sep 2009 Posts: 116 Location: Харьков
|
(Separately) Posted: Tue Oct 25, 2011 00:45 Post subject: |
|
|
ведь все отображается нормально и русские названия в самом теле хтм, а вот заголовок и само имя файла кракозябрами |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 25, 2011 00:47 Post subject: |
|
|
JKT wrote: | и русские названия в самом теле | В строках 21, 27 всё ОК, верно? |
|
Back to top |
|
|
JKT
Joined: 22 Sep 2009 Posts: 116 Location: Харьков
|
(Separately) Posted: Tue Oct 25, 2011 00:58 Post subject: |
|
|
Flasher
вот копирнул как у меня в блокноте (не с твоего а уже как у меня)
как видишь, никаких кракозябр нету. Сам в апупении, почему такое
Last edited by JKT on Tue Oct 25, 2011 02:12; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 25, 2011 01:12 Post subject: |
|
|
JKT
Не надо дублировать, убери код, верю.
Если выполнить (можно из панели) такой скрипт
Code: | CD = CreateObject("WScript.Shell").CurrentDirectory & "\"
List = Chr(241)&Chr(239)&Chr(232)&Chr(241)&Chr(238)&Chr(234)
CreateObject("Scripting.FileSystemObject").OpenTextFile(CD & List & ".html", 2, True, -1).Write List | , в папке со скриптом созданный файл с кракозябрами будет?
Если да, то у меня для твоего случая нет других мыслей кроме как заменить на латиницу.
Убери то, что красным:
Quote: | For Each F in Split(.OpenTextFile(List,,,-1).ReadAll, L)
....
.OpenTextFile(TDir & "Список_файлов.html", 2, True, -1).Write "<head>" &_ |
И замени "Ссылки на файлы" на что-то своё, например, "Links to files". |
|
Back to top |
|
|
JKT
Joined: 22 Sep 2009 Posts: 116 Location: Харьков
|
(Separately) Posted: Tue Oct 25, 2011 02:32 Post subject: |
|
|
Flasher
все поменял
опять эта ошибку (выше) чето первы символ в первой строке
Добавлено спустя 12 минут:
опять та-же ошибка
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Portable Soft\TCPU\scripts\q.vbs
Строка: 1
Символ: 1
Ошибка: Недопустимый знак
Код: 800A0408
Источник: Ошибка компиляции Microsoft VBScript
---------------------------
ОК
---------------------------
Ну извиняй, может если есть интерес завтра продолжим? щас чесно говоря спать надо. на работу завтра. Всеравно ниче путного в голову не идет, а завтра може кто подскажет и натолкнет, из-за чего сия нарисовывается.
Спасибо за участие.
Добавлено спустя 3 минуты:
Пробелы в строке запуска не могут влиять?
Добавлено спустя 6 минут:
Просто, ребята, я пользуюсь примерно 10 скриптами с вашего форума, и никогда никаких проблем небыло. Никаких кракозябров и т.п. Просто тупо копировал, переименовывал в vbs, печатал параметры в кнопке и все дела. А тут....
Last edited by JKT on Tue Oct 25, 2011 20:53; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 25, 2011 03:44 Post subject: |
|
|
Да не надо весь код сюда кидать. Просто внимательно смотри на текст для замены.
Сразу видно, что не то заменил: Flasher wrote: | И замени "Ссылки на файлы" на что-то своё, например, "Links to files". | См. 27-ю строку, а не 21-ю.
JKT wrote: | Символ: 1
Ошибка: Недопустимый знак | Банально мог не скопировать комментирующий апостроф в первой строке. Хотя, думается, опять в UTF-8 вместо Юникода сохраняешь.
JKT wrote: | Просто, ребята, я пользуюсь примерно 10 скриптами с вашего форума, и никогда никаких проблем небыло. Никаких кракозябров и т.п. Просто тупо копировал, переименовывал в vbs, печатал параметры в кнопке и все дела. А тут.... | Я могу привести ещё ряд здешних скриптов, с которыми у тебя будут те же грабли. Это частная проблема.
И что насчёт скрипта, который я предложил протестировать?
Last edited by Flasher on Tue Oct 25, 2011 20:37; edited 1 time in total |
|
Back to top |
|
|
JKT
Joined: 22 Sep 2009 Posts: 116 Location: Харьков
|
(Separately) Posted: Tue Oct 25, 2011 04:02 Post subject: |
|
|
Flasher
Давай завтра. Чесно уже мозги не варят. Мне самому интересноо почему, вроде у вас получается, а у меня ерунда. Но, просто я спать.
Строчки перепутал. Может. Всем спок. Я во второй половине по нерезиновой буду. На свежую голову. Внатуре, щас чето, возможно напутал или недопонял. Еще раз Спасибо |
|
Back to top |
|
|
JKT
Joined: 22 Sep 2009 Posts: 116 Location: Харьков
|
(Separately) Posted: Tue Oct 25, 2011 10:33 Post subject: |
|
|
как-быц воспроизвести сие?. Уже грешу на менеджер буфера обмена (хотя никаких косяков за пару лет, что его использую не было) у меня CLCL
часа через 4 прийду и поновой со свежей головой попробую и заменить те строчки и все такое. |
|
Back to top |
|
|
cojoc
Joined: 04 Sep 2009 Posts: 144
|
(Separately) Posted: Tue Oct 25, 2011 20:06 Post subject: |
|
|
У меня всё сработало говоря словами Зохана "Афигенски!", даже с иероглифами и спец. французскими буквами, с названием html-файла и заголовком проблем нет - всё отображается корректно. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 25, 2011 20:22 Post subject: |
|
|
cojoc, спасибо за участие. |
|
Back to top |
|
|
JKT
Joined: 22 Sep 2009 Posts: 116 Location: Харьков
|
(Separately) Posted: Tue Oct 25, 2011 20:41 Post subject: |
|
|
Flasher, Андрей-А
Большое спасиб. Короче заменил ту строку ( 27) - все нормально заработало. Вот что значит на свежую голову, а то я вас всех вчера озадачил. Большое Вам всем спасибо. И по русишу название файла получается, и в заголовке норм.
Flasher
никаких True, -1 , List,,,-1) неменял. просто в контейнере <> поменял имя . Вообщем понятно. Этот мой гаденыш нотепад++ сохранял в черт-знает-чем. Я проконтролил - сохранил в юникоде. Все проблемы сняты. Всем СПАСИБО. Все работает и без кракозябрав.
Last edited by JKT on Tue Oct 25, 2011 20:51; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 25, 2011 20:48 Post subject: |
|
|
JKT
У меня пару вопросов:
1. Файл vbs в Юникод ( UTF-16 LE, а не UTF-8 ), как было предложено, сохранять исходник пробовал?
2. Каков итог проверочного скрипта? Уже второй раз спрашиваю.
Да, и дубликат надо бы убрать. |
|
Back to top |
|
|
JKT
Joined: 22 Sep 2009 Posts: 116 Location: Харьков
|
(Separately) Posted: Tue Oct 25, 2011 20:56 Post subject: |
|
|
Flasher
дубль убрал.
А что все ОКИ выше написал
2. UTF-8- сохранил- полет нормальный- все работает, кракозябров нету и имя файла тоже на могучем
Спасибо камрады за помощь! |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 25, 2011 20:58 Post subject: |
|
|
JKT wrote: | Этот мой гаденыш нотепад++ сохранял в черт-знает-чем. | Мы же изначально встроенный системный блокнот обсуждали. Тогда нужно было бы проверить, может, notepad++ изначально не в ANSI сохранял и строку 27 править не имело смысла? Сейчас меня интересует именно исходный заголовок. Он должен тоже корректно отображаться. |
|
Back to top |
|
|
|