[Массивы] Построчное использование данных из таблицы Excel

[rout]

Здравствуйте,
Поясните мне про массивы, на примере таблицы в Excel, как организовать массив и как данные из него построчно использовать. Не могу себе представить как это "выглядит".

В таблице три колонки: А1, B1, С1 и 200 строк. А1 и B1 содержат в себе данные, которые используются в дальнейшем А1 как имя файла, а B1 - его основа (текст), а в С1 нужно записывать некий результат на основе А1.

 

[InnI]

Для версии AutoIt 3.3.12.0

#include <Excel.au3>
#include <Array.au3> ; для просмотра массивов

; создаём объект
$oExcel = _Excel_Open()

; открываем файл
$oBook = _Excel_BookOpen($oExcel, @ScriptDir & "\test.xls")

; читаем всю таблицу в массив
$aRange = _Excel_RangeRead($oBook)
_ArrayDisplay($aRange) ; проверяем

; создаём новый массив, в который
; будем сохранять результат действий
; и который будет колонкой "C"
; размер этого массива будет, как у прочитанного
Global $aC[UBound($aRange)]

; перебираем строки прочитанной таблицы
; делаем с ними что-то и
; сохраняем в соответствующем элементе
; созданного массива
For $i = 0 To UBound($aRange) - 1
  $aC[$i] = $aRange[$i][0] & ":" & $aRange[$i][1]
Next
_ArrayDisplay($aC) ; проверяем

; записываем массив с результатами в колонку "C"
_Excel_RangeWrite($oBook, Default, $aC, "C1")

; закрываем файл с сохранением
_Excel_Close($oExcel)

 

[rout]

Для версии AutoIt 3.3.12.0

Спойлер

#include <Excel.au3>
#include <Array.au3> ; для просмотра массивов

; создаём объект
$oExcel = _Excel_Open()

; открываем файл
$oBook = _Excel_BookOpen($oExcel, @ScriptDir & "\test.xls")

; читаем всю таблицу в массив
$aRange = _Excel_RangeRead($oBook)
_ArrayDisplay($aRange) ; проверяем

; создаём новый массив, в который
; будем сохранять результат действий
; и который будет колонкой "C"
; размер этого массива будет, как у прочитанного
Global $aC[UBound($aRange)]

; перебираем строки прочитанной таблицы
; делаем с ними что-то и
; сохраняем в соответствующем элементе
; созданного массива
For $i = 0 To UBound($aRange) - 1
  $aC[$i] = $aRange[$i][0] & ":" & $aRange[$i][1]
Next
_ArrayDisplay($aC) ; проверяем

; записываем массив с результатами в колонку "C"
_Excel_RangeWrite($oBook, Default, $aC, "C1")

; закрываем файл с сохранением
_Excel_Close($oExcel)

InnI,
Спасибо, мне очень нравится - все подробно откомментировано, попробовать пока не могу, но хочу порассуждать. Получается, вот в этом блоке:

; перебираем строки прочитанной таблицы
; делаем с ними что-то и
; сохраняем в соответствующем элементе
; созданного массива
For $i = 0 To UBound($aRange) - 1
  $aC[$i] = $aRange[$i][0] & ":" & $aRange[$i][1]
Next

$aRange[$i][0] и $aRange[$i][1] - это первый и второй столбец соответственно? И их можно не объявлять как отдельные массивы?

Если это так, то тогда вот это запишет эти столбцы в файл с разделителем ":", верно?

Спойлер

For $i = 0 To UBound($aRange) - 1
	FileWriteLine(@ScriptDir & "\db.txt",$aRange[$i][0] & ":" & $aRange[$i][1])
  ;$aC[$i] = $aRange[$i][0] & ":" & $aRange[$i][1]
Next

А вот это запишет 10 файлов с названиями из первого столбца и содержимым из второго?

Спойлер

