AutoHotkey Community

Loop, %	StrLen(inputvar)
	SearchArray[A_Index] :=	SubStr(inputvar, A_Index, 1)

StrSplit() will take care of this automatically:

Code: Select all

SearchArray :=	StrSplit(inputvar)

What application is this? Is the object reference online?

If you copy the range to the Clipboard, you can use two parsing loops: first one by newline, second by tab.

Code: Select all

Loop, Parse, Clipboard, `n, `r
	Loop, Parse, A_LoopField, `t
		MsgBox %	A_LoopField

DRocks, For -loops cannot parse a SafeArray in that way. SafeArray := xlCOM.Range("D" FirstRow ":N" LastRow).Value Loop % SafeArray.MaxIndex(1) { i := A_Index Loop % SafeArray.MaxIndex(2) MsgBox % SafeArray[i,A_Index] } Or: SafeArray := xlCOM.Range("D" FirstRow ":N" LastRow) ; no .Value For row in S...

ktbjx,

I'm not seeing where the SafeArrays that you're trying to modify the data for were actually created. Take HEADERArray, for example. Did you copy this data out of Excel as a SafeArray? Or did you manually create it as a SafeArray?

Code: Select all

StandardVariables(strTitle)
{
	;DETERMINE FILE NAME;
	strFile = %A_ScriptFullPath%
	SplitPath, strFile,,,, strTitle
	return	strTitle	; <~ no percent signs
}

I can modify elements within a SafeArray in exactly the manner that you demonstrate, so I think posting your code would be appropriate in this instance.

Manipulating the data within a range of cells will be much faster and easier in a SafeArray as opposed to looping through cells via COM. I thought your question pertained to how to put the data back into Excel when you are finished doing that.

rommmcek wrote: ↑
11 Feb 2019, 20:38
@ sinkfaze: Your function gives me five hundred sixty-five billion - million three hundred sixty-four thousand nine hundred thirty-five for 565096364935. Is there a bug?

No, just bad copying and pasting from my tester function, it's fixed now. Sorry about that!

I saw it mentioned somewhere on the forums that someone was trying to translate numbers into their text equivalents, so I decided to take a stab at the problem with my own function. It has been tested but not rigorously, and it doesn't feel like it's as efficient as it should be, so any suggestions ...

Look at your first loop, for example: cHead := 2 loop, % HEADERArray.MaxIndex() { oWorkbook.Worksheets("HEADER").Range("A1:Z"cHead).Value := HEADERArray[cHead, 1] cHead++ } Your range changes but you're only pulling a single value from the SafeArray, so no matter what it will always push that one va...

Code: Select all

For i, data in arrDataFile
{
	if	!Mod(i,2)
	{
		; do things
	}
}

Code: Select all

#q::
IniRead, OutputVar, C:\hotkey\ipadress.ini, section1, key
Send %OutputVar%{Enter}
setformat, float, 03.0
if	not number
	number = %OutputVar%
number +=	1
IniWrite, %	SubStr("0" number,-1), C:\hotkey\ipadress.ini, section1, key
return

Whoops, I read your code wrong the first time, sorry about that! Glad you've got it working!

Code: Select all

Loop, 4
	if	(SubStr(A_IPAddress%A_Index%,-2) = "128")
		Ipaddress :=	A_IPAddress%A_Index%

I like it myself, pre-empted one spammer right away already this morning. Of course it won't always be that easy, but I'll take a softball every now and again.

IMEime,

You will receive a temporary ban if you behave in this manner again. It is wholly inappropriate.

Perhaps it's time to bring the user group "Spam Officer" back... It never went away . At any rate, it doesn't matter what a team member's title is, the fact is that we're all people volunteering our time to moderate the forums. If you feel that you would make a suitable Spam Officer contact one of ...

So just to clarify, for #1 you trying to convert 'burpose' to 'purpose', and for #2 you are trying to convert 'my' to 'me'. Is that correct?

Lexikos' method will obviously be the fastest for decomposing correctly, as per his note of its shortcomings I modified his code to be more comprehensive. Not complete, but much better: MsgBox % StrUnmark("ÁáÀàÂâǍǎĂăÃãẢảẠạÄäÅåĀāĄąẤấẦầẪẫẨẩẬậẮắẰằẴẵẲẳẶặǺǻĆćĈĉČčĊċÇçĎďĐđÐÉéÈèÊêĚěĔĕẼẽẺẻĖėËëĒēĘęẾếỀềỄễỂểẸẹ...

Search found 520 matches

Re: need help loop reading to clipboard

Re: Accessing ComObj of an Application

Re: How to copy Excel rows and process data

Re: How to save safearray to excel?

Re: How to save safearray to excel?

Re: Returning a String from a function Topic is solved

Re: How to save safearray to excel?

Re: How to save safearray to excel?

Re: Num2Text function

Num2Text function

Re: How to save safearray to excel?

Re: odd or even

Re: When increasing the Zero at the start disappear? Topic is solved

Re: Can this code be optimized? Topic is solved

Re: Can this code be optimized? Topic is solved

Re: Yellow user names

Re: Office365 Excel COM problem

Re: Requesting an Admin to handle a spam post

Re: String Replace, pleas help

Re: Replacing áéíóúâôûë accented characters Topic is solved