Помогите!!!
Мне нужна помощь в составлении программки по поиску слов-палиндромов в тексе. Это такие слова, которые читаються слева на право и наоборот. Помоги, чем можете плиз. Очень надо, край прям.
Тебе на барсике надо? Я могу написать на си++, ну на крайняк на паскале. Еще могу совет дать.=)
DIm HL As Long
HL = len(Word)\2 'одно из слов текста
if LEFT(Word,HL)=strReverse(RIGHT(Word,HL)) then
'got him
end if
'что-то вроде этого...
'слова из текста можно изымать используя Split(text," ")
Мне нужна помощь в составлении программки по поиску слов-палиндромов в тексе. Это такие слова, которые читаються слева на право и наоборот. Помоги, чем можете плиз. Очень надо, край прям.
Если нужен только результат, вот программка.
Если надо пояснения - "пишите и обрящете"
Я тоже с НУРа, спасибо за помощь!!!
вот с пояснениями
To Gacol
А что такое К. ??? (kozel ??? или что-то совсем непечатное ???)
Должен однако заметить, что в стандартном рабочем листе MS Excel количество строк 65536, а не 99999.
To Gacol
А что такое К. ??? (kozel ??? или что-то совсем непечатное ???)
99999 - это ЗББГЧ (Заведомо Большее Бросающееся в Глаза Число)
К.- я думаю Климов
2) Вы точно уверены, что это я ??? Анкетных данных я нигде оставлял.
1) А если в рабочей книге действительно будет 65536 строк ?
2) Вы точно уверены, что это я ??? Анкетных данных я нигде оставлял.
1) Ну тяжко мне помнить такие круглые цифры как 65536, да и вдруг MS расширит адресное пространство.
2) Я не уверен, просто попалось такое
Function ПрописнНач(Текст)
'*******************************************************
' Функция восстановлена 13/10/2004
' Автор Климов Павел Юрьевич (pashulka)
' http://www.msoffice.nm.ru
' http://www.pashulka.nm.ru
'*******************************************************
If Текст = "" Then ПрописнНач = "<>": Exit Function
ДлинаЧисла = Len(Текст)
ПервыйСимвол = Left(Текст, 1)
ПервыйСимвол = UCase(ПервыйСимвол)
Обрубок = LCase(Mid(Текст, 2, ДлинаЧисла))
ПрописнНач = ПервыйСимвол + Обрубок
'ПрописнНач = ПервыйСимвол & Обрубок Rem второй вариант
End Function
А в интернете людей использующих псевдоним pashulka, несколько десятков, могу дать адреса большинства из них, если нужно конечно...
Вот на Ворде
Вот на Ворде с упорядочением