<PRE>
<HR>couldn't open "/genomics/link/CilioCarta/protembl/HSAP00001": no such file or directory
    while executing
"open $Filename r"
    (procedure "TextFromFile" line 3)
    invoked from within
"TextFromFile $FichierEmbl"
    (procedure "SeqDuEmbl" line 2)
    invoked from within
"SeqDuEmbl "/genomics/link/CilioCarta/protembl/HSAP00001""<HR>
<P><B>OUTPUT BUFFER:</B></P>
source /usr/local/apache2/PourRivet/SessionBeforeScript.tcl
#!/usr/local/bin/tclsh

set TclDir "/home/ripp/www/PublicDirectory/TclRipp"
source "$TclDir/BasicTclTools.tcl"

proc SeqDuEmbl {FichierEmbl} {
    set Texte [TextFromFile $FichierEmbl]

    #rR extraction de la séquence avec une expression régulière
    regexp {\nSQ[^\n]+\n([^/|$]+)(/|$)} $Texte Match Sequence

    regsub -all -nocase {[^a-z]} $Sequence "" Sequence
    return $Sequence
}

puts [SeqDuEmbl "/genomics/link/CilioCarta/protembl/HSAP00001"]

exit


</PRE>