скрипт для изменения текста

[xvins]

кто-нибудь может написать скрипт, который будет брать текст и делать с ним следующее?
1)он будет обрывать предложение и ставить точку.(длина предложения рандомно меняется постоянно).
2) а дальше он точку убирает (ту, которая была).
надеюсь, понятно объяснил?
вообще, такое можно сделать?

 

[stealthdebuger]

Написать можно, только исходных данных для реализации мало. При каком условии обрывать предложение?

 

[satih]

Неа, обьяснил не понятно, точнее не однозначно. Как насчет такого:
1. стираем все точки в тексте
1.1. если буква после точки заглавная, меняем на маленькую, иначе точка не означала конец предложения, оставляем ее
2. расставляем точки каждое рандомальное количество символов (если попадаем посреди слова, то в его конце)
2.1. букву следующего слова превращаем в заглавную

Угадал?

 

[termit.]

Посмотри прогу TextPipe там фильтров тьма-тьмущая, думаю в ней можно такое реализовать.

 

[xvins]

Угадал?

абсолютно точно)
так и хочу сделать.
чем это лучше сделать?

 

[stealthdebuger]

абсолютно точно)
так и хочу сделать.

Держи. Код не совсем корректный, писал на скорую руку, но то, что тебе необходимо делает.

<?
$str = "Здесь какой-то текст. Здесь какой-то текст. Здесь какой-то текст. И пример сокр. иначе - сокращения.";
$sl = substr_count($str, ".");
$s = 0;
for($i=0; $i < $sl; $i++)
{
$s = strpos($str, ". ", $s);
$sm = substr($str, $s+2, 1);
$sm2 = ord($sm);
if($sm2 > (ord("А")-1) && $sm2 < (ord("Я")+1))
	{
	$ts = substr($str, $s, 3);
	$str = str_replace(". ".$sm, " ".strtolower($sm), $str);
	}
$s++;
}
echo $str."<br>";
$rnd = rand(strlen($str), 1);
for($i=0; $i < $rnd; $i++)
{
$r = rand(strlen($str), 1);

if(substr($str, $r-1, 1) != "." && substr($str, $r, 1) != "." && substr($str, $r+1, 1) != ".")
	{
	if(substr($str, 0, $r+1) != " ")
	$str = substr($str, 0, $r).". ".ucfirst(substr($str, $r));
else
	$str = substr($str, 0, $r).".".ucfirst(substr($str, $r));
	}
}
echo $str;
?>

 

[xvins]

а можно поправить скрипт, чтобы он не расчленял слова?
и ещё в нём баг есть - он не всегда после точки меняет строчную букву на заглавную.
можно все эти косяки устранить?

 

[xvins]

если кто-нибудь может поправить скрипт, напишите.
заплачу деньги.

 

[stealthdebuger]

если кто-нибудь может поправить скрипт, напишите.
заплачу деньги.

Пишу. Поправил.

  <?
$str = "Здесь какой-то текст. Здесь какой-то текст. Здесь какой-то текст. И пример сокр. иначе - сокращения.";
$sl = substr_count($str, ".");
$s = 0;
for($i=0; $i < $sl; $i++)
{
$s = strpos($str, ". ", $s);
$sm = substr($str, $s+2, 1);
$sm2 = ord($sm);
if($sm2 > (ord("А")-1) && $sm2 < (ord("Я")+1))
    {
    $ts = substr($str, $s, 3);
    $str = str_replace(". ".$sm, " ".strtolower($sm), $str);
    }
$s++;
}
echo $str."<br>";
$rnd = rand(strlen($str), 1);
for($i=0; $i < $rnd; $i++)
{
$r = rand(strlen($str), 1);

if(strpos($str, ".", substr($str, $r-1, 3)))
    {
if(substr($str, $r, 1) == " " && substr($str, $r-1, 1) != ".")
    $str = substr($str, 0, $r).". ".ucfirst(trim(substr($str, $r)));
    }
}
echo $str;
?>