functie parse_properties ($txtProperties) {
$result = serie ();
$lines = verdeel („\ n“, $txtProperties);
$key = "";
$isWaitingOtherLine = vals;
foreach ($lines als $i =>$line) {
als (leeg ($line) || (! strpos $isWaitingOtherLine && ($line, „#“) === 0))
ga verder;
als (! $isWaitingOtherLine) {
$key = substr ($line, 0, strpos ($line, „=“));
$value = substr ($line, strpos ($line, „=“) +1, strlen ($line));
}
anders {
$value. = $line;
}
/* controleer als einden met enige „\“ */
als (strrpos ($value, „\ \“) === strlen ($value) - strlen („\ \“)) {
$value = substr ($value, 0, strlen ($value) - 1). „\ n“;
$isWaitingOtherLine = waar;
}
anders {
$isWaitingOtherLine = vals;
}
$result [$key] = $value;
unset ($lines [$i]);
}
terugkeer $result;
} |