AutoHotkey Community

hd0202

In my opinion you need not know if the file is readonly ! You want to rename it in any case, readonly or not. Therefore you do not need to get to the second child window, you can modify your script to reach your goal with one ENTER. And I suggest to not use the LBUTTON hotkey so that you can easy br...

hd0202

You are one msgbox too late with your hotkey. With the first msgbox, EDIT1 contains the name of your selected file, if it already exists, and you change the fileattribute to -R, even when it is alredy -R. Sorry for my incorrect reply, I try to make it clear: You are one window too late with your ho...

hd0202

but am I doing something wrong in this code? NO, the problem is your handling ! You are one msgbox too late with your hotkey. With the first msgbox, EDIT1 contains the name of your selected file, if it already exists, and you change the fileattribute to -R, even when it is alredy -R. You can even t...

hd0202

sorry, I misunderstood the problem. Add the following hotkey to your script to change the attribute: #j:: ControlGetText, ifield , Edit1, choose any file ; msgbox, % ifield FileSetAttrib,-R,% a_scriptdir "\" ifield ; FileGetAttrib,attr,% a_scriptdir "\" ifield ; msgbox, % attr return When you select...

hd0202

look for a line like

Code: Select all

??? := Com???("???.application")

Hubert

hd0202

from the docu, modified

Code: Select all

FileGetAttrib, Attributes, % selectedfile
if InStr(Attributes, "R")
    MsgBox The file is read-only.

Hubert

hd0202

^NumpadEnter:: ; Ctrl+numpadEnter hotkey loop { SendRaw % MyRange.Cells(CellNumber).Text ; Send the current cell specified by 'CellNumber' CellNumber++ ; Increase 'CellNumber' by one if (CellNumber > CellCount) { ; If 'CellNumber' is greater than the total amount of cells... MsgBox, 64, Info, Finis...

hd0202

schon mal an RunWait gedacht ?
Hubert

hd0202

you say you use ESPRIT CAM at work. Do you have access to sample programs written in VBA (Microsoft Visual Basic for Applications) ? They must use this code for connection.

Hubert

hd0202

Code: Select all

FileRead, String, result.txt
stringreplace, string, string, % chr(12), , all   ; <===

Hubert

hd0202

you missed (at least) one comment in my version:

Code: Select all

F1:: Gui, Show, xCenter yCenter, Actions

Send {Click}
Sleep 100
Send {Click}
return	; <== line missing

Hubert

hd0202

entweder simple format

Code: Select all

if 1_Test != ERROR

oder expression format

Code: Select all

if (1_Test != "ERROR")

Hubert

hd0202

die lange Zeit entsteht durch die Rekursion "RD", dadurch wird das Laufwerk "P" vollständig durchsucht (alle Ordner und Unterordner und ... und ...) genügt es nicht, nach der Projektnummer zu suchen ? F9:: Loop Files, P:\2551-*, D { MsgBox, 4, , Dateiname = %A_LoopFileFullPath%`n`nWeiter? IfMsgBox, ...

hd0202

the result of my tests:

the regex tester accepts the "^" as start of a(ny) line of a multiline pattern

AutoHotkey accepts the "^" as start of the haystack of a multiline pattern, even with the "m"option

Hubert

hd0202

to avoid empty message boxes:

Code: Select all

...
ClipWait,2
If CheckStatus(Clipboard)
	MsgBox % CheckStatus(Clipboard)

Hubert

hd0202

without "

Code: Select all

StringReplace, clipboard, clipboard, `t, , All   ;trying to remove tabs

Hubert

hd0202

if you want help from this forum, you should show your complete code or a working "basic concept" of your code at least ! Please look at my comments marked with "<==" in the following running "basic concept": Gui, Add, TreeView, gAction ; <== line missing, not even a gui defined !! P1 := TV_Add("Wes...

hd0202

füge ein G-Label zur Listview hinzu, z.B: gHeader und ergänze die folgende Routine: Header: if (a_guievent = "colclick") and (a_eventinfo = 5) { LV_ModifyCol(6, "Sort") LV_ModifyCol(5, "Sort") } if (a_guievent = "colclick") and (a_eventinfo = 6) { LV_ModifyCol(5, "Sort") LV_ModifyCol(6, "Sort") } re...

hd0202

here is my suggestion for your script, please have a look at my comments inside, one is very important: ModificationTimeOld := {} ModificationTimeNew := {} Files1 := ["foo.txt", "bar.txt", "baz.txt"] Files2 := ["foo.png", "bar.png", "baz.png"] for Index, File in Files1 { FileGetTime, TimeNew, % File...

hd0202

Use the variable "Count" after "StrReplace( ... )" to decide if you delete the file and recreate it.

Hubert

Search found 140 matches

Re: FileSelectFile(Save) on Read-Only Files Topic is solved

Re: FileSelectFile(Save) on Read-Only Files Topic is solved

Re: FileSelectFile(Save) on Read-Only Files Topic is solved

Re: FileSelectFile(Save) on Read-Only Files Topic is solved

Re: trying to find name for COM Object for this application

Re: FileSelectFile(Save) on Read-Only Files Topic is solved

Re: Need Help with a Looping a script (beginner)

Re: Externe Software suchen und anwenden

Re: trying to find name for COM Object for this application

Re: How to remove FF or bold up arrow sign from .txt file

Re: Help - Using Selection from TreeView

Re: Fehlerbehandlung von .ini Datei Topic is solved

Re: Ordner Suchen

Re: Regex Issues

Re: AHK Webpage Search

Re: remove all tabs from clipboard headache

Re: Help - Using Selection from TreeView

Re: ListView, Sortierung nach verschiedenen Kriterien Topic is solved

Re: A problem with nested for-loop

Re: Replace string if string exists