Lista de texto Topic is solved

[Atamo]

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.

[Flipeador]

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

[Atamo]

me sirvió muchas gracias

[Atamo]

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]

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]

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]

Gracias chicos son lo maximos <3