[Source] Tags Conventer v1

[GhostSpecTre]

Przydatny program dla osób wrzucających często filmiki na youtube [PPA, CPA itp].

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\ico\tags.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region Zmienne
Global $odczytanie
Global $plik
#endregion
FileInstall("D:\tlo_1.jpg", @TempDir & "\tlo_1.jpg")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Tags Conventer v1.0.1 By GhostSpecTre", 405, 296, 194, 130)
$Pic2 = GUICtrlCreatePic(@TempDir &  "\tlo_1.jpg", 0, 0, 492, 180, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem1 = GUICtrlCreateMenu("Plik")
$MenuItem4 = GUICtrlCreateMenuItem("Wczytaj", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Zakończ", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("Pomoc")
$MenuItem6 = GUICtrlCreateMenuItem("O programie", $MenuItem2)
$MenuItem7 = GUICtrlCreateMenuItem("Help", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenu("Update")
GUISetBkColor(0xFFFBF0)
$Edit1 = GUICtrlCreateEdit("", 224, 24, 161, 201, $ES_AUTOVSCROLL)
GUICtrlSetData(-1, "")
$Group1 = GUICtrlCreateGroup("Menu", 16, 16, 177, 121)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Słowo kluczowe", 32, 40, 145, 21)
$Button1 = GUICtrlCreateButton("Generuj", 56, 80, 97, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("MPCForum.pl", 16, 192, 196, 26)
GUICtrlSetFont(-1, 11, 800, 0, "Nightclub BTN")
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW,$Form2)
$o_programie = GUICreate("O programie", 272, 140, 302, 218)
GUISetBkColor(0xFFFBF0)
$Label2 = GUICtrlCreateLabel("Program stworzony przez GhostSpecTre", 48, 48, 167, 17)
$Label3 = GUICtrlCreateLabel("dla forum.lockerz.com.pl", 72, 72, 118, 17)
$Label4 = GUICtrlCreateLabel("Szybsze i dużo łatwiejsze tagowanie filmików itp.", 24, 16, 233, 17)
$Button2 = GUICtrlCreateButton("Wróć", 96, 104, 81, 25, $WS_GROUP)
GUISetState(@SW_HIDE,$o_programie)
$help = GUICreate("Help", 211, 230, 302, 218)
GUISetBkColor(0xFFFBF0)
$Label5 = GUICtrlCreateLabel("1. Plik > Wczytaj", 64, 16, 83, 17)
$Label6 = GUICtrlCreateLabel("2. Znajdź plik z tagami [.txt]", 48, 48, 132, 17)
$Label7 = GUICtrlCreateLabel("3. Wczytaj plik", 72, 80, 73, 17)
$Label8 = GUICtrlCreateLabel("4. Wpisz słowo kluczowe", 48, 112, 125, 17)
$Label9 = GUICtrlCreateLabel("5. Kliknij Generuj", 72, 144, 83, 17)
$Button3 = GUICtrlCreateButton("Ok", 72, 184, 81, 33, $WS_GROUP)
GUISetState(@SW_HIDE, $help)


#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
$qpa = FileRead($plik)
$read = GUICtrlRead($Input1)
$Wynik = StringReplace($qpa,",", ", " & $read)
GUICtrlSetData($Edit1, $read&$Wynik)
Case $MenuItem5
	Exit
Case $MenuItem6
	GUISetState(@SW_SHOW, $o_programie)
Case $Button2
	GUISetState(@SW_HIDE, $o_programie)
Case $MenuItem7
	GUISetState(@SW_SHOW, $help)
Case $Button3
	GUISetState(@SW_HIDE, $help)
Case $MenuItem4
	$plik = FileOpenDialog("Wybierz plik...", @WindowsDir & "", "Tekst (*.txt)|", 1)

	EndSwitch
WEnd

Miałem go rozwijać dalej lecz brakuje pomysłów i skończyłem z PPA swoje już zarobiłem ;p. Jeśli ktoś miał by jakiś pomysł to niech pisze śmiało tu albo na pw chętnie popracuję nad nim jeszcze.

Obsługa:

- Klikamy Plik > Wczytaj

- Szukamy pliku [.txt] z naszymi tagami [polecam pisać: Tag1, Tag2, Tag3.]

- Wczytujemy ten plik

- W input słowo kluczowe wpisujemy wyraz np. CS

- No i klikamy button, po prawej stronie wyświetlają się tagi w formie [np. cs jeden, cs dwa, cs trzy]

 

Ps. Od ilu postów można pisać w głównym dziale AutoIT?

[BezioCraft]

plusika masz powodzenia