For $i = 0 To UBound($aRange) - 1
	While $i <= 10
		FileWriteLine(@ScriptDir & "\" & $aRange[$i][0] & ".txt", $aRange[$i][1])
		$i = $i + 1
	WEnd	
  ;$aC[$i] = $aRange[$i][0] & ":" & $aRange[$i][1]
Next

А что бы сохранить так весь (а не только первые 10 записей) массив нужно в условии While $i <= 10, $i приравнять к $aRange?

 

[InnI]

rout

попробовать пока не могу, но хочу порассуждать

Как говорится, лучше один раз увидеть. Посмотрите на вывод _ArrayDisplay и сразу всё поймёте.

это первый и второй столбец соответственно?

Да.

И их можно не объявлять как отдельные массивы?

В данном случае у вас получается один двумерный массив, а не много одномерных.

это запишет эти столбцы в файл с разделителем ":", верно?

Верно.

это запишет 10 файлов с названиями из первого столбца и содержимым из второго?

Нет (см. далее).

чтобы сохранить так весь массив

Вот так будут созданы файлы с названием из первого столбца и содержимым соответствующей ячейки второго столбца

For $i = 0 To UBound($aRange) - 1
  FileWriteLine(@ScriptDir & "\" & $aRange[$i][0] & ".txt", $aRange[$i][1])
Next

А так будут созданы файлы с названиями из столбца A, но в каждом из них будет полное содержимое столбца B.
Т.е. внешний цикл (по $i) работает с первым столбцом, а внутренний (по $j) - со вторым

For $i = 0 To UBound($aRange) - 1
  For $j = 0 To UBound($aRange) - 1
    FileWriteLine(@ScriptDir & "\" & $aRange[$i][0] & ".txt", $aRange[$j][1])
  Next
Next

 

[rout]

Спойлер

rout

попробовать пока не могу, но хочу порассуждать

Как говорится, лучше один раз увидеть. Посмотрите на вывод _ArrayDisplay и сразу всё поймёте.

это первый и второй столбец соответственно?

Да.

И их можно не объявлять как отдельные массивы?

В данном случае у вас получается один двумерный массив, а не много одномерных.

это запишет эти столбцы в файл с разделителем ":", верно?

Верно.

это запишет 10 файлов с названиями из первого столбца и содержимым из второго?

Нет (см. далее).

чтобы сохранить так весь массив

Вот так будут созданы файлы с названием из первого столбца и содержимым соответствующей ячейки второго столбца

For $i = 0 To UBound($aRange) - 1
  FileWriteLine(@ScriptDir & "\" & $aRange[$i][0] & ".txt", $aRange[$i][1])
Next

А так будут созданы файлы с названиями из столбца A, но в каждом из них будет полное содержимое столбца B.
Т.е. внешний цикл (по $i) работает с первым столбцом, а внутренний (по $j) - со вторым

For $i = 0 To UBound($aRange) - 1
  For $j = 0 To UBound($aRange) - 1
    FileWriteLine(@ScriptDir & "\" & $aRange[$i][0] & ".txt", $aRange[$j][1])
  Next
Next

InnI,
ну теперь понятно, спасибо, пришло осознание что такое массив и как с ним работать. Вчера проверял работу скрипта, пробовал варианты - все отлично работает. Пример то же удачный получился, я еще попрактикуюсь, но уже сам конечно же.
Остался один маленький вопрос и закрываю тему.
Есть функция

_Excel_RangeWrite

которая используется в примере для записи массива в колонку "С" данным в ней можно придать разнообразный вид, в том числе вид ссылки, но такая ссылка не указывает (естественно) на файл а является записью пути к нему.
И есть функция

_Excel_RangeLinkAddRemove

но у нее нет значений для работ с массивом
И не выходит у меня заставить ее работать кроме как вот так:

For $i = 0 To UBound($aRange) - 1
	$j = $i + 1
	_Excel_RangeLinkAddRemove($oWorkbook, $oWorkbook.Activesheet, "C" & $j, $aC[$i], Default)
Next

Оно конечно работает, но правильно ли это?

 

[madmasles]

rout [?]

Остался один маленький вопрос

Предупреждение

За нарушение общих правил (пункт В.4):

Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.

С уважением, ваш Глобальный модератор.

 

[rout]

Спойлер

rout [?]

Остался один маленький вопрос

[warn]За нарушение общих правил (пункт В.4):

Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.

С уважением, ваш Глобальный модератор.[/warn]

Спорить с модератором всегда чревато, можете влепить мне РО
Но, вопрос в рамках этой темы, он так же про работу с массивом в том же (первоначальном, от InnI) примере. И на примере это скрипта я спрашиваю об использовании массива в другой, схожей функции. А вопрос у меня как раз про Excel и массивы. Ради этого вопроса отдельную тему создавать точно не стоит - она будет с тем же примером.
И в данном конкретном примере

"Остался один маленький вопрос по этой теме"

и

"Ребят, а ещё такой вопрос... по другой теме".

- созвучны но не однозначны.
Спасибо.

 

[madmasles]

rout,
Вы сами себе ответили
rout [?]

Спорить с модератором всегда чревато

Тема закрыта.