Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 67
Благодарности: 13

Профиль | Отправить PM | Цитировать


adima, предлагаю такой вариант (на скорую руку) Попробуй этим обработать исходник своей программы и, откомпилировав ее, будут traytips на каждом шагу
Код: Выделить весь код
$fl=FileOpenDialog("","","")
$fr=FileOpen("result.au3",2)
$fl=FileOpen($fl,0)
$fl=FileRead($fl)
$tempstr=""
$final=""
While $fl<>""
	if StringLeft($fl,1)<>@CR And StringLeft($fl,1)<>@LF And StringLeft($fl,1)<>@CRLF Then 
		$tempstr&=StringLeft($fl,1)
		$fl=StringTrimLeft($fl,1)
	Else
		$final&="TrayTip("","&$tempstr&",1)"&@CRLF&$tempstr&@CRLF
		$fl=StringTrimLeft($fl,1)
		$tempstr=""
	EndIf
WEnd
FileWrite($fr,$final)
Результат ляжет в файл result.au3

-------
Информация для размышления
Такому в вузах не научат


Отправлено: 21:21, 11-01-2009 | #1512