set j_file_in "set_input_delay.sdc"
set j_file [open $j_file_in r ]
while { [gets $j_file line ] != -1 } {
    regexp { [\d|\.]+ } $line j_delay_value
    puts $line
    regsub { [\d|\.]+ } $line "[format %.4f [expr $j_delay_value + 1 ] ] " tmp
    puts $tmp
}
close $j_file