jupiter1976
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
#include <IE.au3>
#include <String.au3>
$oIE_main0 = "E:\Usd_ifolder\ShareOnAll2.html"
$oIE_main = "E:\Usd_ifolder\ShareOnAll2.txt"
$apostrof = "'"
FileCopy ( $oIE_main0, $oIE_main, 1 )
$file_handle_read = FileOpen ( $oIE_main, 0 )
$result_read = FileReadLine ( $file_handle_read, 3 )
$find_rs = "http://rap"
$find_dep = "http://de"
$find_meg = "http://www.me"
$find_fil = "http://www.fi"
$result_rs = StringInStr( $result_read, $find_rs, 0, 1)
$result_rs1 = StringTrimLeft( $result_read, $result_rs - 1 )
$result_rs2 = StringInStr( $result_rs1, $apostrof, 0, 1)
$result_rs3 = StringLeft( $result_rs1, $result_rs2 - 1 )
$result_dep = StringInStr( $result_read, $find_dep, 0, 1)
$result_dep1 = StringTrimLeft( $result_read, $result_dep - 1 )
$result_dep2 = StringInStr( $result_dep1, $apostrof, 0, 1)
$result_dep3 = StringLeft( $result_dep1, $result_dep2 - 1 )
$result_meg = StringInStr( $result_read, $find_meg, 0, 1)
$result_meg1 = StringTrimLeft( $result_read, $result_meg - 1 )
$result_meg2 = StringInStr( $result_meg1, $apostrof, 0, 1)
$result_meg3 = StringLeft( $result_meg1, $result_meg2 - 1 )
$result_fil = StringInStr( $result_read, $find_fil, 0, 1)
$result_fil1 = StringTrimLeft( $result_read, $result_fil - 1 )
$result_fil2 = StringInStr( $result_fil1, $apostrof, 0, 1)
$result_fil3 = StringLeft( $result_fil1, $result_fil2 - 1 )
$result_name0 = StringTrimLeft( $result_rs3, 37)
$result_name = StringTrimRight( $result_name0, 6)
$df_name = "DF_" & $result_name & ".txt"
$rs_name = "RS_" & $result_name & ".txt"
$mu_name = "MU_" & $result_name & ".txt"
$ff_name = "FF_" & $result_name & ".txt"
$df = "E:\Usd_ifolder\link\"&$df_name
$rs = "E:\Usd_ifolder\link\"&$rs_name
$mu = "E:\Usd_ifolder\link\"&$mu_name
$ff = "E:\Usd_ifolder\link\"&$ff_name
FileOpen ( $df, 1 )
FileOpen ( $rs, 1 )
FileOpen ( $mu, 1 )
FileOpen ( $ff, 1 )
FileWrite ( $df, $result_dep3)
FileWrite ( $rs, $result_rs3)
FileWrite ( $mu, $result_meg3)
FileWrite ( $ff, $result_fil3)
FileClose ( $df )
FileClose ( $rs )
FileClose ( $mu )
FileClose ( $ff )
FileClose ( $oIE_main)
|
Всего записей: 201 | Зарегистр. 01-04-2006 | Отправлено: 00:25 18-12-2007 | Исправлено: jupiter1976, 00:36 18-12-2007 |
|
