Гость - это я.

; - служит для показа сразу нескольких расширений

[b]Tad[/b], ей-богу, работает ";"[code:1]Add(Button,770185,175,119) {
Left=15
Top=230
link(onClick,2168626:doExecute,[])
}
Add(ListBox,15672834,343,119)
{
Left=15
Top=10
Width=345
Height=210
}
Add(ODialog,2168626,238,119)
{
Filter="Word, Excel (*.doc, *.xls)|*.doc;*.xls"
link(onExecute,15672834:doAdd,[])
}
[/code:1], может чуть не так изобразили? :)

Кстати по теме: никак не могу от этого словаря избавится, застрял в голове и всё тут; последний вариант работает за считанные секунды, но хочется пристегнуть и Word-овские файлы, а в VBJScript ( на VB) файлы для чтения не желают открываться, кто поможет?

[code:1]Add(MainForm,16078593,35,77) {
Left=20
Top=105
Caption="word"
}
Add(ODialog,16073511,140,126)
{
Filter="*.doc|*.doc|All|*.*"
link(onExecute,11221787:doEvent1,[])
}
Add(VBJScript,7134762,231,154)
{
@Hint=#18:Read Word Document|
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|6:onWord|7:onError|
Script=#15:Option Explicit|7:Dim FSO|27:Function doWork(Data,Index)|10: Dim strIn|19: strIn = CStr(Data)|53: Set FSO = CreateObject("Scripting.FileSystemObject")|8: Dim Ext|28: Ext = GetAnExtension(strIn)|28: If LCase(Ext) <> "doc" Then|19: Sys.onEvent strIn|5: Else|9: Dim WRD|44: Set WRD = CreateObject("WORD.Application")|21: WRD.Visible = False|26: WRD.Documents.Open strIn|31: WRD.Documents(strIn).Activate|12: Dim strOut|13: strOut = ""|20: Dim myRange, aWord|42: Set myRange = WRD.ActiveDocument.Content|33: For Each aWord In myRange.Words|31: strOut = Strout & aWord.Text|6: Next|10: WRD.Quit|19: Set WRD = Nothing|19: Sys.onWord strOut|7: End If|12:End Function|0:|33:Function GetAnExtension(FileSpec)|23: On Error Resume Next|50: GetAnExtension = FSO.GetExtensionName(FileSpec)|100: If CStr(Err.Number) <> 0 Then call LogMsg(EventError, "Can't get extension of file: " & FileSpec)|12:End Function|0:|27:Sub LogMsg(intType, strMsg)|37: Sys.onError strMsg & ";" & intType|7:End Sub|0:|
link(onWord,2115300:doText,[])
}
Add(ChildPanel,735914,98,126)
{
link(onEvent1,16073511:doExecute,[])
}
BEGIN_SDK
Add(EditMulti,12180049,3,3)
{
EventCount=1
Width=132
Height=116
}
Add(Panel,1112578,28,63)
{
Left=35
Top=105
Width=322
Height=33
Align=2
Point(doColor)
}
Add(Button,11007171,63,21)
{
Left=10
Top=5
Caption="Load"
link(onClick,12180049:onEvent1,[])
}
END_SDK
Add(StrList,2115300,280,140)
{
}
Add(ArrayEnum,4419120,294,196)
{
link(onItem,8415777:doAdd,[])
link(Array,2115300:Array,[])
}
Add(StringTable,8415777,343,196)
{
Width=392
Height=273
Align=5
Columns=#5:Words|
Grid=0
}
Add(Hub,11221787,182,126)
{
OutCount=4
link(onEvent1,2115300:doClear,[(269,132)(269,153)])
link(onEvent2,8415777:doClear,[(334,139)(334,209)])
link(onEvent3,7134762:doWork,[(224,146)(224,160)])
link(onEvent4,4419120:doEnum,[(218,153)(218,202)])
}
[/code:1]

Nic, спасибо, а я пытался открыть Word-овские файлы для посимвольного чтения не открывая сам Word, теперь всё получится, ещё раз спасибо!

для красоты вставил пробелы. Без пробелов все ОК. Второй раз наступаю на эти грабли (хорошо что грабли не детские )

Всё, выложил в Upload (что-то с первой страницей Upload непорядок) последнюю и окончательную версию программки для пополнения словаря. Спасибо всем коллегам, помогавшим в этой работе!

ну это врядли, что Находит даже такие слова которых нет в текстах:
(слова с буквой "б" не копировал, т.к. очень нехорошие получаются ). И еще есть текстовые файлы с расширениями "htm, lst" и др.
Да, слова на "ё" идут первыми в выходном файле, т.е. несортируются.

Леонид, вдогонку...
1. А как извлечь слова из отдельного файла?
2. Имел неосторожность задать папку в которой более 800 файлов *.html. Через 2 часа пришлось прервать процесс.
3. Загрузка процессора 100%. Эффект такой будто комп завис.
4. Не нравится мне когда в "Словаре 3152 слов". Не по русски это.
Тестировал на Intel 450 мГц, память 64 мб.

[b]Tad[/b], в моих текстах слова на "ё" не встретились, поэтому не обнаружил ошибки, в VBJScript:[code:1] If Kod = 184 Then Vuhod = Vuhod & "ё"[/code:1] замените "ё" на "е";
наверное [b]автор[/b] элемента "Список строк" свойсво сортировка осуществил по кодам, а не по алфавиту и, естественно, слова на "ё" самые верхние; в файлах *.html все строки предваряются служебным набором символов и там может встретиться любая комбинация, в т. ч. и "ёёё";
1. - Замените в -sha схеме элемент Обзор (Browse) на ОткрытьФайл (ODialog).
2. 3. - А ведь предупреждали: не задавайте С: :D
4. -Не по русски из за уменьшения схемы, хотя и сделать не сложно :)
У меня 2,4 ГГц и 1Гб памяти, (и 30" монитор), поэтому о таких проблемах забываю (к хорошему привыкаешь быстро) :D

Леонид, и Пентхауз на рублёвке

Вячеслав, нет, я пенсионер, квартира 2-х комн., а монитор родственники подарили, чтобы глазами не мучился.

Леонид, Хорошие родственники
P.S. Мне просто нравится слово Пентхауз.

Леонид, у меня тоже 2,4 ГГц и 1Гб памяти, а специально для тестирования программ второй 450 мГц, память 64 мб. Вот я на нем и крутил. Вячеслав, Пентхауз - это у меня. Мне тоже нравится