Отправляет email-рассылки с помощью сервиса Sendsay

Xammep's Links: найдено в сети

[XL] kpnemo

Здравствуйте, inet.

4 штуки. надо кому? если да, то в личку, плиз.

Ответить   Tue, 13 Sep 2005 14:02:41 +0400 (#436478)

 

Ответы:

Здравствуйте, InetHelper.

все. отправил всем. закончилось. в след. раз, када появица, сообщу.

Вы писали 13 сентября 2005 г., 14:02:41:

Ответить   Tue, 13 Sep 2005 18:06:13 +0400 (#436598)

 

Hello InetHelper,

Tuesday, September 13, 2005, 6:06:13 PM, you wrote:

Боюсь нарушить правила, но все же выскажу благодарность публично.
Хорошее дело не должно оставаться незаметным. И пусть, вопреки
обыкновению, останется безнаказанным:)

Ответить   Eugen Bely Tue, 13 Sep 2005 19:07:05 +0400 (#436628)

 

Кому еще надо, пишите в личку.

Ответить   Tue, 13 Sep 2005 22:11:22 +0400 (#436734)

 

Отправил:

Ash <ash01@
=advokat= <advokat@
Tatiana A. Vaskovskaya <fva@

Ps.
Кому еще пишите.

Ответить   Wed, 14 Sep 2005 22:16:14 +0400 (#437401)

 

Все, все кончились.
Отправил:
ufaley.nm.ru <ufaley@
Anatoly <av@

Ответить   Thu, 15 Sep 2005 11:59:11 +0400 (#437661)

 

Всем привет!

На самом деле все просто, как два пальца об асфальт! :-)
Жмешь в Ворде Сервис - Макрос - Начать запись. Появляется маленькая
панелька, где можно выбрать свойства, название и сочетание клавиш (я
поставил Ctrl+Shift+C) и ОК. Началась запись твоего макроса. Появится
совсем маленькая панелька - почти как в плеере. Все. Жмешь кнопку
остановить запись. Далее Сервис - Макрос - Макросы (или Alt+F8) и
открываешь Вижуал Басик. Точнее сначала появится окошко со списком
всех макросов. Выбираешь свой и жмешь Изменить. Вот тут то и откроется
наш Басик. Будет что-то типа:

Sub _твое_название_()
'
' _твое_название_ Макрос
' Макрос записан 16.09.2005
'
End Sub

Это и есть твой макрос! Теперь берешь следующий текст и вставляешь
ПОСЛЕ апострофа и перед End Sub. Макрос построен на простой подмене
символов в зависимости от регистра и работает в направлении лат->кир.,
т.е. должен прокатить для любого языка, использующего стандартную
латинскую раскладку.
Обратно пока не был нужен :-) Но его можно сделать простой
перестановкой.

'
a = Selection ' копируем выделенный текст в переменную a
Selection.Delete ' удаляем выделенный текст, он нам больше
не нужен
For i = 1 To Len(a) ' начало цикла. В цикле посимвольно
перебирается переменная a и символы английской клавиатуры заменяются на
русские.
Select Case Mid(a, i, 1) '
Case "`"
Mid(a, i, 1) = "ё"
Case "q"
Mid(a, i, 1) = "й"
Case "w"
Mid(a, i, 1) = "ц"
Case "e"
Mid(a, i, 1) = "у"
Case "r"
Mid(a, i, 1) = "к"
Case "t"
Mid(a, i, 1) = "е"
Case "y"
Mid(a, i, 1) = "н"
Case "u"
Mid(a, i, 1) = "г"
Case "i"
Mid(a, i, 1) = "ш"
Case "o"
Mid(a, i, 1) = "щ"
Case "p"
Mid(a, i, 1) = "з"
Case "["
Mid(a, i, 1) = "х"
Case "]"
Mid(a, i, 1) = "ъ"
Case "a"
Mid(a, i, 1) = "ф"
Case "s"
Mid(a, i, 1) = "ы"
Case "d"
Mid(a, i, 1) = "в"
Case "f"
Mid(a, i, 1) = "а"
Case "g"
Mid(a, i, 1) = "п"
Case "h"
Mid(a, i, 1) = "р"
Case "j"
Mid(a, i, 1) = "о"
Case "k"
Mid(a, i, 1) = "л"
Case "l"
Mid(a, i, 1) = "д"
Case ";"
Mid(a, i, 1) = "ж"
Case "'"
Mid(a, i, 1) = "э"
Case """"
Mid(a, i, 1) = "Э"
Case "z"
Mid(a, i, 1) = "я"
Case "x"
Mid(a, i, 1) = "ч"
Case "c"
Mid(a, i, 1) = "с"
Case "v"
Mid(a, i, 1) = "м"
Case "b"
Mid(a, i, 1) = "и"
Case "n"
Mid(a, i, 1) = "т"
Case "m"
Mid(a, i, 1) = "ь"
Case ","
Mid(a, i, 1) = "б"
Case "."
Mid(a, i, 1) = "ю"
Case "/"
Mid(a, i, 1) = "."
Case "~"
Mid(a, i, 1) = "Ё"
Case "Q"
Mid(a, i, 1) = "Й"
Case "W"
Mid(a, i, 1) = "Ц"
Case "E"
Mid(a, i, 1) = "У"
Case "R"
Mid(a, i, 1) = "К"
Case "T"
Mid(a, i, 1) = "Е"
Case "Y"
Mid(a, i, 1) = "Н"
Case "U"
Mid(a, i, 1) = "Г"
Case "I"
Mid(a, i, 1) = "Ш"
Case "O"
Mid(a, i, 1) = "Щ"
Case "P"
Mid(a, i, 1) = "З"
Case "{"
Mid(a, i, 1) = "Х"
Case "}"
Mid(a, i, 1) = "Ъ"
Case "A"
Mid(a, i, 1) = "Ф"
Case "S"
Mid(a, i, 1) = "Ы"
Case "D"
Mid(a, i, 1) = "В"
Case "F"
Mid(a, i, 1) = "А"
Case "G"
Mid(a, i, 1) = "П"
Case "H"
Mid(a, i, 1) = "Р"
Case "J"
Mid(a, i, 1) = "О"
Case "K"
Mid(a, i, 1) = "Л"
Case "L"
Mid(a, i, 1) = "Д"
Case ":"
Mid(a, i, 1) = "Ж"
Case "Z"
Mid(a, i, 1) = "Я"
Case "X"
Mid(a, i, 1) = "Ч"
Case "C"
Mid(a, i, 1) = "С"
Case "V"
Mid(a, i, 1) = "М"
Case "B"
Mid(a, i, 1) = "И"
Case "N"
Mid(a, i, 1) = "Т"
Case "M"
Mid(a, i, 1) = "Ь"
Case "<"
Mid(a, i, 1) = "Б"
Case ">"
Mid(a, i, 1) = "Ю"
Case "?"
Mid(a, i, 1) = ","
Case "@"
Mid(a, i, 1) = """"
Case "#"
Mid(a, i, 1) = ""
Case "$"
Mid(a, i, 1) = ";"
Case "%"
Mid(a, i, 1) = "%"
Case "^"
Mid(a, i, 1) = ":"
Case "&"
Mid(a, i, 1) = "?"
Case Else
End Select
Next i ' ну вот и все.
Selection.InsertAfter Text:=a ' осталось только вывести результат.
End Sub

Успехов!

ПыСы. Однозначно работает под Ворд ХР, 2000.

Ответить   Sat, 17 Sep 2005 09:11:20 +0300 (#438826)

 

Здравствуйте всем!

Чем открыть картинку с расширением .dat? Вроде Paint Shop Pro должен
справляться, а он не хочет :(

Ответить   "Vera Arda" Mon, 19 Sep 2005 15:54:41 +0300 (#440097)

 

А ты уверен что это картинка?
посмотри любым viewer типа ACDSee или Urfan View
там увидишь формат - смени расширение и работай

Kroog

Ответить   "Ikar" Mon, 19 Sep 2005 19:42:15 +0400 (#440177)

 

А как посмотреть? они пишут Unknown file format

А ты уверен что это картинка?
посмотри любым viewer типа ACDSee или Urfan View
там увидишь формат - смени расширение и работай

Kroog

Ответить   "Vera Arda" Tue, 20 Sep 2005 09:02:11 +0300 (#440406)

 

Здравствуйте, Vera.

это не картинка, а файл базы данных. афаик.

Вы писали 20 сентября 2005 г., 10:02:11:

Ответить   Tue, 20 Sep 2005 10:12:52 +0400 (#440414)

 

любым HEX - редактором посмотри файл, найди там реальное расширение а
там уже смотри к чему оно относится
а вообще есть уверенность что это картинка?

Ответить   "Ikar" Tue, 20 Sep 2005 12:33:47 +0400 (#440486)

 

-----Original MessageFrom: Ikar [mailto:ik***@m*****.ru]
Sent: Tuesday, September 20, 2005 11:34 AM
To: inet.search.xammeplinks (1304905)

любым HEX - редактором посмотри файл, найди там реальное расширение а
там уже смотри к чему оно относится
а вообще есть уверенность что это картинка?

А можно подробнее? Есть XVI32, как расширение искать?

Ответить   "Vera Arda" Tue, 20 Sep 2005 14:56:27 +0300 (#440551)

 

возьми NortonComander,в нем найди этот файл, нажми F3 и смотри в этих
кракозябрах знакомые расширения в самом начале файла
Kroog

Ответить   "Ikar" Wed, 21 Sep 2005 13:58:17 +0400 (#441056)

 

Vera Arda said the following on 19.09.2005 21:54:

Это может быть видеофайл. В формате mpeg1 (vcd).

Ответить   Tue, 20 Sep 2005 22:12:45 +0900 (#440596)

 

Доброго времени суток, InetHelper.

Анялогично. 7 штук. В приват.

Ответить   Владимир 'insider' Прохоров Tue, 13 Sep 2005 23:57:59 +0400 (#436813)

 

а что это такое?

Ответить   "Ikar" Wed, 14 Sep 2005 16:12:18 +0400 (#437205)

 

Доброго времени суток, Ikar.

На вкусном сайте http://www.kpnemo.ru нет регистрации в привычном
смысле слова - туда пускают по приглашениям...

Ответить   Владимир 'insider' Прохоров Wed, 14 Sep 2005 21:20:47 +0400 (#437357)

 

Здравствуйте, Владимир 'insider' Прохоров.

Вы писали 14 сентября 2005 г., 4:57:59:

дафай мине!

Ответить   Sat, 17 Sep 2005 09:32:15 +0900 (#439033)

 

Доброго времени суток!

Если есть еще желающие, стучите в личку, помогу с приглашениями...

Ответить   Wed, 14 Sep 2005 22:14:29 +0300 (#437445)