proc "index-of" [val list -input] [val item] {

$list | each [val elem] [val index] {

if [$elem | eq $item] { $index }

} | to-list | get 0 [int "-1"]

}


proc "get-value" [val table] [val columnName] [val rowNumber] {

let [val columnIndex [$table | get columns | to-list | index-of $columnName]] {

$table | get rows | to-list

  | get $rowNumber | get values | to-list 

  | get $columnIndex

}

}

//set initial index value for foreach loop
global [val -name indx -value  0] 

//please replace file uri here
let [val table [read-csv-file "file:///Users/Ulik_MacAir/Desktop/ccc.csv"]] {

//..and here
read-csv-file "file:///Users/Ulik_MacAir/Desktop/ccc.csv" | get rows | foreach {

//here you can do anything you wish, e.g. create a new Project with a key name instead of logging it
get-value $table "Name" $indx | log

//increasing index value +1
global [val indx [$indx | plus 1]] -override 

}
}

read-lines [uri-from-path "C:/Users/olga/Downloads/ccc.csv"] | foreach [val testproject]{
get-menu "File/New/Project..." | click
with [get-window "New Project"] {
get-tree | select "General/Project"
get-button "Next >" | click
with [get-editbox -after [get-label "Project name:"]] {
set-text $testproject
}
get-button Finish | click
}
}

proc "index-of" [val list -input] [val item] {
	$list | each [val elem] [val index] {
		if [$elem | eq $item] {
			$index
		}
	} | to-list | get 0 [int "-1"]
}

proc "get-value" [val table] [val columnName] [val rowNumber] {
	let [val columnIndex [$table | get columns | to-list | index-of $columnName]] {
		$table | get rows | to-list | get $rowNumber | get values | to-list | get $columnIndex
	}
}

//set initial index value for foreach loop
global [val -name indx -value  0] 

//please replace file uri here
let [val table [read-csv-file[uri-from-path "/Users/olgayurchuk/Downloads/test.csv"]]] {

//..and here
$table | get rows | foreach [val item] {

//here you can do anything you wish, e.g. create a new Project with a key name
get-view "Test Explorer" | get-tree | get-menu "New/Project..." | click
with [get-window "New Project"] {
    get-tree | select "RCP Testing Tool/RCP Testing Tool Project"
    get-button "Next >" | click
    get-editbox -after [get-label "Project name:"] | set-text [get-value $table name1 $indx]
    get-button Finish | click
}
//here you can create files in your project
get-view "Test Explorer" | get-tree | select [get-value $table name1 $indx] | get-menu "New/Test Case" | click
with [get-window "New Test Case"] {
    get-editbox -after [get-label "Name:"] | set-text [get-value $table name2 $indx] 
    get-button Finish | click
}

//increasing index value +1
global [val indx [$indx | plus 1]] -override 

}
}