Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
) В случаях ругани проще отдельно, навтыкав WScript.Echo, запустить скрипт и посмотреть, что и где.
Не факт. Выдать юникодные символы и обработать их, две большие разницы.Monarch-LFV писал(а):Вообще-то я делал скрипт для winscriptADV, который выдавал мне в строку все юникодные символы в имени файлов и папок, и все работало. Так что поддерживает Юникод.
И что? Есть множество способов создать такой файл.Monarch-LFV писал(а):А я все-таки не понял имя файла, кавычки не поддерживаются файловой системой
Там какой-то символ в виде двойных кавычек. Но если скопировать имя файла, вставить в АкельПад и попытаться сохранить в 1251, он говорит, что символ будет потерян.Monarch-LFV писал(а):по вашему примеру непонятно. Там елочки?
Что я хочу вывести и каким скриптом, я выкладывал. Но так как это никому не нужно, я это удалил.Monarch-LFV писал(а):И что вы хотите вывести и каким скриптом?
Давайте не будем общаться загадками, я не помню что вы писали, а в последствии удалили. Если ждете каких-то советов, то может быть стоит давать конструктивные ответы?AkulaBig писал(а):Что я хочу вывести и каким скриптом, я выкладывал. Но так как это никому не нужно, я это удалил.
Попробую позже, сейчас не за компьютером.Там какой-то символ в виде двойных кавычек. Но если скопировать имя файла, вставить в АкельПад и попытаться сохранить в 1251, он говорит, что символ будет потерян.
Код: Выделить всё
' Script for WinScriptAdv content plugin
' Показывает юникодные символы (не ANSI) в полном пути к файлу/папке
on error resume next
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "[^\x00-\x7F\u0400-\u0451\u2116]"
objRegEx.Global = True
Set Matches = objRegEx.Execute(filename)
For Each Item In Matches
text=text & Item.Value
Next
content=textКод: Выделить всё
[Unicode_In_Fullpath]
; Показывает юникодные символы (не ANSI) в полном пути к файлу/папке
Script=Unicode_In_Fullpath.vbs
content=юникодные символы в полном пути к файлу/папке
extensions=*
FoldersPaths=1А как вывести несколько результатов? Просто перечислить их в ConsoleWrite через запятую?Skif_off писал(а):Если скрипт AutoIt запускать из vbs-скрипта, то первый должен читать имя файла из $CmdLine[1] и писать результат в ConsoleWrite
Безусловно, это было громкое утверждение с моей стороны, что плуг не поддерживает юникодЯ вам уже говорил, с юникодными именами файлов у плагина winscriptADV проблем нет. У меня много скриптов с ним работает.
Надо было быть точнее и говорить только о своей проблеме, которую я описывал пару страниц назад, а не за весь плагин, не разобравшись.Код: Выделить всё
[GetDrive]
Script=GetDrive.vbs
content=DriveName
content1=DriveType
content2=FileName
extensions=*
FoldersPaths=0
Код: Выделить всё
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
content = fs.GetDriveName(filename)
content1 = DriveType(content)
content2 = filename
Function DriveType(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(drvpath)
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
DriveType = t
End Function
set fs=nothingПо факту ее нет. Вместо этого создается временный файл WinScriptAdvFile_.ahk в формате ANSI, в котором, соответственно, юникодное имя файла ichel Teló - Ai Se Eu Te Pego.mp4 теряется и становится обычным ANSI именем Michel Telo - Ai Se Eu Te Pego.mp4, в результате чего файл не может быть найден и обработан скриптом.WinScriptAdv sends to global variable 'filename' (fixed name for all scripts and engines) a full path (long, unicode) to the file
