Есть строка в файле capture.txt
Задача
Большие скопления пробелов преобразовать: первый пробел превратить в табуляцию (чтоб в Excel можно было файлик эскпортировать с разбивкой на столбики), а остальные пробелы - убрать. Получившуюся строку записать в файлик.
Табуляция делается на ура, а вот пробелы - НЕ УБИРАЮТСЯ. Хотя все правильно вроде как. А попытка просто удалить символ через unset($stroka[$udal_prob]); дает ошибку.
Кто знает, в чем дело?
| Код |
<?php
//читаем строки capture.txt в массив
$file_v_vide_stroki = file("capture.txt");
//считаем кол-во элементов массива $file_v_vide_stroki
$kolvo_file_v_vide_stroki = count($file_v_vide_stroki);
//echo $kolvo_file_v_vide_stroki;
//начинаем работать с каждой строкой capture.txt поочереди
//это правильный for
//for ($i = 0; $i < $kolvo_file_v_vide_stroki; $i++)
//а этот просто выдает первую строку
for ($i = 0; $i < 1; $i++)
{
//echo $file_v_vide_stroki[$i];
$stroka = $file_v_vide_stroki[$i];
//вычисляем длину текущей строки capture.txt
$dlina_stroka = strlen($stroka);
//начинаем искать, где пробелов больше одного (в ФИО пробелы должны быть; в остальных местах - глюк распознавания; в этих местах пробелы д.б. заменены на символ табуляции, чтобы потом импортировать capture.txt в Excel)
for ($k = 0; $k < $dlina_stroka; $k++)
{
//если очередной символ строки является пробелом
if ($stroka[$k] == " ")
{
//то номер этого символа заносим в массив $nomera_probelov[]
$nomera_probelov[] = $k;
}
}
//найдем идущие подряд пробелы
foreach ($nomera_probelov as $num_probela)
{
$sled = $num_probela + 1;
$pred = $num_probela - 1;
//если следующий символ строки - пробел, а предыдущий - не пробел, значит это первый пробел из искомой группы пробелов, и из него нужно сделать \t
if (($stroka[$num_probela] == $stroka[$sled]) and ($stroka[$num_probela] != $stroka[$pred]))
{
$zamenit_na_tab[] = $num_probela;
}
//если предшествующий символ строки - пробел (что было заблокировано предыдущем условием, значит это уже не первый пробел группы пробелов, и его надо просто удалить
if ($stroka[$num_probela] == $stroka[$pred])
{
$udalit_probeli[] = $num_probela;
}
}
//заменяем первый пробел на \t
foreach ($zamenit_na_tab as $zam_tab)
{
$stroka[$zam_tab] = "\t";
}
//остальные пробелы просто удаляем
foreach ($udalit_probeli as $udal_prob)
{
//ВОТ ОНО НЕ РАБОТАЕТ!!! Пробелы как были, так и есть
$stroka[$udal_prob] = "";
}
//и пишем строку с нужными изменениями в файл
$text_file = fopen("spisok.txt","a");
fwrite($text_file, $stroka);
fclose($text_file);
}
?>
|
|
