Загрузка записной книжки в Remote Administrator

[CheaterUA]

Во!

Почти получилось.


Беда теперь в том что в строку "адрес" скрипт грузит все строку вместе с именем компа и владельцем

 

[axlwor]

http://autoit-script.ru/index.php?topic=7168.msg49413#msg49413

 

[CheaterUA]

Точно, забыл об этом!
Спасибо. Дальше уже сам!

 

[axlwor]

#include <file.au3>
#include <array.au3>

; get file name
$saFile = FileOpenDialog( "Select file with computer names", @WorkingDir & "\", "All (*.*)", 1 )
If @error Then
    MsgBox( 0, "Error","No file selected" )
    Exit
EndIf

Dim $aRecords
If Not _FileReadToArray($saFile,$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

Dim $aArray[$aRecords[0]][3]

For $i = 1 To $aRecords[0]
	$aA1 = StringSplit($aRecords[$i], '   ', 1) ; три пробела
	For $j = 1 To 3
		$aArray[$i-1][$j-1] = StringStripWS($aA1[$j], 1+2)
	Next
Next

_ArrayDisplay($aArray)

 

[CheaterUA]

Так не хочет:
Array variable has incorrect number of subscripts or subscript dimension range exceeded.
$aArray[$i-1][$j-1] = StringStripWS($aA1[$j], 1+2)
$aArray[$i-1][$j-1] = StringStripWS(^ ERROR

 

[axlwor]

с этим файлом у меня работает
http://dl.dropbox.com/u/28295011/Array.png

 

[CheaterUA]

У меня получается процедура разделения на колонки работает правильно, но потом при загрузке в диалог радмина - опять грузить все одной строкой.

 

[axlwor]

так и будет, пока ты не раскроешь страшный секрет
какое значение то добавлять?

 

[CheaterUA]

Col2 - в поле "Name" и Col0 - в поле "IP/Name"

 

[axlwor]

#include <file.au3>
#include <array.au3>

; get file name
$saFile = FileOpenDialog( "Select file with computer names", @WorkingDir & "\", "All (*.*)", 1 )
If @error Then
    MsgBox( 0, "Error","No file selected" )
    Exit
EndIf

Dim $aRecords
If Not _FileReadToArray($saFile,$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

Dim $aArray[$aRecords[0]][3]

For $i = 1 To $aRecords[0]
	$aA1 = StringSplit($aRecords[$i], '   ', 1) ; три пробела
	For $j = 1 To 3
		$aArray[$i-1][$j-1] = StringStripWS($aA1[$j], 1+2)
	Next
Next

For $i = 0 To UBound($aArray) - 1
	WinActivate( "Radmin Viewer" )
	Send( "{INSERT}" )
	ClipPut($aArray[$i][2])
	WinWait('[CLASS:#32770]')
	Send( "^v" )
	Sleep(300)
	Send( "+{Tab}")
	ClipPut($aArray[$i][0])
	Send( "^v" )
	Sleep(300)
	Send( "{ENTER}" )
Next

 

[CheaterUA]

ClipPut($aArray[$i][0])
    Send( "^v" )
    Sleep(300)
	Send( "+{Tab}")
	ClipPut($aArray[$i][2])
    WinWait('[CLASS:#32770]')
    Send( "^v" )
    Sleep(300)

Вот так правильно. Огромнейшее спасибо за помощь!
Теперь буду на больших объемах пробовать.