Чтение нескольких символов строки

[Isn]

Доброго времени суток форумчане

Имеется txt вида:

тел.  (351) 223-66-55
тел.  (351) 729-95-05
mailto:[email protected]
http://www.absolutkonsalt.ru

как "прочитать" из txt в переменную все что находится после тел., mailto: и http://

 

[inververs]

Как вариант, читайте файл по строчкам FileReadLine(), затем для 1 строчки удаляйте слева 5 символов StringTrimLeft(). И так для всех строк.

 

[Zaramot]

Можно так:

#Include <Array.au3>
$ReadFile = FileRead(@ScriptDir & '\1.txt')
$Tel = StringRegExp($ReadFile, 'тел\.(.*)', 3)
$MailTo = StringRegExp($ReadFile, 'mailto:(.*)', 3)
$Http = StringRegExp($ReadFile, 'http:\/\/(.*)', 3)
_ArrayConcatenate($Tel, $MailTo)
_ArrayConcatenate($Tel, $Http)
_ArrayDisplay($Tel)

 

[Isn]

Спасибо все за ответы, пример Zaramot самое то.)


Добавлено:

Сообщение автоматически объединено: 3 Авг 2012

почему не выводит в MsgBox?

#Include <Array.au3>
$ReadFile = FileRead(@ScriptDir & '\test.txt')
$Tel = StringRegExp($ReadFile, 'тел\.(.*)', 3)
$MailTo = StringRegExp($ReadFile, 'mailto:(.*)', 3)
$Http = StringRegExp($ReadFile, 'http:\/\/(.*)', 3)

_ArrayConcatenate($Tel, $MailTo)
_ArrayConcatenate($Tel, $Http)
_ArrayDisplay($Tel)
MsgBox(64, $Tel, $MailTo)

 

[madmasles]

Isn,
Или так.

#include <Array.au3>

$sText = FileRead(@ScriptDir & '\1.txt')
$aInfo = StringRegExp($sText, '(?im)(?<=тел|mailto|http)[^\r\n]+?([(\w].*?)\r?$', 3)
If @error Then Exit -15
_ArrayDisplay($aInfo)
For $i = 0 To UBound($aInfo) - 1
	MsgBox(64, 'Info ' & $i + 1, $aInfo[$i])
Next

Добавлено:

Сообщение автоматически объединено: 3 Авг 2012

Isn [?]

почему не выводит в MsgBox?

Потому что это массивы.

 

[Isn]

а можно без фор как то написать? поместить в переменную и потом по отдельности каждую переменную вывести в MsgBox

 

[Zaramot]

а можно без фор как то написать? поместить в переменную и потом по отдельности каждую переменную вывести в MsgBox

Мои пример:

#Include <Array.au3>
$ReadFile = FileRead(@ScriptDir & '\1.txt')
$Tel = StringRegExp($ReadFile, 'тел\.(.*)', 3)
$MailTo = StringRegExp($ReadFile, 'mailto:(.*)', 3)
$Http = StringRegExp($ReadFile, 'http:\/\/(.*)', 3)
_ArrayConcatenate($Tel, $MailTo)
_ArrayConcatenate($Tel, $Http)
MsgBox(64, 'Info', $Tel[0])
MsgBox(64, 'Info', $Tel[1])
MsgBox(64, 'Info', $Tel[2])
MsgBox(64, 'Info', $Tel[3])

Пример madmasles:

#include <Array.au3>
$sText = FileRead(@ScriptDir & '\1.txt')
$aInfo = StringRegExp($sText, '(?im)(?<=тел|mailto|http)[^\r\n]+?([(\w].*?)\r?$', 3)
If @error Then Exit -15
MsgBox(64, 'Info', $aInfo[0])
MsgBox(64, 'Info', $aInfo[1])
MsgBox(64, 'Info', $aInfo[2])
MsgBox(64, 'Info', $aInfo[3])