Alexsandrit писал(а):а что такое ;pm ?
<?php
function ICQfilter($file){
$text = file_get_contents($file);
$text = explode("\n", $text);
for($i=0; $i<count($text); $i++){
$text[$i] = explode(";", $text[$i]);
$ret .= $text[$i][0].";";
$ret .= $text[$i][1]."\n
";
}
return $ret;
}
$file = "test.txt";
$content = ICQfilter($file);
$f = fopen($file, "w");
fwrite($f, $content);
?>
import System.Environment
main = getArgs >>= \(f1:f2:_) -> readFile f1 >>= return . unlines . f . lines >>= writeFile f2
f :: String -> String
f = reverse .tail . snd. span (/=';') . reverse
import Data.list
import Text.ParserCombinators.Parsec
import System.IO
main = do
(f1,f2:_) <- getArgs
readFile f1 >>= return . unlines . f . lines >>= writeFile f2
where
f s = case parse fieldParser f1 s of
Left e -> error $ show e
Right lst = intercalate ";" $ take 2 lst
fieldParser :: Parser [String]
fieldParser = sepBy1 (char ';') (many $ noneOf ";")
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 18