не работает код

[boroda]

Люди добрые, не работает код, не вижу ошибки, подскажите, плз!

Code: (clickermann) [Select]

//Создаем массив
for($i=0, $i<10)
  $test[$i]=StrConcat("Строка", "!", $i)
  print($i)
end_cyc
//Записываем в файл
TFWriteArr("test.arr", $test)
//Читаем массив из файла
TFReadArr("test.arr", $testOut)

//КУСОК НИЖЕ НЕ РАБОТАЕТ:

//Выводим значения из файла
for($i=0, $i<arrsize($testOut))
  $temp=$testOut[$i]
  print($i, ", ",$temp)
  strseparate($temp, "!", $arr)
  print($arr[0], " значение ", $arr[1])
end_cyc

halt


[boroda]

Расширение файла для меня непринципиально

Должно получаться:
11:03:15 0, Строка!0
11:03:15 Строка значение 0
...
11:03:15 9, Строка!9
11:03:15 Строка значение 9

[boroda]

Вот какой должен быть результат, решение "в лоб":

Code: (clickermann) [Select]

//Создаем массив
for($i=0, $i<10)
  $test[$i]=StrConcat("Строка", "!", $i)
  print($i)
end_cyc
//Записываем в файл
TFWriteArr("test.arr", $test)
//Читаем массив из файла
TFReadArr("test.arr", $testOut)

//КУСОК НИЖЕ НЕ РАБОТАЕТ:

//Выводим значения из файла
for($i=0, $i<arrsize($testOut))
  $temp=$testOut[$i]
  print($i, ", ",$temp)
  strseparate($temp, "!", $arr)
  print($arr[0], " значение ", $arr[1])
end_cyc

//Костыль рабочий

for($i=0, $i<arrsize($testOut))
  $temp=$testOut[$i]
  print($i, ", ",$temp)
  $begin=STRPOS ($temp, "!")
  $var1=STRCUT ($temp, 1, $begin-1)
  $var2=STRCUT($temp, $begin+1, STRLEN ($temp))
  print($var1, " значение ", $var2)
end_cyc

halt


[dramster]

Люди добрые, не работает код, не вижу ошибки, подскажите, плз!

Code: (clickermann) [Select]

//Создаем массив
for($i=0, $i<10)
  $test[$i]=StrConcat("Строка", "!", $i)
  print($i)
end_cyc
//Записываем в файл
TFWriteArr("test.arr", $test)
//Читаем массив из файла
TFReadArr("test.arr", $testOut)

//КУСОК НИЖЕ НЕ РАБОТАЕТ:

//Выводим значения из файла
for($i=0, $i<arrsize($testOut))
  $temp=$testOut[$i]
  print($i, ", ",$temp)
  strseparate($temp, "!", $arr)
  print($arr[0], " значение ", $arr[1])
end_cyc

halt


Code: (clickermann) [Select]

//Создаем массив
for($i=0, $i<10)
   $test[$i]=StrConcat("Строка", "!", $i)
   print($i)
end_cyc
//Записываем в файл
TFWriteArr("test.arr", $test)
//Читаем массив из файла
TFReadArr("test.arr", $testOut)

//КУСОК НИЖЕ  РАБОТАЕТ:

//Выводим значения из файла
for($i=0, $i<arrsize($testOut))
   $temp=$testOut[$i]
   print($i, ", ",$temp)
   strseparate($temp, "!", $arr)
   print($arr[0], " значение ", $arr[1])
   
   
   UNDEFINE($arr)     //удаляем массив
   
end_cyc

halt
избавляться от массива нужно, либо индекс соответствующий писать отталкиваясь от наращиваемой $i.

[boroda]

dramster, спасибо, добрый человек! Все заработало!

UPD Я думал, что массив пересоздается, значения переписываются, а оно во как - убивать надо