:strip_exif()/u/42858/matrix-icon.gif?f=community){kind=icon}
kwordt helemaal knetter hier op m'n werk 
. Ik moet wat waardes in een bestand schrijven en daarachter elke keer een scheidings teken om het makkelijk in excel te openen. Dat werkt allemaal wel leuk, maar...
...als de zoekpattern niet klopt, dus hij vindt niets, zet het programmatje ook geen scheidingsteken weg. Ik kan overal wel een printje doen maar dan heb ik weer bergen met tekens
de tekst bestanden zet ik hier niet neer, veel te groot. wil je ze, zeg het even en ik mail ze anders
wie helpt mij uit de brand???
. Ik moet wat waardes in een bestand schrijven en daarachter elke keer een scheidings teken om het makkelijk in excel te openen. Dat werkt allemaal wel leuk, maar......als de zoekpattern niet klopt, dus hij vindt niets, zet het programmatje ook geen scheidingsteken weg. Ik kan overal wel een printje doen maar dan heb ik weer bergen met tekens
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| open OUT, ">db.out";
foreach (<*.txt>) {
push @list, $_;
}
foreach (<@list>) {
$f = shift(@list);
my $comp = $f;
substr($comp, -4, 8) = "";
print OUT "$comp;";
my @array = ('CPU type', 'Clock speed', 'Chip :' ,'ATA info', 'ASPI info', 'Manufacturer', 'VESA version', 'Product');
open (FH, $f) || die $!;
print "$f\n"; # op het beeld, niet in het bestand
while (<FH>) {
my $line = $_;
foreach my $keyword (@array) {
if ($line =~ m/$keyword : (.+)$/)
{ print OUT "$1";
}
}
}
print OUT "\n";
close FH
}
close OUT |
de tekst bestanden zet ik hier niet neer, veel te groot. wil je ze, zeg het even en ik mail ze anders
wie helpt mij uit de brand???
Time Attacker met de Mazda 323F 2.5 V6 J-spec | PV output
