В последующих уточнениях вы не упоминали ни версию используемого интерпретатора, ни указанную в файле whatis_intro_cb.htm кодировку.
Я вроде уточнял, что HTML-файл ансишный, а версия последняя, само собой.
«Забудем» после вопросительного предложения не к месту
Но после риторического — в самый раз. Но забудем 
.
Откажусь. Код из второго сообщения у меня на wind xp работает как и предполагается. Почему у вас «не работает» — вы не говорите.
В смысле кириллицу демонстрирует?
Если так, то дело в другом. Спасибо.
То есть, надежда [..] всё же есть
Надежда на прочих посетителей форума.
]]>
.StrPut returns the number of characters written, the required buffer size in characters if no Address was given, or 0 if an error occurred. If Length is less than the length of the source string, the function fails and returns 0. If Length is exactly the length of the source string, the string is not null-terminated; otherwise the returned count includes the null-terminator.
Вы ищете строку <title> в chck. chck в лучшем случае содержит число.
Где здесь ошибка закралась?
Нет здесь ошибок, просто случайный набор команд обрабатывает разнообразные строки и возвращает разнообразные результаты. Код написан с использованием паттерна «корабль в бутылке».
]]>
#SingleInstance Force
fPath = C:\WINDOWS\Help\clipbrd.chm ; Путь для XP
URL := "mk:@MSITStore:" fPath "::/whatis_intro_cb.htm"
req := ComObjCreate("Msxml2.XMLHTTP.6.0")
req.open("GET", URL, 0)
req.send
ResponseText := req.responseText
req := ""
chck := StrPutVar(ResponseText,ResponseText,"CP1251")
MsgBox, % RegExReplace(chck, "s).*?<title>(.*)?</title>.*", "$1")
StrPutVar(string, ByRef var, encoding)
{
; Ensure capacity.
VarSetCapacity( var, StrPut(string, encoding)
; StrPut returns char count, but VarSetCapacity needs bytes.
* ((encoding="utf-16"||encoding="cp1200") ? 2 : 1) )
; Copy or convert the string.
return StrPut(string, &var, encoding)
}
fPath = C:\WINDOWS\Help\clipbrd.chm ; Путь для XP
URL := "mk:@MSITStore:" fPath "::/whatis_intro_cb.htm"
req := ComObjCreate("Msxml2.XMLHTTP.6.0")
req.open("GET", URL, 0)
req.send
ResponseText := req.responseText
req := ""
strget(&ResponseText, "CP1251")
MsgBox, % RegExReplace(ResponseText, "s).*?<title>(.*)?</title>.*", "$1")Неа, не катит. Ведь говорил, затрудняюсь.
]]>Странно что нигде готового кода нет, ни у нас, ни там.
Кажется, вы ищете «то, не знаю что».
]]>