 |
|
Модераторы: Akina |
 
|
|
Подскажите плиззз 
| KIPISH |
|
|||
 Новичок Профиль Группа: Участник Сообщений: 26 Регистрация: 4.4.2004 Репутация: нет Всего: нет |
Нужно найти е-майлы в txt, пишу эту шнягу,а как проверить мыло это или @хрен?
Dim a As String, b As String a = Dir("c:\windows\Temp\*.txt") Do While a <> "" Open ("c:\windows\Temp\" & a) For Input As #1 Input #1, b If InStr(1, b, "@") <> 0 Then Text1.Text = b Close #1 a = Dir End If Loop End Sub |
|||
|
||||
Загрузка ...
| chipset |
|
|||
|
Эксперт  Профиль Группа: Экс. модератор Сообщений: 4071 Регистрация: 11.1.2003 Где: Seattle, US Репутация: нет Всего: 165 |
ты имеешь в виду тестить существует ли такой мэйл или нет?
если в нём есть русские буквы то его однозначно нету, кроме того скорее всего должна быть хотя бы одна точка... --------------------
|
|||
|
||||
| bom |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 329 Регистрация: 22.2.2004 Где: Казахстан, Алматы Репутация: 4 Всего: 6 |
Звиняйте за корявый код, но мыло распознает с большой вероятностью  |
|||
|
||||
| cardinal |
|
|||
 Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
Это серьезно? Если да, то мне понравилось - помоему заслуживает места в FAQ. А как другие тоже самое делают не знаешь? Есть ли лучше варианты? -------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| bom |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 329 Регистрация: 22.2.2004 Где: Казахстан, Алматы Репутация: 4 Всего: 6 |
cardinal:
Вполне. Сам пользуюсь этим способом. Если бы знал более изящный, то обязательно бы поделился, но увы... |
|||
|
||||
| KIPISH |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 26 Регистрация: 4.4.2004 Репутация: нет Всего: нет |
Спасибо за ответ..всё нештяк= ))
|
|||
|
||||
| KIPISH |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 26 Регистрация: 4.4.2004 Репутация: нет Всего: нет |
Ещё не пойму =) как зделать чтоб из десяти слов например,выбиралось произвольно разные слова,ну как Delphi
const S Array[1..10] of String = (jjjj','','','',) пробую.. A = Array("","","",) Randomize MsgBox A(Rnd) Появляются первые 2 символа и всё....а остальные игнор  |
|||
|
||||
| cardinal |
|
|||
|
Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
Модератор: Пожалуйста, один топик - один вопрос.
-------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.1098 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |