NotepadArrayDisplay

[Laymanball]

MyScript. NotepadArrayDisplay Library Function

;================Script sample===============
MsgBox(64, "", "Vert Array")
Dim $Array[4]
$Array[0]=1
$Array[1]=2
$Array[2]=3
$Array[3]=4
_NotepadArrayDisPlay($Array, "Array Display")
MsgBox(64, "", "Hori Array")
Dim $Array[4]=["A","B","C","D"]
_NotepadArrayDisPlay($Array, "Array Display")
;===============Notepad Array Display Library================
Global $Array, $Title
Func _NotepadArrayDisPlay($Array, $Title)
Dim $Output="", $Element
For $Element In $Array
$Output=$Output&$Array&$Element&@CRLF
Next
Run("Notepad.exe")
WinWaitActive("[Class:Notepad]")
WinSetTitle("[Class:Notepad]", "", $Title)
ControlSetText("[Class:Notepad]", "", "Edit1", $Output)
EndFunc ;NotepadArrayDisplay

Auto Sending : HighLight text (Select All)on the Edit (Notepad)

Local $TextMessage = "Hello World!"&@CRLF&"I Love AutoIt"&@CRLF&"Laymanball"
Local $TextEdit = "Notepad.exe"
Local $FileInfo = "readme.txt"
If FileExists($FileInfo)Then FileDelete($FileInfo)
If Not ProcessExists($TextEdit)Then Run($TextEdit)
WinWait("[Class:Notepad]")
ControlSetText("[Class:Notepad]", "", "Edit1", $TextMessage)
Sleep(1000)
WinMenuSelectItem("[Class:Notepad]", "", "&Edit", "Select &All")
Sleep(1000)
WinMenuSelectItem("[Class:Notepad]", "", "&File", "&Save")
WinWait("Save As")
ControlFocus("Save As", "", "[CLASS:Edit; INSTANCE:1]"&Send("readme.txt"))
Sleep(1000)
ControlFocus("Save As", "", "[CLASS:Edit; INSTANCE:2]"&Send("{Enter}"))
Sleep(1000)
WinClose("[Class:Notepad]")
Sleep(1000)
ShellExecute($FileInfo)
WinWait("[Class:Notepad]")
WinSetTitle("[Class:Notepad]", "", "readme.txt - ready")

Edited October 16, 2011 by Laymanball

[JohnOne]

What about it?

[Laymanball]

Use for sending text to the Notepad by Array command.

[JohnOne]

Okay, are you having a problem with it?

[Ramzes]

Where is a question? It's General Help and Support forum.

If you want to show your code write here. But please don't post this script there. Your code is useless.

[Mikeman27294]

Also, if you mean for this to be an example script, you should explain what it does so that people can use it, rather than just look straight past the script, because most people wont read the script, but the explaination.

[JohnOne]

Where is a question? It's General Help and Support forum.<br> If you want to show your code write <a data-cke-saved-href="forum/9-example-scripts/" href="forum/9-example-scripts/" class="bbc_url" title="">here</a>. But please don't post this script there. Your code is useless.

Turns out the OP is barred from posting rubbish scripts in example forums.

[Laymanball]

Okay, are you having a problem with it?

Yes, I'm having a problem with it.

I can't writting array2d sending to the notepad.

Please help me.

Edited October 16, 2011 by Laymanball

[Laymanball]

My script is rubbish scripts in the forums?!?. yes or no?

Please open wide. For beginners.

Edited October 16, 2011 by Laymanball

[JohnOne]

#include <Array.au3>
;================Script sample===============
;MsgBox(64, "", "Vert Array")
;Dim $Array[4]
;$Array[0]=1
;$Array[1]=2
;$Array[2]=3
;$Array[3]=4
;_NotepadArrayDisPlay($Array, "Array Display")
MsgBox(64, "", "Hori Array")
Dim $Array[4][2] = [["A", 1],["B", 2],["C", 3],["D", 4]] ; you can make your 2D array like this
_NotepadArrayDisPlay($Array, "Array Display")
;===============Notepad Array Display Library================
Global $Array, $Title
Func _NotepadArrayDisPlay($Array, $Title)
Dim $Output = "", $Element
For $Element = 0 To 3 ;loop through it
  $Output &= $Array[$Element][0] & $Array[$Element][1] & @CRLF
Next
Run("Notepad.exe")
WinWaitActive("[Class:Notepad]")
WinSetTitle("[Class:Notepad]", "", $Title)
ControlSetText("[Class:Notepad]", "", "Edit1", $Output)
EndFunc   ;==>_NotepadArrayDisPlay

[Laymanball]

JohnOne

Thanks. For your new script.

I will study and learn to write.

[JohnOne]

OK, but there is not much change there, all I changed is the declaration of one array instead of two, its commented, and the For...In...Next = For...To...Next

Good luck, and remember, the clearer you pose any question you might have, the better and more precise any answer will be.