ClipReadToArray

[layer]

I know, I know, you could probably make it shorter by using _FileReadToArray... But when you compile a program, do you want the whole File.au3 in it? When you're only using one function from it? Thought so This is almost indentical to _FileReadToArray but, oh well...

Func _ClipReadToArray(ByRef $a_ArrayData); ByRef there because $a_ArrayData may change
   Local $v_Clip, $h_TmpFile; Declaring Local strings
   $v_Clip = ClipGet(); Get data from clipboard
   FileWrite(@TempDir & "\ClipReadToArray.tmp", $v_Clip); write that data to a file in the TempDir
   $h_TmpFile = FileOpen(@TempDir & "\ClipReadToArray.tmp", 0); Get window handle of file written for easy access of it
   If $h_TmpFile = -1 Then Return 0; if autoit cant open this file, return 0, which initially quits the program
   $a_ArrayData = StringSplit(FileRead($h_TmpFile, FileGetSize(@TempDir & "\ClipReadToArray.tmp")), @LF); split the file into lines
   FileClose($h_TmpFile); close the file
   FileDelete(@TempDir & "\ClipReadToArray.tmp"); delete the file created
   Return 1; return success
EndFunc  ;==>_ClipReadToArray

Dim $a_ArrayData
If Not _ClipReadToArray($a_ArrayData) Then Return 0
For $i = 1 To $a_ArrayData[0]
   MsgBox(0, "ClipReadToArray", "Line " & $i & ": " & $a_ArrayData[$i])
Next

[Jos]

Layer, why are you writing it to disk first ?

Why not like this: ?

Func _ClipReadToArray(ByRef $a_ArrayData); ByRef there because $a_ArrayData may change
   $a_ArrayData = StringSplit(ClipGet() , @LF); split the file into lines
   Return 1                 ; return success
EndFunc ;==>_ClipReadToArray

[layer]

Your right