Leta upp rad och sätta X|

[Xicxac]

Hej.

 

Jag vill att leta upp en rad i en textfil där första värdet ( före ett | )

är lika med querystringen "uid" och sedan sätta "X|" i slutet av den

raden. Kan någon ge mig koden

 

//Johan

 

[dune]

Kan någon ge mig koden

 

Visst:

$filen = [color="#ff0000"]file[/color]("textfilen");
$fh = [color="#ff0000"]fopen[/color]("textfilen", "w");
[color="#0000ff"]foreach[/color]($filen [color="#0000ff"]as[/color] $line) {
[color="#0000ff"]if[/color]([color="#ff0000"]preg_match[/color]("/^$uid\|/", $line)) {
[color="#ff0000"]fputs[/color]($fh, $line . "X|");
}
[color="#0000ff"]else[/color] {
[color="#ff0000"]fputs[/color]($fh, $line);
}
[color="#ff0000"]fclose[/color]($fh);

 

Notera att koden är otestad och spontant ihopsatt.

(Och vill du hellre köra Perl så är koden:)

open(FH, "textfilen");
$tillbaka .= /^$uid\|/ ? [color="#0000ff"]$[/color]_ . "X|\n" : "[color="#0000ff"]$[/color]_\n" [color="#0000ff"]while[/color](chomp([color="#0000ff"]$[/color]_ = <FH>));
close(FH);
open(FH, ">textfilen");
[color="#0000ff"]print[/color] FH $tillbaka;
close(FH);

 

(Minst lika otestad kod...)

 

 

.dune.

----------------------------------------------

- "I find this a nice feature but it is not according to the documentation.

Or is it a BUG?"

- "Let´s call it an accidental feature. :-)"

 

[Xicxac]

Okej tack, men om jag vill ta bort hela raden och sätta X?