Поделить текст на киворды

Статус
В этой теме нельзя размещать новые ответы.

deling2

Мой дом здесь!
Регистрация
27 Янв 2008
Сообщения
327
Реакции
307
Столкнулся с такой задачей. Есть текст, а мне его надо поделить на киворды, тее разбить весь такст по строкам, и чтоб можно было указывать сколько слов должно быть в строке.
В Textpipe pro не умею создавать фильтры, а готовых под эту задачу не нашел :(
Может у кого есть готовый скриптик? Буду весьма благодарен.
PS Разбить по одному слову можно легко и в Ворде, просто заменить пробел на ^p, а вот разбить по несколько слов там уже нельзя.
 
Вот написал пару строк. Скармливай скрипту файлик key.txt в той же директории, что и сам скрипт - выдача будет в newkey.txt
В данном случае текст разбивает на предложения по 4 слова в каждом(Хотя это все можешь поменять ессесна :) :(

Код:
<?php
$file_in = "key.txt"; // Your input file
$wordsnum = 4; // How many words do you need in the output sentence
$file_out = "newkey.txt"; // Your output file

// Open and read the file
$fn = fopen($file_in, "r");
while (!feof($fn)) {
  $content .= rtrim(fgets($fn));
}
fclose($fn);

// Delete shit characters and turn to lower case
$shit = array(".", ",", "!", ";", ":", "?", "..", "...");
$content = str_replace($shit, " ", $content);
$content = str_replace("  ", " ", $content);
$content = strtolower($content);

// Make an array from modified content of file
$array = explode(" ", $content);

// Construct new sentences with desired number of words
$count = count($array);
$j = 0;

for ($i=0; $i<$count; $i++) {
  $new_content .= $array[$i]." ";
  $j++;
  if ($j == $wordsnum) {
    $new_content .= "\r\n";
    $j = 0;
  }
}

// Write to file
$fn = fopen($file_out, "w");
fwrite($fn, $new_content);
fclose($fn);

?>
 
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху