Irankis zodziams ieskoti?

Apie milijona kartu klausiau, bet milijona kartu ir negavau tikslaus atsakymo, ar yra koks irankis, kad tarkim turiu teksta:

 

BYSEP.COM

BYSNIPER.COM

BYTECREATIVE.COM

BYTEFREQ.COM

BYTEGROUPS.COM

BYUNIQUEBOUTIQUE.COM

BYYUYUE.COM

BYZANTINEFURNITURE.COM

BYZANTINEGAGU.COM

BZEOFFICE.COM

 

ir noriu, kad liktu tik tarkim tokie zodziai, kurie yra iki 6 raidziu ilgio, ty:

 

BYSEP.COM

(kitus istrina, palieka tik sita, kuris yra iki 6 raidziu ilgio.)

Nesunkiai su PHP padaromas dalykas.

Kad ir su paskaliu gali susiprogramuoti. Mokykloj turėjai mokintis paskalį... :)

Redagavo Gegužės 3, 2010 Andrius.

4 is paskalio turejau, ir tai neisivaizduoju kaip :)

 

Kaip ten suprogramuot? Gal yra kokia kita programa? :)

php

$domenai="BYSEP.COM
BYSNIPER.COM
BYTECREATIVE.COM
BYTEFREQ.COM
BYTEGROUPS.COM
BYUNIQUEBOUTIQUE.COM
UYUE.COM
BYZANTINEFURNITURE.COM
BYZANTINEGAGU.COM
BZEOFFICE.COM";

$domenas = explode("\n",$domenai);

for($i=0;$i<sizeof($domenas);$i++){
  $dom = explode(".",$domenas[$i]);
if(strlen($dom[0])<6){echo"$domenas[$i]<br/>";}
}

4 is paskalio turejau, ir tai neisivaizduoju kaip :)

 

Kaip ten suprogramuot? Gal yra kokia kita programa? :)

 

siūliau kažkada, nereikėjo :)

php

$domenai="BYSEP.COM
BYSNIPER.COM
BYTECREATIVE.COM
BYTEFREQ.COM
BYTEGROUPS.COM
BYUNIQUEBOUTIQUE.COM
UYUE.COM
BYZANTINEFURNITURE.COM
BYZANTINEGAGU.COM
BZEOFFICE.COM";

$domenas = explode("\n",$domenai);

for($i=0;$i<sizeof($domenas);$i++){
  $dom = explode(".",$domenas[$i]);
if(strlen($dom[0])<6){echo"$domenas[$i]<br/>";}
}

 

Arba kazko nesuprantu, arba kazkas blogai :)

<?php
$f = file("domenai.txt");
foreach ($f as $id=>$name) {
if (strlen($name) <= 10) // 10 = 6 (raides) + 4 (galune)
	echo $name.'<br />';
}
?>

 

Visi domenai surasyti "domenai.txt" faile, kiekvienas naujoj eilutej.

Redagavo Gegužės 3, 2010 Plx

###### koks lama as, nieko nesigauna, apsiverksiu tuoj.. :) :)

<?php
$f = file("domenai.txt");
foreach ($f as $id=>$name) {
if (strlen($name) >= 10) // 10 = 6 (raides) + 4 (galune)
	echo $name.'<br />';
}
?>

 

Visi domenai surasyti "domenai.txt" faile, kiekvienas naujoj eilutej.

 

 

###### koks lama as, nieko nesigauna, apsiverksiu tuoj.. :) :)

 

Į domenai.txt surašyk visus domenus, sukurk php failiuką hoste ir atidaryk jį per naršykle ir gausi rezultatą.

Tai, kad va koks briedas gaunas:

 

http://firstdomainer.com/bla/doms.php

 

Ir rodo visus vistiek. :\

Nes yra tu ,"0","0" ir panasiai.

php faile koda pakeisk i si

<?php
$domenai = file("domenai.txt");
$domenas = explode("\n",$domenai);
for($i=0;$i<sizeof($domenas);$i++){
  $dom = explode(".",$domenas[$i]);
  if(strlen($dom[0])<6){echo"$domenas[$i]<br/>";}}
?>

Redagavo Gegužės 3, 2010 RobiZ

Ismeta: Array

Redagavo Gegužės 3, 2010 OutCOME

Mano buvo geras, reikejo patikrinima det ar geras irasas (daugiau nei 1 simbolis? ar ten nuliui nelygu..)

$domenai = file("domenai.txt");

pakeisk i

$domenai = fread(fopen("domenai.txt","r"),1024);

$domenai = file("domenai.txt");

pakeisk i

$domenai = fread(fopen("domenai.txt","r"),1024);

 

Clap! It works! :)

 

Dekui!!! :)

Kad ir pavėluotai, bet kad jau parašiau tai įdėsiu ir pascal kodą, gal prireiks. :)

program Bevardė3;
var f,b:textfile;
a:array [1..10000]of string;
i:integer;
begin
assign(f,'domenai.txt.');
reset(f);
assign(b,'ats.txt');
rewrite(b);
i:=0;
while not Eof(f) do
begin
 inc(i);
 readln(f,a[i]);
  if length(a[i])=12 then //skaičius reiškai eilutės ilgį
writeln(b,a[i]);
end;
close(b);
WriteLn('Done');
Readln;
end.