[Данные, строки] Нахождения строк и копирования их в .txt файл

[PreDoK]

Вот у меня есть некие строки(отмечены красным), мне надо чтобы они сохранялись в .txt тексте.

alexeu4 ||| 554068 || Sat.Nov.2010 | 11:46 | 93.81.219.104 | Opera/9.80 (Windows NT 5.1; U; MRA 5.7 (build 03686); ru) Presto/2.6.30 Version/10.63
[email protected] ||| 20cat1987 || Sat.Nov.2010 | 11:48 | 213.87.74.228 | Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.6.30 Version/10.63
mumixe ||| 35881111995vlad || Sat.Nov.2010 | 11:48 | 193.93.228.42 | Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.6.30 Version/10.63
alexeu4 ||| 554068 || Sat.Nov.2010 | 11:50 | 93.81.219.104 | Opera/9.80 (Windows NT 5.1; U; MRA 5.7 (build 03686); ru) Presto/2.6.30 Version/10.63
рорне ||| мойхороший || Sat.Nov.2010 | 11:51 | 95.158.16.22 | Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.6; InfoPath.1)
кпфф ||| agragr || Sat.Nov.2010 | 11:51 | 94.79.44.248 | Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.7 (KHTML, like Gecko) Chrome/7.0.517.44 Safari/534.7
alexeu4 ||| 554068 || Sat.Nov.2010 | 11:51 | 93.81.219.104 | Opera/9.80 (Windows NT 5.1; U; MRA 5.7 (build 03686); ru) Presto/2.6.30 Version/10.63
Huba Buba ||| 4380068 || Sat.Nov.2010 | 11:52 | 193.17.208.118 | Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6
butamuh ||| 56577201105 || Sat.Nov.2010 | 11:52 | 193.106.203.106 | Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12 (.NET CLR 3.5.30729)
alexeu4 ||| 554068 || Sat.Nov.2010 | 11:52 | 93.81.219.104 | Opera/9.80 (Windows NT 5.1; U; MRA 5.7 (build 03686); ru) Presto/2.6.30 Version/10.63
hojon ||| xakernax || Sat.Nov.2010 | 11:54 | 84.22.141.164 | Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.12) Gecko/20101026 MRA 5.6 (build 03278) Firefox/3.6.12 WebMoney Advisor
[email protected] ||| nikita kulish || Sat.Nov.2010 | 11:55 | 91.200.156.76 | Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.15) Gecko/20101026 Firefox/3.5.15
...

И выдавало в текстовом документе в таком виде.

login: alexeu4
pass: 554068
ip: 93.81.219.104

login: [email protected]
pass: 20cat1987
ip: 213.87.74.228

и т.д ...

 

[beve]

Если исходные данные всегда имеют такую же структуру, как в примере, то можно так:

$Value=ClipGet()

$avArray=StringRegExp($Value, "(.*?)\|\|\|(.*?)\|\|.*?([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}).*", 3)

if IsArray($avArray) then 
	$file = FileOpen(@ScriptDir & "\data.txt", 1)
	If $file = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
	Exit
	EndIf
	For $i=2 to UBound($avArray)-1 Step +3
		FileWriteLine($file,"Login: "&$avArray[$i-2])
		FileWriteLine($file,"Pass: "&$avArray[$i-1])
		FileWriteLine($file,"IP: "&$avArray[$i])
		FileWriteLine($file, @CRLF)
	Next
	FileClose($file)
Else
	MsgBox(64,"Сообщение", "Не найдено подходящих данных в буфере обмена...")
endif

 

[gregaz]

Так : ?

$sText=FileRead(@ScriptDir & "\1.txt")
MsgBox(0,'$sText',$sText)

$sPattern="(.+?)\|{3}(.+?)\|{2}.+?\|.+?\|(.+?)\|.+"
$sReplace="Login : \1"& @CRLF & "Pass : \2" & @CRLF & "IP : \3"& @CRLF 
$sRet=StringRegExpReplace($sText,$sPattern,$sReplace)
MsgBox(0,'$sRet',$sRet)

$hFile=FileOpen (@ScriptDir & "\2.txt",2)
FileWrite($hFile,$sRet)
FileClose($hFile)

Добавлено:

Сообщение автоматически объединено: 20 Ноя 2010

Можно несколько упростить :

$sPattern="(.+?)\|{3}(.+?)\|{1,2}.+\|(.+?)\|.+"