Author Topic: tfread  (Read 3210 times)

0 Members and 1 Guest are viewing this topic.

bydlosсripter

  • Зашел в гости
  • *
  • Posts: 8
    • View Profile
tfread
« on: May 15, 2013, 04:24:43 PM »
На команде tfread выдаёт ошибку "ошибка интерпретации строки", причину выяснил - такое творится если строка в файле txt пустая, когда не пустая всё проходит нормально.
Как победить?

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: tfread
« Reply #1 on: May 15, 2013, 05:10:44 PM »
убрать пустые строки, пока наверно только так.
STRREADLN не пробовал?


bydlosсripter

  • Зашел в гости
  • *
  • Posts: 8
    • View Profile
Re: tfread
« Reply #2 on: May 15, 2013, 05:18:00 PM »
Не пробывал, а в чём разница между этими командами?
Удалять пустые строки не вариант) очень долго и мучительно.

Та же ситуация, что и с tfread.
« Last Edit: May 15, 2013, 05:20:34 PM by bydlosсripter »

gelomek

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Re: tfread
« Reply #3 on: October 31, 2013, 02:55:19 PM »
Для начала нужно отказаться от вывода ошибок
В настройках вкладка "Интерпретатор", ставим галочку "Игнорировать ошибки"

Код привожу только для того что бы считать пустые строки, Кликерманн пропускает ошибки и так наура, но при выполнении
STRLEN (tfread($filename, $i)) - у меня зависал Кликерманн наглухо.

[spoiler]
Code: (clickermann) [Select]
$filename = "filename.txt"
$stringsinfile = TFCOUNT ($filename)
$count = 0 // колличество пустых строк

LOGWRITE ("-= Всего ",$stringsinfile," строк =-")
for ($i, $i<$stringsinfile)

IF(STRLEN (STRFILTER (tfread($filename, $i),"abcdefghjklmnopqrstuvwxyz",1)) = 0)
INC($count)
END_IF

$string = TFREAD ($filename, $i)
// действие со стокой $string
LOGWRITE ($string)
end_cyc
LOGWRITE ("-= Пустых строк ",$count," =-")
[/spoiler]