Code: Select all
str =
(
Tim Bob John "Sam" Bill Tom Joe
Tim Bob "John" Sam Bill Tom Joe Art
Tim Bob Sam Tom Art "Bill"
)
MsgBox, 64, Result, % new := RegExReplace(str, """(.*?)""", "($1)")
Code: Select all
str =
(
Tim Bob John "Sam" Bill Tom Joe
Tim Bob "John" Sam Bill Tom Joe Art
Tim Bob Sam Tom Art "Bill"
)
MsgBox, 64, Result, % new := RegExReplace(str, """(.*?)""", "($1)")
Code: Select all
~q::SendInput qq
Code: Select all
vComputer = Samantha
Run, %A_ScriptDir%\test.cmd "%vComputer%"
Code: Select all
@echo off
echo:
echo %~1
echo:
Pause
Code: Select all
file := A_ScriptDir "\test.txt", x := ["onmessage","DllCall","ShellMessage"], list := ""
For k, v in x
list .= v "`n"
Sort, list
FileAppend, %list%, %file%
Run, %file%
Code: Select all
tabStop := 35, ttext := ""
str =
(
onmessage [function]
DllCall [function]
ShellMessage [function]
)
For k, v in StrSplit(str, "`n")
part := StrSplit(RegExReplace(v, "\h+", "`t"), "`t"), ttext .= Format("`n{:" -1 * tabStop "}{}", part.1, part.2)
ttext := SubStr(ttext, 2)
SendInput %ttext%
Explained: Radio buttonsSpecify the word Checked in Options to have the button start off in the "on" state.
Code: Select all
CoordMode, Pixel
Loop, 10 {
ImageSearch,,, 0, 0, A_ScreenWidth, A_ScreenHeight, D:\IMAGES\MINE\23 IMPORT DA\1 IMPORT DA SCHWARZ.png
If !ErrorLevel {
InstantExplorer("D:\\1990 Mausprogramm")
Break
} Else Sleep, 50
}
Return
Code: Select all
RunWait, %ComSpec% /k "test1.cmd %vComputer%", %A_WorkingDir%
Code: Select all
wb := ComObjGet(A_Desktop "\PlanilhaSuporte.xlsx"), n := 0
F1::
Clipboard =
Clipboard := wb.Sheets("Plan1").Cells(++n, 1).Value
ClipWait, 0
If ErrorLevel
MsgBox, 64, Done, Done!
Else MsgBox, %Clipboard%
Return
Code: Select all
#MaxThreadsPerHotkey 2
cps := 3, nClicks := 5, wait := 500
^F8::
SetMouseDelay, 0
on := !on
While on {
SoundBeep, 1800, 30
Loop, %nClicks% {
Click
Sleep, on * 1000 / cps
} Until !on
Sleep, on * wait
}
SoundBeep, 1000, 30
Return