Raskt script som legger til en string på hver linj

[Ståle]

Trenger et rask script som legger til "http://" på hver linje i en txt fil...

 

Noen har laget masse adresser, à la

 

noe.noe.com

noe.noe.com

noe.noe.com

noe.noe.com

noe.noe.com

 

og det gjør de dessverre uklikkbare... Og hvis jeg har gått innom noen av sidene før, ser jeg det når det er en link.

 

Takker for svar, enda mer for raskt svar

[NH]

<?php
$fil = file['adresser.txt'];
$handle = fopen('adresser.txt'. "w");
fwrite($handle, '');
fclose($handle);
$handle = fopen('adresser.txt'. "a");
for ($x = 0; $X < count($fil); $x++){
if(!strpos('http://', $fil[$x])){
 fwrite($handle, 'http://' . $fil[$x]);	
}	
}


?>

 

noe sånt kansje?

[Magnus Holm]

Vil du ikke bare slette hele fila nå, da?

[MC2]

<?php
$fil = file['adresser.txt'];
$handle = fopen('adresser.txt'. "w");
fwrite($handle, '');
fclose($handle);
$handle = fopen('adresser.txt'. "a");
for ($x = 0; $X < count($fil); $x++){
if(!strpos('http://', $fil[$x])){
 fwrite($handle, 'http://' . $fil[$x]);	
}	
}


?>

 

noe sånt kansje?

5561444[/snapback]

kanskje ikke så lurt å bruke !strpos('http://', $fil[$x])... bruk heller

[...]
$y = explode("://",$fil[$x]);
$y = $y[0];
if($y == "http" || $y == "https" || $y == "ftp") {
[...]

 

ikke glem å legge til

fclose($handle);

til slutt siden du åpnet fila gijen

 

Vil du ikke bare slette hele fila nå, da? hmm.gif

ikke utifra det jeg ser... men gidder heller ikke å prøve...

[kakkle]

Vil du ikke bare slette hele fila nå, da?

5561529[/snapback]

Jo, det stemmer det. I og med at $fil blir satt til file['adresser.txt'].

Det må være $fil = file('adresser.txt');

 

Tips til trådstarter: For å sikre at du ikke mister noe når du bruker dette scriptet, bør du sjekke at $fil innholder hele filen.

 

JEg ville vel heller gjort det slik:

<?php
$fil = file("adresser.txt");
$newfile = "";
for ($x = 0; $X < count($fil); $x++){
if(!strpos('http://', $fil[$x])){
$fil[$x] = "http://".$fil[$x];
}
$nyfil = implode ("", $fil);
// Fjern // (under) for å teste at strengen blir riktig før den gamle overskrives
// die(nl2br($nyfil));
$handle = fopen ("adresser.txt", "w");
fwrite ($handle, $nyfil);
fclose($handle);
}

 

?>

Endret 6. februar 2006 av kakkle