AutoHotkey Community

AlphaBravo

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(...

AlphaBravo

blad4 wrote: ↑
18 Dec 2019, 17:25
How do we further simplify and just extract the '208' only.
Or if the input is 142, we get 210, 145 we get 212 etc

What kind of input is it going to be (variable/user input/clipboard..)?
What if the input is not a start of a "pattern" 140, 141 etc.?

AlphaBravo

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...

AlphaBravo

Code: Select all

Clipboard := RegExReplace(Clipboard, "`as)^.*\R(\V+)\R*$", "$1")
MsgBox % Clipboard

AlphaBravo

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,...

AlphaBravo

totalTime := stop - start needs to be inside the loop

AlphaBravo

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...

AlphaBravo

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...

AlphaBravo

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...

AlphaBravo

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
	}
}

AlphaBravo

just me wrote: ↑
19 Feb 2019, 03:49
Not quite.
RegEx - Quick Reference wrote:\w ... This is equivalent to [a-zA-Z0-9_]. ...

fair enough

AlphaBravo

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+)-...

AlphaBravo

try this

Code: Select all

path := "c:\a.xlsx"
WB := ComObjGet(path)
xl := WB.Application

AlphaBravo

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...

AlphaBravo

LV_GetNext()

AlphaBravo

this code is based on the assumption that all lines end with "ClearDX" HTN := "HTN,CBC,CMP" ;,ClearDX" HLD := "HLD,CMP,Lipid_Pane" ;,ClearDX" T2DM := "T2DM,A1c,CMP,UrineMA" ;,ClearDX" Anemia := "Anemia,CBC,Ferritin,TIBC" ;,ClearDX" Diags_Present := "HLD,T2DM," ; example present := [] for each, diag ...

AlphaBravo

this If ((character ~= "p|.")) means "p" or anything, change to If ((character ~= "p|\."))

AlphaBravo

Code: Select all

string = sd12354fg14582gh25468jj54582rr45821lk45896qq7854
MsgBox % string := Trim(RegExReplace(string , "[a-zA-Z]+\d+", "$0 "), " ")

AlphaBravo

Screen Clipping

AlphaBravo

to catch other domains as well as ".com"

Code: Select all

myVariable =
(
Input: https://mysite.myorginzation.com:8443
Input: https://mysite.myorginzation.org/page/app.aspx
Input: ftp://mysite.myorginzation.net
)

while pos := RegExMatch(myVariable, "://\K([^/:\s]+)", m, A_Index=1?1:pos+StrLen(m))
	MsgBox % m1

Search found 470 matches

Re: Constantly display the last five lines of an Excel or CSV file

Re: Finding a pattern

Re: Finding a pattern

Re: How to remove all the lines except last one from the clipboard Topic is solved

Re: Exclude Specific Locations in File Listing Loop Topic is solved

Re: Running Loop for a Limited Amount of Time Topic is solved

Re: workday

Re: Adjust vertical mouse sensitivity?

Re: Need to sum duplicate value and price

Re: AHK: Excel_Autofilter

Re: regex question Topic is solved

Re: regex question Topic is solved

Re: How to get handle to specific excel file among multiple opened excel files?

Re: How to add text to a text file (encoding!) Topic is solved

Re: How to get the line number of the currently selected row in the Listview? Topic is solved

Re: HELP: Strings? Arrays? A-Arrays?

Re: I need help to see why my label containing an if statement doesn't get triggered. Topic is solved

Re: parse a string with regex delimiter

Re: Help with screen snipping

Re: Extract hostname from URL?