Lista de texto Topic is solved

Esta sección es para preguntas sobre programación/scripting usando AutoHotkey.
Atamo
Posts: 7
Joined: 20 Oct 2018, 00:33

Lista de texto

19 Nov 2018, 14:59

hola chicos, soy nuevo en el mundo de los script, les queria consultar algo.

alguno sabe hacer esto


que cuando aprete por ejemplo !A:: se lance un texto, pero no solo eso, que haya una lista y cada vez que aprete !a:: se lance el texto que sigue por ejemplo


!A::
Send, Hi,ho,hu,he,ja,je
Return

entonces apretó 1 vez y se lanza la primera palabra Hi, apretó denuevo se lanza ho, apretó denuevo hu, y asi sucesivamente.


solo quiero poner una lista grande y cada vez que se repita la secuencia de texto, ponga el texto que le sigue, no el texto completo.

si alguien sabe algo asi porfavor que me ayude, se agradece.
User avatar
Flipeador
Posts: 1019
Joined: 15 Nov 2014, 21:31
GitHub: Flipeador
Location: Argentina
Contact:

Re: Lista de texto  Topic is solved

19 Nov 2018, 15:44

Hola, prueba este script:

Code: Select all

#Warn
#SingleInstance Force

Lista := [ "Texto #1"
         , "Texto #2"
         , "Texto #3" ]

Indice := 1


!a::
SendInput % "{raw}" . Lista[Indice]

if (Indice == Lista.Length())
    Indice := 0  ; reiniciar ìndice
Indice++  ; incrementar ìndice en 1
return
Windws 1♂ Pro 64-Bits I make scripts for AHKv2 (my v2 compiler) & WIN_7+ Spanish Argentina SublimeText 3 & AHKv2 My GDI+ Library
Atamo
Posts: 7
Joined: 20 Oct 2018, 00:33

Re: Lista de texto

19 Nov 2018, 16:01

me sirvió muchas gracias :D
Atamo
Posts: 7
Joined: 20 Oct 2018, 00:33

Re: Lista de texto

20 Nov 2018, 22:03

Flipeador una duda, este mismo comando se puede hacer que la entrada de texto sea aleatoria?, y en que sesion de la documentacion puedo aprender mas del tema, me gustaria poder aprende, de antemano muchas gracias
burque505
Posts: 681
Joined: 22 Jan 2017, 19:37

Re: Lista de texto

23 Nov 2018, 19:16

Hola @Atamo, prueba esto:

Code: Select all

#Warn
#SingleInstance Force

Lista := [ "Yo soy aleatorio.`n"
         , "Pues, ¡yo también soy aleatorio!`n"
         , "Vaya, no me lo creo.`n" ]

Indice := 1
MaxIndice := Lista.Count()
;msgbox %MaxIndice%


!a::
Random, rand, 1, %MaxIndice%
SendInput % "{raw}" . Lista[rand]
return

Escape::ExitApp
Saludos,
burque505
garry
Posts: 1567
Joined: 22 Dec 2013, 12:50

Re: Lista de texto

24 Nov 2018, 03:03

send2notepad , 4* alt+a

Code: Select all

#warn
#SingleInstance Force
setworkingdir,%a_scriptdir%
;SetKeyDelay,20,25

i=0
pr=notepad.exe
sc=ahk_exe notepad.exe
IfWinNotExist,%sc%
 {
 Run, %pr%,,,pid2
 WinWait,%sc%
 }
IfWinNotActive ,%sc%,,WinActivate,%sc%
    WinWaitActive,%sc%
txt=
(Ltrim join`r`n
Line1  aaa
Line2  bbb
Line3  ccccccc
Line4  dd
)
stringsplit,k,txt,`n
           total:=k0
return
esc::exitapp

$!a::
i++
if (i>total)
return 
d:= % k%i%
;controlsendraw,,%d%,ahk_pid %pid2%
sendinput, % "{raw}" . d
return
Atamo
Posts: 7
Joined: 20 Oct 2018, 00:33

Re: Lista de texto

28 Nov 2018, 14:06

Gracias chicos son lo maximos <3

Return to “Pedir Ayuda”

Who is online

Users browsing this forum: No registered users and 2 guests