Что нового

Чтение данных из текстового файла.

Arbios

Новичок
Сообщения
18
Репутация
0
Всем привет! Есть текстовый файл с e-mail адресами, нужно, чтобы программа брала e-mail адреса оттуда и печатала их с помощью команды Send. Первый вопрос, как взять адрес из .txt файла (Брать из Input приловчился с помощью GUICtrlRead), и второй вопрос как сделать так, чтобы программа начинала цикл снова, и на шаге где нужно взять адрес из файла, переходила на следующий пункт (чтобы брала следующий адрес). Вопрос конечно сложный и очень запутанный, но если кто разберется буду очень благодарен! =))
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Arbios [?]
и второй вопрос
Предупреждение За нарушение общих правил (пункт В.4):
Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.


С уважением, ваш Глобальный модератор.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Arbios
может лучше к справке обратиться. ваш второй вопрос как и первый объяснен в ней
OffTopic:
и, кстати, ничего сложного и запутанного. ну как и в случае http://autoit-script.ru/index.php/topic,14489.msg91310.html#msg91310
 
Автор
Arbios

Arbios

Новичок
Сообщения
18
Репутация
0
OffTopic:
ваш второй вопрос как и первый объяснен в ней

Прочитал про GUICtrlRead но там и слова нет про чтение из txt файла. Я знаю, что где то в справке, есть ответ на этот вопрос, но если бы все читали справку от и до, то и форумов таких не было бы. Думаю Вы не правы говоря, что этот вопрос не сложный. Не квантовая физика, но все же...
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Arbios,
Покажите пример текстового файла и то, что нужно из него получать.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Arbios,
В файле test.txt (должен лежать в одной папке со скриптом) - Ваш текст из сообщения выше.
Код:
Local $hFile, $sEMail
$hFile = FileOpen(@ScriptDir & '\test.txt')

While 1
	$sEMail = FileReadLine($hFile)
	If @error Then ExitLoop
	MsgBox(64, 'E-Mail', $sEMail)
WEnd
FileClose($hFile)
MsgBox(64, 'Info', 'Все')
Или
Код:
Local $sText, $aEMail
$sText = FileRead(@ScriptDir & '\test.txt')
$aEMail = StringSplit(StringStripCR($sText), @LF, 2)
$sText = ''
For $sTmp In $aEMail
	MsgBox(64, 'E-Mail', $sTmp)
Next

MsgBox(64, 'Info', 'Все')
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Arbios [?]
но если бы все читали справку от и до, то и форумов таких не было бы.
ты весьма ошибаешься. форумы не только для новичков.
не научишься читать справку , твое обучение будет долгим и утомительным
про чтение из файла смотри
Код:
FileRead
FileReadLine

сложно найти в справке или воспользоваться поиском по форуму.?
 
Автор
Arbios

Arbios

Новичок
Сообщения
18
Репутация
0
Оказывается мне нужен был только маленький толчок в нужную сторону. ;D Большое спасибо, справка по FileReadLine помогла! :IL_AutoIt_1:
 
Верх