Добавлено: Вт апр 29, 2025 20:01
Не проверял, так как понятно, что редрав здесь не при чем.Orion9 писал(а):Вы не проверяли предложенный код?
Мне кажется мы с вами запутались. Где я утверждаю, что что-то не работает? Работает и мой код из двух команд. Просто окно дергается, что естественно. И это отвратительно. А ваш код вообще дергается еще страшней. Ведь вы наставили задержек зачем-то. Ну и с учетом, что редрав здесь ничего не делает, еще и лишние команды. Или вы опять на ТС х32 проверяли?Orion9 писал(а):Всё работает, не выдумывайте
Ну вот у меня звук только когда я надеваю наушники слышен. И это очень редко происходит. Что мне даст озвучка? Собственно для меня приемлим единственный вариант, который мы обсудили. Это кнопка в Панели настроек. Не думаю, что эту фичу надо постоянно переключать. Так что нормальный вариант. Ну а так как пока у меня нет файла с несколькими дорожками и необходимость чтения данных из массива вызывает сомнения, пока я эту фичу не тестю дальше. Сейчас главное парсер переделать. Вроде там не трудно, но пока руки до него не дошли.Orion9 писал(а): Можно просто повесить озвучку
Если речь идет только об одной кодировке, которую плохо распознает uchardet, то может пригодится скрипт на vbs, подсмотренный мной у пользователей WinScriptsAdv?Orion9 писал(а): UTF16 без BOM он точно определяет
[cut]
Код: Выделить всё
'*** CheckEncoding, van Dusen, 31.07.2009
'*** Script for WinScriptAdv content plugin
'*** [=script.Result] ===> Character Encoding • Line Endings
'*** [=script.Result1] ===> Character Encoding {ASCII|ANSI|Binary|Unicode: UTF-8|Unicode: UTF-8 BOM|Unicode: UTF-[16|32] [LE|BE] BOM}
'*** [=script.Result2] ===> Line Endings {None|CRLF (Win)|LF (Unix)|CR (Mac)}
Dim oFSO, f
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set f = oFSO.OpenTextFile(filename, 1, False)
vFileContentIn = f.Read(1024)
'vFileContentIn = f.ReadAll
f.Close
Set f = Nothing
Set oFSO = Nothing
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Check Character Encoding
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
vEncoding = "?"
'Bytefolgen der BOM in verschiedenen Zeichenkodierungen
'Kodierung Bytefolge
'UTF-8 EF BB BF (239 187 191)
'UTF-16 Big Endian FE FF (254 255)
'UTF-16 Little Endian FF FE (255 254)
'UTF-32 Big Endian 00 00 FE FF (000 000 254 255)
'UTF-32 Little Endian FF FE 00 00 (255 254 000 000)
vBOM = Left(vFileContentIn, 2)
If vBOM = Chr(&HFF) & Chr(&HFE) Then vEncoding = "Unicode: UTF-16 LE BOM"
If vBOM = Chr(&HFE) & Chr(&HFF) Then vEncoding = "Unicode: UTF-16 BE BOM"
vBOM = Left(vFileContentIn, 3)
If vBOM = Chr(&HEF) & Chr(&HBB) & Chr(&HBF) Then vEncoding = "Unicode: UTF-8 BOM"
vBOM = Left(vFileContentIn, 4)
If vBOM = Chr(&H00) & Chr(&H00) & Chr(&HFE) & Chr(&HFF) Then vEncoding = "Unicode: UTF-32 BE BOM"
If vBOM = Chr(&HFF) & Chr(&HFE) & Chr(&H00) & Chr(&H00) Then vEncoding = "Unicode: UTF-32 LE BOM"
If vEncoding = "?" Then
Dim vRegExp
Set vRegExp = New RegExp
vRegExp.IgnoreCase = False
vRegExp.Global = True
vRegExp.Pattern = "[\x09-\x0D\x20-\x7E]"
vFileContentOt = vRegExp.Replace(vFileContentIn, "")
If vFileContentOt = "" Then
vEncoding = "ASCII"
Else
vEncoding = "Unicode: UTF-8"
For vI = 1 To Len(vFileContentIn)
vAsc = Asc(Mid(vFileContentIn, vI, 1))
vSubseqBytes = 0
'[\x00-\x7F] = 0xxxxxxx
If vAsc >= &H00 And vAsc <= &H7F Then
vSubseqBytes = 0
'[\xC0-\xDF][\x80-\xBF] = 110xxxxx 10xxxxxx
ElseIf vAsc >= &HC0 And vAsc <= &HDF Then
vSubseqBytes = 1
'[\xE0-\xEF][\x80-\xBF][\x80-\xBF] = 1110xxxx 10xxxxxx 10xxxxxx
ElseIf vAsc >= &HE0 And vAsc <= &HEF Then
vSubseqBytes = 2
'[\xF0-\xF7][\x80-\xBF][\x80-\xBF][\x80-\xBF] = 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
ElseIf vAsc >= &HF0 And vAsc <= &HF7 Then
vSubseqBytes = 3
Else
vSubseqBytes = 0
vEncoding = "?"
End If
If vI + vSubseqBytes > Len(vFileContentIn) Then Exit For
For vJ = 1 To vSubseqBytes
vI = vI + 1
vAsc = Asc(Mid(vFileContentIn, vI, 1))
If vAsc < &H80 Or vAsc > &HBF Then
vEncoding = "?"
Exit For
End If
Next
If vEncoding = "?" Then Exit For
Next
If vEncoding = "?" Then
vRegExp.Pattern = "[\x00-\x08\x0E-\x1F\x7F]" 'Control Chars
vFileContentOt = vRegExp.Replace(vFileContentIn, "")
If vFileContentIn = vFileContentOt Then
vEncoding = "ANSI"
Else
vEncoding = "Binary"
End If
End If
End If
End If
content1 = vEncoding
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Check Line Endings
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
vLineEndings = ""
vCR = ""
vLF = ""
Select Case vEncoding
Case "ASCII", "ANSI", "Unicode: UTF-8", "Unicode: UTF-8 BOM" '0D 0A
vCR = Chr(13)
vLF = Chr(10)
Case "Unicode: UTF-16 BE BOM" '00 0D 00 0A
vCR = Chr(00) & Chr(13)
vLF = Chr(00) & Chr(10)
Case "Unicode: UTF-16 LE BOM" '0D 00 0A 00
vCR = Chr(13) & Chr(00)
vLF = Chr(10) & Chr(00)
End Select
vCRLF = vCR & vLF
If vCRLF <> "" Then
vLineEndings = "None"
If InStr(1, vFileContentIn, vCRLF) > 0 Then
vLineEndings = "CRLF (Win)"
Else
If InStr(1, vFileContentIn, vCR) > 0 Then vLineEndings = "CR (Mac)"
If InStr(1, vFileContentIn, vLF) > 0 Then vLineEndings = "LF (Unix)"
End If
End If
content2 = vLineEndings
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Concatenation and Output Encoding & Line Endings
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
content = vEncoding
If vLineEndings <> "" Then
content = content & " " & ChrW(&H2022) & " " & vLineEndings
End If
Скрипт рабочий, проверял в свое время. Но не знаю, в тему-ли?
У нас-же всего 60 столбцов используется. Вроде хватает. У меня есть файл с очень длинным комментом, создаваемым автоматом какой-то прогой. И он вмещается. Так что на 60 отдельных 30 слитных столбцов хватает, хоть это и не так красиво.Orion9 писал(а):а там часто за сотню улетает
Интересно-же знать всю инфу, которая хранится в тэгах. Меня больше бесят пустые поля, которые болтаются в пользовательских колонках. Поэтому я хочу сделать так - есть набор с обязательными полями, а есть набор со всеми полями. Как-то так.Orion9 писал(а):Правда я не понимаю зачем вам выводить всё
Да не. Все имеющиеся команды работают именно с полями, а я хотел работать с заголовками. Так что просто буду выводить колонками описанными выше парами и все.Orion9 писал(а):может быть SetFieldsParam в этом поможет?
