Что нового

[Данные, строки] Поиск в буфере обмена ключей

Автор
Q

qwertypower

Новичок
Сообщения
12
Репутация
0
Так устраивает, спасибо. Только я хотел бы, что бы все таки можно было ставить по количеству букв на каждую, как тогда. Например буква "К" из 15 символов, "S" из 25 букв, "R" из 7 букв. А так такой код в самый раз.
 

Tempo

AutoIT Гуру
Сообщения
616
Репутация
205
Код:
Global $aClip[] = ["", "key1", "key2", "key3"], $i = 0, $sCurClip

While 1
	$aClip[0] = ClipGet()
	If $aClip[0] <> $sCurClip Then
		Select
			Case StringRegExp($aClip[0], "^K.{15}$")
				$i = 1
			Case StringRegExp($aClip[0], "^B.{12}$")
				$i = 2
			Case StringRegExp($aClip[0], "^R.{11}$")
				$i = 3
		EndSelect
		If $i Then ClipPut($aClip[$i])
		$sCurClip = $aClip[$i]
		$i = 0
	EndIf
	Sleep(100)
WEnd

;K123456123456123
;B123456123456
;R12345612345
 
Верх