Îòîáðàæåíèå âûáðàíîãî txt è ïîâòîðíûé çàïóñê ïî êíîïêå
Âëîæåíèé: 1
Ñäåëàë òàêîé ñêèïò:
Êîä:
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#AutoIt3Wrapper_Res_File_Add=Fran3.bmp, rt_rcdata, TEST_JPG_1 ;Ïèõàåì êàðòèíêó
#include "resources.au3"
_Main()
Func _Main()
Local $GPS_Nav, $map_for_nav, $Akses, $msg, $Echolot, $AksesEcholot, $MarineRadar, $Other, $Obzor
GUICreate("ID paster by maxd2007", 500, 620, 1200,250)
$pic1 = GUICtrlCreatePic("",215,35,0,0)
_ResourceSetImageToCtrl($pic1, "TEST_JPG_1")
GUICtrlCreateLabel("Ïîæàëóéñòà âûáåðèòå ðàçäåë!", 27, 17)
$GPS_Nav = GUICtrlCreateButton("GPS íàâèãàòîðû", 10, 50, 200, 50)
$map_for_nav = GUICtrlCreateButton("Êàðòû äëÿ íàâèãàòîðîâ", 10, 120, 200, 50)
$Akses = GUICtrlCreateButton("Àêñåññóàðû äëÿ íàâèãàòîðîâ", 10, 190, 200, 50)
$Echolot = GUICtrlCreateButton("Ýõîëîòû è ãëóáèíîìåðû", 10, 260, 200, 50)
$AksesEcholot = GUICtrlCreateButton("Àêñåññóàðû äëÿ ýõîëîòîâ", 10, 330, 200, 50)
$MarineRadar = GUICtrlCreateButton("Ìîðñêèå ðàäàðû", 10, 400, 200, 50)
$Other = GUICtrlCreateButton("Ñîïóòñòâóþùèå òîâàðû", 10, 470, 200, 50)
$Obzor = GUICtrlCreateButton("Îáçîð", 10, 540, 200, 50)
GUISetState() ; display the GUI
Do
$msg = GUIGetMsg()
Select
Case $msg = $GPS_Nav
WinWaitActive("GPS Íàâèãàòîðû - Google Chrome", "")
;×èòàåì ôàéë
$txt = FileRead(@ScriptDir & "\1.txt")
; Ïðîâåðÿåì êîíåö ñòðîêè - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $map_for_nav
WinWaitActive("Êàðòû äëÿ íàâèãàòîðîâ - Google Chrome", "")
;×èòàåì ôàéë
$txt = FileRead(@ScriptDir & "\GDEKuda.txt")
; Ïðîâåðÿåì êîíåö ñòðîêè - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $Akses
WinWaitActive("Àêñåññóàðû äëÿ íàâèãàòîðîâ - Google Chrome", "")
;×èòàåì ôàéë
$txt = FileRead(@ScriptDir & "\1.txt")
; Ïðîâåðÿåì êîíåö ñòðîêè - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $Echolot
WinWaitActive("Ýõîëîòû è ãëóáèíîìåðû - Google Chrome", "")
;×èòàåì ôàéë
$txt = FileRead(@ScriptDir & "\1.txt")
; Ïðîâåðÿåì êîíåö ñòðîêè - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $AksesEcholot
WinWaitActive("Àêñåññóàðû äëÿ ýõîëîòîâ - Google Chrome", "")
;×èòàåì ôàéë
$txt = FileRead(@ScriptDir & "\1.txt")
; Ïðîâåðÿåì êîíåö ñòðîêè - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $MarineRadar
WinWaitActive("Ìîðñêèå ðàäàðû - Google Chrome", "")
;×èòàåì ôàéë
$txt = FileRead(@ScriptDir & "\1.txt")
; Ïðîâåðÿåì êîíåö ñòðîêè - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $Other
WinWaitActive("Ñîïóòñòâóþùèå òîâàðû - Google Chrome", "")
;×èòàåì ôàéë
$txt = FileRead(@ScriptDir & "\1.txt")
; Ïðîâåðÿåì êîíåö ñòðîêè - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $Obzor
$var = FileOpenDialog('Âûáåðèòå ôàéë', @ScriptDir & "\", "Text (*.txt)", 1 ,"1.txt" )
If @error Then
MsgBox(4096,"","Íå âûáðàíî íè îäíîãî ôàéëà")
Else
WinWaitActive("[CLASS:Chrome_WidgetWin_1]", "")
;×èòàåì ôàéë
$txt = FileRead($var)
; Ïðîâåðÿåì êîíåö ñòðîêè - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
EndIf
EndSelect
Until $msg = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
Ìîæíî ëè â âûâîäèìîå îêíî äîáàâèòü 2 òàêèõ ýëåìåíòà:
1) Íàæàëè êíîïêó "Îáçîð", âûáðàëè ôàèë .txt è íàçâàíèå âûáðàíîãî TXT áóäåò îòîáðàæåíî â îêîøêå ðÿäîì ñ íîïêîé "îáçîð".
2) Ïðè âûáîðå ôàèëà txt çàïóñêàåòñÿ ñêðèïò è äëÿ ïîâòîðíðîãî çàïóñêà íàäî âûáèðàòü åãî ñíîâà, ìîæíî ëè äîáàâèòü êëàâèøó ïî íàæàòèþ êîòîðîé îí áóäåò ïîâòîðÿòü äåéñòâèÿ â çàâèñèìîñòè îò ïîñëåäíåãî âûáðàíîãî ôàèëà txt.
Ò.å. ÷òî áû ýòî âûãëÿäåëî ïðèìåðíî êàê íà ôîòî â àòà÷å. |
