Search found 476 matches
- 16 May 2020, 21:19
- Forum: Ask For Help
- Topic: How to convert numbers to Arabic numerals Topic is solved
- Replies: 13
- Views: 554
Re: How to convert numbers to Arabic numerals Topic is solved
it messes up the quotation. which quotation? how is it messed up? I can't test it because I don't have any foreign keyboards or other languages installed, but you may want to try A_Language to setup different "quotation" based on your keyboard if (A_Language = 0409) MsgBox % "English_United_States"...
- 16 May 2020, 14:05
- Forum: Ask For Help
- Topic: How to convert numbers to Arabic numerals Topic is solved
- Replies: 13
- Views: 554
Re: How to convert numbers to Arabic numerals Topic is solved
hope it helps db := {1:"الفاتحة", 2:"البقرة", 3:"آل عمران", 4:"النساء", 5:"المائدة", 6:"الأنعام", 7:"الأعراف", 8:"الأنفال", 9:"التوبة", 10:"يونس" ,11:"هود", 12:"يوسف", 13:"الرعد", 14:"إبراهيم", 15:"الحجر", 16:"النحل", 17:"الإسراء", 18:"الكهف", 19:"مريم", 20:"طه" ,21:"الأنبياء", 22:"الحج", 23:"المؤمن...
- 16 May 2020, 11:31
- Forum: Ask For Help
- Topic: How to convert numbers to Arabic numerals Topic is solved
- Replies: 13
- Views: 554
Re: How to convert numbers to Arabic numerals Topic is solved
a little spin to Rohwedder's script chars := {0:"۰", 1:"۱", 2:"۲", 3:"۳", 4:"٤", 5:"٥", 6:"٦", 7:"٧", 8:"۸", 9:"۹"} myString := "123`n10-15`n10 - 15" myString := RegExReplace(myString, "(\d+)(\s*-\s*)(\d+)", "$3$2$1") ; swap range, Arabic language goes from right to left For find, replace in chars m...
- 21 Apr 2020, 13:26
- Forum: Ask For Help
- Topic: script does not stop clicking Topic is solved
- Replies: 3
- Views: 244
Re: script does not stop clicking Topic is solved
actually it should be
no need to loop at all or toggle, but to answer your question "Break"
Code: Select all
F2:: ; Change this to any hotkey you prefer
PixelSearch, X, Y, 0, 0, A_ScreenWidth, A_ScreenHeight, 0x46473F, , Fast
If !ErrorLevel
{
MouseMove, %X%, %y%
Click , Left
}
return
- 21 Apr 2020, 13:15
- Forum: Ask For Help
- Topic: script does not stop clicking Topic is solved
- Replies: 3
- Views: 244
Re: script does not stop clicking Topic is solved
update your loop code to:
Code: Select all
F2:: ; Change this to any hotkey you prefer
Toggle := !Toggle
Loop
{
PixelSearch, X, Y, 0, 0, A_ScreenWidth, A_ScreenHeight, 0x46473F, , Fast
If !ErrorLevel
{
MouseMove, %X%, %y%
Click , Left
}
break
}
return- 18 Apr 2020, 12:38
- Forum: Ask For Help
- Topic: Regular Expression help, please.
- Replies: 4
- Views: 322
Re: Regular Expression help, please.
Code: Select all
Text = aa x1.2 bb x2.3 cc x45 ddd x1.2 ee x8
while pos := RegExMatch(Text, "x(\d+)", m, A_Index=1?1:pos+StrLen(m))
Text := RegExReplace(Text, "x\K\d+", m1+10,, 1, pos)
MsgBox % text- 24 Jan 2020, 17:26
- Forum: Ask For Help
- Topic: Constantly display the last five lines of an Excel or CSV file
- Replies: 4
- Views: 434
Re: Constantly display the last five lines of an Excel or CSV file
give this a try: Gui, +AlwaysOnTop Gui, font, S12 Consolas Gui, add, edit, w500 r6 vLast5 Gui, show SetTimer, ReadCSV, 5000 ; 5 seconds, adjust timer frequency as you wish return GuiClose: ExitApp return ReadCSV: FileRead, data, Scan Log 01-23-2020-03.csv data := Trim(data, "`r`n") line := StrSplit(...
- 18 Dec 2019, 20:42
- Forum: Ask For Help
- Topic: Finding a pattern
- Replies: 5
- Views: 657
- 17 Dec 2019, 17:03
- Forum: Ask For Help
- Topic: Finding a pattern
- Replies: 5
- Views: 657
Re: Finding a pattern
S1 := 1, S2 := 70, S3 := 139, S4 := 208 Loop, 23 { line := S3 "-" S3+2 " : " S4 "-" S4+1 res .= line "`n" S3 += 3 S4 += 2 } MsgBox, 262144, ,% res ; opposite direction S1 := 1, S2 := 70, S3 := 139, S4 := 208 res := "" Loop, 23 { line := S4 "-" S4+1 " : " S1 "-" S1+2 res .= line "`n" S1 += 3 S4 += 2...
- 08 Aug 2019, 14:00
- Forum: Ask For Help
- Topic: How to remove all the lines except last one from the clipboard Topic is solved
- Replies: 8
- Views: 1059
Re: How to remove all the lines except last one from the clipboard Topic is solved
Code: Select all
Clipboard := RegExReplace(Clipboard, "`as)^.*\R(\V+)\R*$", "$1")
MsgBox % Clipboard
- 08 Aug 2019, 13:51
- Forum: Ask For Help
- Topic: Exclude Specific Locations in File Listing Loop Topic is solved
- Replies: 7
- Views: 995
Re: Exclude Specific Locations in File Listing Loop Topic is solved
give this a try: ExcludeDir := "i)\Q" Windir "\E|\Q" AppData "\E|\Q" ProgramData "\E|\Q" ProgramFiles "\E" Loop, Files, c:\*, DR { if RegExMatch(A_LoopFilePath, ExcludeDir) { MsgBox, , Skipping this folder, % A_LoopFilePath continue } Loop, Files, % A_LoopFilePath "\*.txt" MsgBox ,, % A_LoopFileDir,...
- 10 Jul 2019, 19:31
- Forum: Ask For Help
- Topic: Running Loop for a Limited Amount of Time Topic is solved
- Replies: 2
- Views: 499
Re: Running Loop for a Limited Amount of Time Topic is solved
totalTime := stop - start needs to be inside the loop
- 22 Mar 2019, 13:25
- Forum: Ask For Help
- Topic: workday
- Replies: 5
- Views: 1187
Re: workday
MsgBox % WorkDay(20190322, 2, [20190326, 20190327]) MsgBox % WorkDay(20190322, 2) return WorkDay(Start_Date, Days, Holidays := ""){ WorkDay_Loop: while Days { Start_Date++ FormatTime, WeekDay , % Start_Date, WDay if WeekDay in 1,7 continue for each, Holiday in Holidays if (Start_Date = Holiday) con...
- 20 Mar 2019, 08:58
- Forum: Ask For Help
- Topic: Adjust vertical mouse sensitivity?
- Replies: 6
- Views: 1571
Re: Adjust vertical mouse sensitivity?
this seems to work SPI_GETMOUSESPEED = 0x70 SPI_SETMOUSESPEED = 0x71 DllCall("SystemParametersInfo", UInt, SPI_GETMOUSESPEED, UInt, 0, UIntP, OrigMouseSpeed, UInt, 0) return Tab:: MouseGetPos, mx1, my1 while GetKeyState("Tab", "P") { MouseGetPos, mx2, my2 if (mx1 = mx2) && (my1 <> my2) ; vertical mo...
- 19 Mar 2019, 11:00
- Forum: Ask For Help
- Topic: Need to sum duplicate value and price
- Replies: 7
- Views: 1252
Re: Need to sum duplicate value and price
data = (C Invoice No Invoice Date Pt Name Address Customer ID Old Customer ID Order No Order Date Delivery No Delivery Date Our Reference Item ID Unit Unit Price Item Name HCPC Code Total Price Discount Contract Allowed Net Price (Item) Pt Share (Item) Pt Resp (Item) SubTotal Oth Resp Invoice Total...
- 24 Feb 2019, 13:09
- Forum: Ask For Help
- Topic: AHK: Excel_Autofilter
- Replies: 3
- Views: 760
Re: AHK: Excel_Autofilter
I think you have to loop through visible cells
Code: Select all
for c in xl.Worksheets(1).AutoFilter.Range.Columns("E").SpecialCells(12)
{
if A_Index = 2 ; second row after title
{
MsgBox % c.address " = " c.value
break
}
}- 19 Feb 2019, 21:00
- Forum: Ask For Help
- Topic: regex question Topic is solved
- Replies: 6
- Views: 1247
- 18 Feb 2019, 21:41
- Forum: Ask For Help
- Topic: regex question Topic is solved
- Replies: 6
- Views: 1247
Re: regex question Topic is solved
I am guessing this is what you're looking for variable = abcd-567 ; or 12abcd-567 if RegExMatch(variable,"((?:\d|\w)+)-(\d+)",vars) msgbox,% vars1 . "_" . vars2 ; or if RegExMatch(variable,"((\d|\w)+)-(\d+)",vars) msgbox,% vars1 . "_" . vars3 ; or variable = 12abcd-567 if RegExMatch(variable,"(\w+)-...
- 10 Feb 2019, 12:17
- Forum: Ask For Help
- Topic: How to get handle to specific excel file among multiple opened excel files?
- Replies: 19
- Views: 3623
Re: How to get handle to specific excel file among multiple opened excel files?
try this
Code: Select all
path := "c:\a.xlsx"
WB := ComObjGet(path)
xl := WB.Application
- 05 Feb 2019, 16:04
- Forum: Ask For Help
- Topic: How to add text to a text file (encoding!) Topic is solved
- Replies: 18
- Views: 2955
Re: How to add text to a text file (encoding!) Topic is solved
try the following, it didn't change encoding for me File := A_ScriptDir . "\Test.txt" ; Encoding unknown! AddStr := "Add this line." file := FileOpen(File, "rw") if !IsObject(file) { MsgBox Can't open "%File%" return } fileContents := file.Read() file.Position := 0 file.Write(AddStr "`r`n" fileConte...