UriF
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору wjuri открывашь .txt как output (может input - не помню - главное прочесть) Далее читаешь каждую строку и используешь Enter (vbCrLF) или пробел, как delimeter и загоняешь в массив (array). Далее стандартный Quick Sort и поиск Bynary Search. Если файл очень большой, то для чтения используй прием "mapping file" - чтение файла по кускам по offset от первого байта, т.е. считываешь n-е количество байтов во времнную память (объем куска зависит от RAM компьютера, я брал ~16 Kb) - kernel.dll APIs. Если интересует, пиши в ПМ и дай e-mail - вышлю file mapping sample Поиск - если латинница, то и ASCII сойдет, если же кириллица, то с Unicode у VB6 проблемы (со знаками -, _ и т.д.. -function StrComp выдает ерунду) , надо проверить как работают string functions и, возможно, придется поискать API или сверять слово по байтам (каждый character в String Variable - это 2 байта 1-й байт - ASCII Code, второй - 0 ( Chr(0)) - это будет по-медленнее, чем встроенные VB String functions, но если есть желание - этот кусок можешь написать на C (моему боссу и такой поиск за глаза хватил) Добавлено: Juice23 по-моему, такой встроенной функции нет поиграйся с Mid, Left, Right, Instr, InstrRev и Replace Если есть желание возиться с Regular Expressions, то создай Object типа (не помню сейчас) который работает с VB SCript (возможно, не сможешь запихнуть в references из-за compatibility problems) |