Messages

1

Общие вопросы / Re: не работает код

« on: June 16, 2018, 12:52:58 PM »

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

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

2

Общие вопросы / Re: не работает код

« on: June 16, 2018, 12:23:26 PM »

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

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


3

Общие вопросы / Re: не работает код

« on: June 16, 2018, 12:10:51 PM »

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

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

4

Общие вопросы / не работает код

« on: June 16, 2018, 11:10:26 AM »

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

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