Страница 2 из 42

Добавлено: Чт авг 24, 2006 11:21
D1P
Batya писал(а):fa1con
Странно. У меня даже в сети все нормально передается.

Может кто-нибудь из специалистов по сетям скажет, почему такое может быть?
http://tckb.mega-byte.info/content/view/568/27/

Эту траблу (перекодировку кириллических имён в кракозябрические) при работе со скриптами встречал неоднократно. При переключении раскладки - всё путём.

Добавлено: Чт авг 24, 2006 11:54
Batya
D1P писал(а):http://tckb.mega-byte.info/content/view/568/27/

Эту траблу (перекодировку кириллических имён в кракозябрические) при работе со скриптами встречал неоднократно. При переключении раскладки - всё путём.
У меня соответствующий ключ в реестре изменен с незапамятных времен.
Однако, я думаю, что здесь другой случай, т.к. обычно проблемы возникают с функцией SendKeys, а здесь она не используется.
Вообщем, обращение к fa1con - есть ли разница при смене кодировки и если изменить ключ реестра, как указано по ссылке?

Добавлено: Чт авг 24, 2006 15:18
Volniy
fa1con писал(а):Именно так: имя ресурса «рисунки» как «@8AC=:8», а каталог кириллицей нормально.
«@8AC=:8» это неверный перевод в ANSI-строку кириллической Unicode строки "рисунки" ( 0x40043804410443043D043A043804) как Latine Unicode, тоесть так как будто бы это изначально было 0x40003800410043003D003A003800. Известный глюк XP, заметный при копировании кириллицы через буфер обмена.

Добавлено: Чт авг 24, 2006 15:31
funduk
Этот глюк что, только и заключается в том, что 04 считается как 00?

Добавлено: Чт авг 24, 2006 15:39
CaptainFlint
funduk писал(а):Этот глюк что, только и заключается в том, что 04 считается как 00?
Я тут достаточно подробно описал, в чём состоит глюк. :)

Добавлено: Чт авг 24, 2006 17:53
fa1con
Ничего не меняется ни при переключении раскладки, ни при изменении кодовой страницы. Но заметил одну интересную вещь: если писать

cd \\ip\
выдает
\\10.0.255.26\@8AC=:8\Рисунки\WAR\01.jpg

а если
cd \\compname\
-
\\compname\ 8AC=:8\Рисунки\WAR\01.jpg

2Batja
Можешь переделать скрипт так, что б обои выбирались также с учётом подкаталогов в случаи, если файл берётся из MyPictures. Если не трудно.

Помогите, нужен скрипт

Добавлено: Вт авг 29, 2006 18:21
StasK
Нужен скрипт для копирования всех файлов из одной определенной папки в другую, с учетом времени создания файла, т.е. если дата создания файла меньше указанной, то копируем.

Обрабатывать нужно и вложенные папки тоже.

спасибо !

Добавлено: Вт авг 29, 2006 18:32
Batya
StasK
А чем не устраивает сначала воспользоваться поиском с учетом даты, а потом найденные скопировать?

Добавлено: Вт авг 29, 2006 18:36
StasK
не устраивает то, что файлов на ~9Гб (размер одного файла ~100 КБ) и вложенных папок около 300 шт. Делать это ручками не радует :(

Добавлено: Вт авг 29, 2006 18:42
Batya
StasK
Не понял. Что делать ручками?
Alt+F7 -> Закладка "Дополнительно" -> "Не старше" или "Дата между" ... -> Начать поиск -> Файлы на панель -> Num * -> F5

Добавлено: Вт авг 29, 2006 18:49
StasK
спасибо, но хотелось бы просто запустить скрипт и забыть :)

Добавлено: Вт авг 29, 2006 18:51
Batya
StasK
Ты можешь создать соответвствующий шаблон.
Используй его и забудь :)

Добавлено: Вт авг 29, 2006 18:53
StasK
спасибо, так и сделаю !

Добавлено: Ср авг 30, 2006 16:26
Zorroz
При сохранении html странички Firefox’ом получается например: Сталин И.В. биография.htm и Сталин И.В. биография_files. Нужно при выделении файла html и нажатии кнопки на панели инструментов копировать/переместить и файл и папку. Такое возможно сделать с помощью скрипта?

Добавлено: Чт авг 31, 2006 11:53
Batya
Zorroz писал(а):Такое возможно сделать с помощью скрипта?
Легко:

Код: Выделить всё

'==========================================================================
' Копирование выделенных файлов с соответствующими им (для *.html) папками
'
' Параметры вызова из TC:
' %L "%T"
'==========================================================================

Dim FSO, Fld, OTF, Rln
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)

Do While Not OTF.AtEndOfStream
  Rln = OTF.ReadLine
  If FSO.FileExists(Rln) Then
    FSO.CopyFile Rln, WScript.Arguments(1)
    Fld = FSO.GetBaseName(Rln) & "_files"
    If FSO.FolderExists(Fld) Then
      FSO.CopyFolder Fld, WScript.Arguments(1)
    End If
  ElseIf FSO.FolderExists(Rln) Then
    FSO.CopyFolder Rln, WScript.Arguments(1)
  End If
Loop

Set OTF = Nothing
Set FSO = Nothing
WScript.Quit
Но это можно сделать и с помощью TC. Для этого надо установить способ копирования проводником.

Кстати, может по этому поводу кто-нибудь запостит реквест Гислеру - сделать отдельную команду (типа cm_Copy) для копирования проводником (чтобы не переключать при необходимости режимы копирования)?